取表1第50列不重复日期放表2脚本需怎样修改？

莫悠悠 · 发表于 2021-12-19 17:51

Sub 不重复日期() '取表1第50列放表2
arr = Sheets(1).Range("A1").CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
d(arr(i, 50)) = Array(arr(i, 50))
Next
[A2].Resize(d.Count, 1) = Application.Transpose(Application.Transpose((d.items)))
Set d = Nothing
End Sub

3190496160 · 发表于 2021-12-19 18:09

Sub 不重复日期() '取表1第50列放表2
arr = Sheets(1).Range("A1").CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
d(arr(i, 50)) = ""
Next
Sheet2.[A2].Resize(d.Count, 1) = Application.Transpose(d.kys)
Set d = Nothing
End Sub

3190496160 · 发表于 2021-12-19 18:10

莫悠悠 · 发表于 2021-12-19 18:22

本帖最后由莫悠悠于 2021-12-19 18:30 编辑

3190496160 发表于 2021-12-19 18:10

运行提示下标越界
Sub 不重复日期() '取表1第50列放表2
arr = Sheets(1).Range("A1").CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
d(arr(i, 50)) = ""
Next
Sheet2.[A2].Resize(d.Count, 1) = Application.Transpose(d.keys)
Set d = Nothing
End Sub

3190496160 · 发表于 2021-12-21 14:37

莫悠悠发表于 2021-12-19 18:22
运行提示下标越界
Sub 不重复日期() '取表1第50列放表2
arr = Sheets(1).Range("A1").CurrentRegio ...

很明显，你的代码，跟你的表格是风马牛不相及的，

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

[求助] 取表1第50列不重复日期放表2脚本需怎样修改？