VBA数据统计表一: 表二:张 苹果 苹果 橘子 梨 菠萝 ...张 橘子 李 xx xx xx xx李 橘子 张 xx
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/10/01 15:16:17
VBA数据统计
表一: 表二:
张 苹果 苹果 橘子 梨 菠萝 ...
张 橘子 李 xx xx xx xx
李 橘子 张 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 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
通过测试
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