[已解决]如何求出各班各等級的數量

e2solo · 发表于 2011-10-26 16:40

請教老師
有一個以下的表
班別姓名 1月
A a 甲
A b 乙
A c 甲
A d 乙
B e 丙
B f 丙
B g 甲
C h 丙
C i 乙
C j 甲
C k 丙
如果用函數SUMPRODUCT的方式可以求出以下的結果
班別甲乙丙
A 2 2 0
B 1 0 2
C 1 1 1
但如果用vba應該如何寫比較好?
因我不希望用range("m1")= "=sumproduct..........." 的方式

最佳答案

月排行榜 / 总排行榜

爱疯

2011-10-26 19:12

本帖最后由爱疯于 2011-10-26 19:17 编辑

Sub test()
Dim A, B, i%, j%, k%
With Sheets("sheet1")
A = .Range("a1:C" & .Range("a65536").End(xlUp).Row)
End With
With Sheets("sheet2")
B = .Range("a1:d" & .Range("a65536").End(xlUp).Row)
End With
For i = 2 To UBound(B)
For j = 2 To UBound(B, 2)
B(i, j) = 0
For k = 2 To UBound(A)
If A(k, 1) = B(i, 1) And A(k, 3) = B(1, j) Then
B(i, j) = B(i, j) + 1
End If
Next k
Next j
Next i
Sheets("sheet2").Cells(1, 1).Resize(UBound(B), UBound(B, 2)) = B
End Sub

复制代码

工作簿2.rar (9.59 KB, 下载次数: 15)

爱疯 · 发表于 2011-10-26 19:12

本帖最后由爱疯于 2011-10-26 19:17 编辑

Sub test()
Dim A, B, i%, j%, k%
With Sheets("sheet1")
A = .Range("a1:C" & .Range("a65536").End(xlUp).Row)
End With
With Sheets("sheet2")
B = .Range("a1:d" & .Range("a65536").End(xlUp).Row)
End With
For i = 2 To UBound(B)
For j = 2 To UBound(B, 2)
B(i, j) = 0
For k = 2 To UBound(A)
If A(k, 1) = B(i, 1) And A(k, 3) = B(1, j) Then
B(i, j) = B(i, j) + 1
End If
Next k
Next j
Next i
Sheets("sheet2").Cells(1, 1).Resize(UBound(B), UBound(B, 2)) = B
End Sub

复制代码

工作簿2.rar (9.59 KB, 下载次数: 15)

e2solo · 发表于 2011-10-26 19:25

謝謝老師
謝謝

		自动登录	找回密码
密码			注册