网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：281,813贴子：1,555,041
  • 2回复贴，共1页

求解释VBA代码

从for开始帮忙解释下啊~~谢谢
——————————
Sub 保存()
Dim arr, brr, d, i&
Set d = CreateObject("scripting.dictionary")
Sheet1.Activate
arr = Range("a10").CurrentRegion
brr = Sheet2.Range("a1").CurrentRegion
For i = 2 To UBound(arr)
d(arr(i, 7)) = i + 9
Next
For i = 2 To UBound(brr)
If d.exists(brr(i, 7)) Then Rows(d(brr(i, 7))).Copy Sheet2.Cells(i, 1)
Next
MsgBox "保存完毕!"
End Sub
————————————


查询相同值的


2025-11-18 17:54:58
广告
不感兴趣
开通SVIP免广告
arr = Range("a10").CurrentRegion
brr = Sheet2.Range("a1").CurrentRegion
将区域值装入数组
For i = 2 To UBound(arr)
d(arr(i, 7)) = i + 9
Next
d(key) = item
字典中key不存在时添加key与item，key存在时设置该key的item，这个代码将G11:Gxxxx的值作为keys，行号作为items加入d这个字典中
For i = 2 To UBound(brr)
If d.exists(brr(i, 7)) Then Rows(d(brr(i, 7))).Copy Sheet2.Cells(i, 1)
Next
d.exists(key)：字典是否存在brr(i, 7)这个key
d(brr(i, 7))：d(key)返回key对应的item，就是sheet1中的行号


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 2回复贴，共1页
分享到: