|
楼主 |
发表于 2018-1-8 21:07
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
chxw68老师,我修改了一下代码希望能移植使用,结果出错,请您看看是怎么回事?
Sub test()
Dim r%, i%
Dim arr, brr
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For Each ws In Worksheets(Array("2018", "2017"))
With ws
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("b3:b" & r)
For i = 1 To UBound(arr)
d(arr(i, 1)) = ""
Next
End With
Next
With Worksheets("比对")
.UsedRange.Offset(1, 0).ClearContents
.Range("a2").Resize(d.Count, 1) = Application.Transpose(d.keys)
End With
End Sub
|
|