要求:1-12月计算90分以上按条件比输出数据

function test(){

var Rngs=Range("a2",Range("a9999").End(xlUp))//自动找范围
	for(var Rng of Rngs){//循环
var arr=Rng.Offset(0,1).Resize(1,12).Value()[0]//定位
var newarr=[];//数组

var wsf=WorksheetFunction;//调用函数
	for(var ar of arr){//循环
		if(ar>=90){//判断ar>=90
			newarr=[...newarr,ar]//判断赋值给newarr
			}
		}
var total=wsf.Sum(newarr);//调用函数Sum求newarr之和


var arrl=Array.from(newarr,x=>x+"("+wsf.Text(x/total,"0%")+")");//Array.from新建数组，"+wsf.Text(x/total,"0%")调用函数Text(x/total,"0%")相除，格式为%百分比
	Rng.Offset(0,13).Value2=`${arrl}`//`${arrl}`为所有数组内容，如果是用arr1那就只显示数组中的一个内容


}}