VBA数据统计表一: 表二:张 苹果 苹果 橘子 梨 菠萝 ...张 橘子 李 xx xx xx xx李 橘子 张 xx xx xx xx李 梨 赵 xx xx xx xx李 菠萝
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/16 23:43:06
![VBA数据统计表一: 表二:张 苹果 苹果 橘子 梨 菠萝 ...张 橘子 李 xx xx xx xx李 橘子 张 xx xx xx xx李 梨 赵 xx xx xx xx李 菠萝](/uploads/image/z/12373273-1-3.jpg?t=VBA%E6%95%B0%E6%8D%AE%E7%BB%9F%E8%AE%A1%E8%A1%A8%E4%B8%80%EF%BC%9A++++++++++%E8%A1%A8%E4%BA%8C%EF%BC%9A%E5%BC%A0++%E8%8B%B9%E6%9E%9C++++++++++++++%E8%8B%B9%E6%9E%9C++%E6%A9%98%E5%AD%90++%E6%A2%A8++%E8%8F%A0%E8%90%9D+...%E5%BC%A0++%E6%A9%98%E5%AD%90++++++++++%E6%9D%8E+++xx+++xx++++xx+++xx%E6%9D%8E++%E6%A9%98%E5%AD%90++++++++++%E5%BC%A0+++xx+++xx++++xx+++xx%E6%9D%8E++%E6%A2%A8++++++++++++%E8%B5%B5+++xx+++xx++++xx+++xx%E6%9D%8E++%E8%8F%A0%E8%90%9D)
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
通过测试