请大家帮忙看看"删除重复项"错在哪里？（已解决，谢谢lyf7276）

wz2796 · 发表于 2013-6-17 14:56

本帖最后由 wz2796 于 2013-6-18 08:46 编辑

删除重复项
Sub cfz()
Dim i&, Myr&, Arr
Dim d, k
Set d = CreateObject("Scripting.Dictionary")
Myr = Sheet1.[a65536].End(xlUp).Row
Arr = Sheet1.Range("a1:g" & Myr)
For i = 1 To UBound(Arr)

d(Arr(i, 3)) = ""
Next
k = d.keys
Sheet2.Activate
[a1].Resize(d.Count, 1) = Application.Transpose(k)
Set d = Nothing
End Sub

注意红色部分，谢谢（网上下的我也需要）

lyf7276 · 发表于 2013-6-17 15:04

K后面不要带符号了

wz2796 · 发表于 2013-6-17 18:34

lyf7276 发表于 2013-6-17 15:04
K后面不要带符号了

谢谢

		自动登录	找回密码
密码			注册