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

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/06/09 03:52:46

VBA数据统计
表一：表二：
张苹果苹果橘子梨菠萝 ...
张橘子李 xx xx xx xx
李橘子张 xx xx xx xx
李梨赵 xx xx xx xx
李菠萝王 xx xx xx xx
李橘子 .
张菠萝 .
张橘子 .
赵菠萝
.
.
已知表一,希望用VBA写一段程序,在表二中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
通过测试

常看到有商店名叫什么“李记XX”“张记XX”之类的, 难忘那张XX的脸作文 600字 "XX省XX市XX区XX镇XX村XX街XX号"英文翻译? 词语接龙绿叶-叶子-XX-XX-XX 角X-XX-XX-XX-XX 渴望排比句xx,渴望xx的xx；xx,渴望xx的xx；xx,渴望xx的xx. 书xx诗xx于xx 文献后面这个 xxxx,xx:xx-xx 成语 XX一表(注：XX为叠字) .要祝XXXXXX,X张XXXXX,XX莉XXXX,XXX生XXX,XXXX日XX,XXXXX快X,XXXXXX乐. 张大伯带160千克苹果和橘子去市场卖.橘子重量是苹果的60﹪,苹果和橘子个有多少千克? xx愈xxx,愈xx,xxx愈xx,愈xx 设xx

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

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