|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
请老师们指点一下以下的红色字体和蓝色字体的语句有什么不一样的,蓝色的可以运行得到结果,红色的运行就会出错.
按照网上的教程说这俩语句的意思和作用一样,只是一个是简化了的。可是我试了好多次都不可以
Sub TEST()
Dim i As Long, myr As Long, arr
Dim d, k, t, sht As Worksheet
Set d = CreateObject("scripting.dictionary")
For Each sht In Sheets
If sht.Name <> "sheet4" Then
myr = sht.[a1048576].End(xlUp).Row
arr = sht.Range("a2:a" & myr)
For i = 1 To UBound(arr)
'为什么写成这样就可以运行
d(arr(i, 1)) = ""
'下面的语句为什么不能运行,不都是一样的意思吗?
d.Add arr(i, 1), ""
Next
End If
Next
k = d.keys
Sheet4.[a3].Resize(d.Count, 1) = Application.Transpose(k)
Set d = Nothing
End Sub俩个语句的意思是一样的啊
|
|