G2=SUMIF(A2:A10000,{"C","G","R","B"},B2:B10000) 这句话在VBA数组中可行

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/04/27 19:21:40

G2=SUMIF(A2:A10000,{"C","G","R","B"},B2:B10000) 这句话在VBA数组中可行,函数怎么不行了?
请问函数怎么写法,或怎么改写?
Sub t5()
Dim arr
arr = Application.SumIf(Range("a2:a10000"),Array("B","C","G","R"),Range("B2:B10000"))
Range("G2").Resize(4,1) = Application.Transpose(arr)
End Sub

G2=SUMIF(A2:A10000,{"C","G","R","B"},B2:B10000)这个虽然不会错,但是有问题啊,它其实相当于G2=SUMIF(A2:A10000,"C",B2:B10000)
所以在宏里面应该是arr = Application.SumIf(Range("a2:a10000"),"C",Range("B2:B10000")).
如果你要统计=C或G或R或B的总和,应该用这个G2=SUM(SUMIF(A2:A10000,{"C","G","R","B"},B2:B10000))
对应宏里面是arr= Application.Sum(Application.SumIf(Range("a2:a10000"),Array("B","C","G","R"),Range("B2:B10000")))

B2/SUMIF(A:A,A2,B: 在三角形ABC中,a,b,c分别代表三个内角A,B,C的对边,如果(a2+b2)sin(A-B)=(a2-b2)sin( VBA问题：把sheet1中A1 A2 A3 B1 B2 B3的内容复制到sheet2中A2 A4 A6 B2 B4 B 已知a、b、c属于R,求证：根号（a2+ab+b2)+根号（a2+ac+c2)>=a+b+c 解斜三角形数学题1.在三角形ABC中,Sabc=(a2+b2+c2)/4,则C=?---a2,b2,c2为a的平方,b的根据质量守恒定律,在A2+B2=2C中,C的化学式用A.B可表示为_____? 在三角形ABC中三边abc满足c4-2(a2+b2)c2+(a2+ab+b2)(a2-ab+b2)=0,角C大小在一定条件下,可逆反应A2（g)+B2(g)==2C(g)达到平衡时,各物质的平衡浓度c(A2)=0.5mol/L、c( 在平面直角坐标系中,椭圆C:x2/a2+y2/b2=1(a>b>c)圆O:x2+y2=a2,且过点在△ABC中，a2=b2+c2+bc，2b=3c，a＝319 在三角形abc中,有(a2+ b2)sin(a-b)=(a2-b2)sinc 2是平方,问这是什么三角形, 已知a,b,c∈R+,且a+b+c=1,求证:1>a2+b2+c2 ≥ 1/3 ,