VBA数据统计表一：表二：张苹果苹果橘子梨菠萝...张橘子李xxxxxxxx李橘子张xxxxxxxx李梨赵xxxxxxxx李菠萝

Question

VBA数据统计
表一： 表二：
张 苹果 苹果 橘子 梨 菠萝 ...
张 橘子 李 xx xx xx xx
李 橘子 张 xx xx xx xx
李 梨 赵 xx xx xx xx
李 菠萝 王 xx xx xx xx
李 橘子 .
张 菠萝 .
张 橘子 .
赵 菠萝
.
.
已知表一,希望用VBA写一段程序,在表二中xx的位置显示出每个人持有每种水果的个数.
不要用数据透视表做.
因为是一个大程序中的一个步骤.
谢谢!

Answer 1

Sub TEST()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim a,b,c,d As String
For i = 2 To 4
For j = 2 To 5
n = 0
For m = 2 To 10
a = Sheet1.Cells(m,1).Value
b = Sheet1.Cells(m,2).Value
c = Sheet2.Cells(i,1).Value
d = Sheet2.Cells(1,j).Value
If a = c And b = d Then
n = n + 1
End If
Next m
Sheet2.Cells(i,j).Value = n
Next j
Next i
End Sub
通过测试