作业帮VBA数据统计表一： 表二：张 苹果 苹果 橘子 梨 菠萝 ...张 橘子 李 xx xx xx xx李 橘子 张 xx xx xx xx李 梨 赵 xx xx xx xx李 菠萝
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 14:11:14
VBA数据统计表一： 表二：张 苹果 苹果 橘子 梨 菠萝 ...张 橘子 李 xx xx xx xx李 橘子 张 xx xx xx xx李 梨 赵 xx xx xx xx李 菠萝
VBA数据统计
表一： 表二：
张 苹果 苹果 橘子 梨 菠萝 ...
张 橘子 李 xx xx xx xx
李 橘子 张 xx xx xx xx
李 梨 赵 xx xx xx xx
李 菠萝 王 xx xx xx xx
李 橘子 .
张 菠萝 .
张 橘子 .
赵 菠萝
.
.
已知表一,希望用VBA写一段程序,在表二中xx的位置显示出每个人持有每种水果的个数.
不要用数据透视表做.
因为是一个大程序中的一个步骤.
谢谢!
VBA数据统计表一： 表二：张 苹果 苹果 橘子 梨 菠萝 ...张 橘子 李 xx xx xx xx李 橘子 张 xx xx xx xx李 梨 赵 xx xx xx xx李 菠萝
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
通过测试