下标越界

武松打鼓

找了一段提取不重复值的代码，提示下标越界


提取某列不重复值-下标.zip (53.21 KB, 下载次数: 5)

2024-9-12 17:01 上传

点击文件名下载附件

小凡、、、

循环用下标，从A6开始往下区域和从i=1往下大小不一样，一般数组用arr之类的，字符串采用str，定义习惯有点反常人

武松打鼓

小凡、、、 发表于 2024-9-12 17:14
循环用下标，从A6开始往下区域和从i=1往下大小不一样，一般数组用arr之类的，字符串采用str，定义习惯有点 ...

要不说是找的呢

smuuwl

把 For i = 1 To lastRow  改为  For i = 1 To UBound(str)


lastRow是表格最后使用行，不是数组的下标，你循环肯定出错。

武松打鼓

Sub B列取不重复值到u6列()
  Dim d As Object
  Dim lastRow As Long
  Dim i As Long
  Dim arr As Variant
  Dim strKey As String
  Set d = CreateObject("scripting.dictionary")
  lastRow = Range("A65536").End(xlUp).Row
  arr = Range("b1:b" & lastRow)
  For i = 6 To UBound(arr)
      strKey = CStr(arr(i, 1))
      If Not d.exists(strKey) Then
         d.Add strKey, strKey
      End If
  Next i
  [u:u].ClearContents
  Range("u6:u100").HorizontalAlignment = xlCenter '水平居中
  Range("u6").Resize(UBound(d.keys) + 1, 1) = Application.Transpose(d.keys)
End Sub