1樓：太上太皇
sub s()
arr = [a1].currentregionredim brr(1 to ubound(arr), 1 to 2)
for i = 1 to ubound(arr)for j = 1 to k
if brr(j, 1) = arr(i, 1) thenbrr(j, 2) = brr(j, 2) + arr(i, 3)exit for
end if
next
if j > k then
k = k + 1
brr(k, 1) = arr(i, 1)brr(k, 2) = arr(i, 3)end if
next
[e1].resize(k, 2) = brrend sub
2樓：風正半帆
求各班成績可以不用vba，f2:=sumif($a$2:$a$13,e2,$c$2:$c$13)
向下填充可算其它班。
用vba也可用迴圈來統計。
供您參考。
3樓：平陽虎
f2中用公式
=sumif(a:a,e2,c:c)
下拉填充就可輕鬆搞定，一定要用vba嗎？
4樓：匿名使用者
先留名學習學習，無人答我再動手。
在VBA中如何用陣列給另陣列賦值
通過陣列迴圈的方式進行陣列賦值。示例 dim names 定義一個初始化陣列dim dest 3 定義一個要賦值的陣列 賦值names array 小明 小紅 效力 張明 王武 通過ubound 函式計算上界，lbound計算陣列下界for i lbound dest to ubound dest ...
VBA二維陣列怎麼賦值
墨陌沫默漠末 可通過 符號或 set 關鍵字進行賦值。變數在使用時還需要對其進行賦值。在vba中對變數進行賦值可通過 符號或 set 關鍵字進行。通過 符號對變數賦值的語法格式有以下幾種。變數名 資料 變數1 變數2 運算子 資料 變數1 變數2 運算子 變數3 運算子 變數n 如果在定義變數時指定...
vba如何分割字串成陣列
sub mm s 91719.043 251636.734 0.364 1074.587 0.650 s trim s m k 0 for i 1 to len s if mid s,i,1 thenif k 0 then k i m m mid s,i,1 end if else m m mid ...