数组去重遇到错误

pepsi7777 · 发表于 2023-3-3 11:09

本帖最后由 pepsi7777 于 2023-3-5 13:06 编辑

各位老师好，我在数组去重时遇到错误，可以帮看看吗？感谢

Sub 数组去重()
Dim i1 As Long
Dim arr, 结果, temp
Dim Dic As Object
arr = Sheet1.Range("A1:A7")
'设置字典
Set Dic = CreateObject("Scripting.dictionary")
For i1 = 1 To 7
temp = Dic(arr(i1))
Next
结果 = Dic.Keys
End Sub

全党 · 发表于 2023-3-3 17:27

本帖最后由全党于 2023-3-3 17:40 编辑

二维数组不支持arr(i1)这种索引
改为：Dic(arr(i1,1))
或arr=Excel.Application.WorksheetFunction.Transpose(sheet1.range("a1:a7")

zxsea_7426 · 发表于 2023-3-3 17:44

本帖最后由 zxsea_7426 于 2023-3-3 17:46 编辑

数组用法都不对
arr是二唯数组

zxsea_7426 · 发表于 2023-3-3 17:48

本帖最后由 zxsea_7426 于 2023-3-3 17:49 编辑

pepsi7777 · 发表于 2023-3-5 13:07

全党发表于 2023-3-3 17:27
二维数组不支持arr(i1)这种索引
改为：Dic(arr(i1,1))
或arr=Excel.Application.WorksheetFunction.Tran ...

感谢全党老师

pepsi7777 · 发表于 2023-3-6 01:01

zxsea_7426 发表于 2023-3-3 17:48

感谢 zxsea_7426 老师

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

[已解决] 数组去重遇到错误

点评

评分

评分