老师帮忙看看我这代码问题出在哪里了

沈默00

字典还是要写一下标准的写法

沈默00

之前我也喜欢你这种写法，后来老师们说写的不规范，就改了，你试试

liulang0808

半百

saghj 发表于 2023-10-24 12:40
感谢，你的是对的。但是为啥..不是不能用数组作为key吗？

数组不能做为key，但数组的单（每）个元素可以呀

saghj

半百 发表于 2023-10-24 14:21
数组不能做为key，但数组的单（每）个元素可以呀

原来如此，还是看书不仔细

saghj

感谢以上老师们的回复

zhangcheng6688

学习一下，来一段数组的
arr = Range("a2:d" & Cells(Rows.Count, "d").End(xlUp).Row)
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 1 To UBound(arr)
    If arr(i, 1) <> "" Then
       m = m + 1
       For j = 1 To UBound(arr, 2)
            brr(m, j) = arr(i, j)
       Next
    For k = i + 1 To UBound(arr)
        If arr(k, 1) <> "" Then
           If arr(i, 1) = arr(k, 1) Then
               arr(k, 1) = vbNullString
            End If
        End If
    Next
    End If
Next
[g1].CurrentRegion.Offset(1).ClearContents
[g2].Resize(UBound(brr), UBound(brr, 2)) = brr
等数组学得差不多了，再来学字典

zhangcheng6688

学习一下字典，感谢
Sub test()
arr = [a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   ss = arr(i, 1) & arr(i, 2) & arr(i, 3) & arr(i, 4)
   If Not d.exists(ss) Then
      m = m + 1
      d(ss) = ""
      For j = 1 To UBound(arr, 2)
         brr(m, j) = arr(i, j)
      Next
    End If
Next
[g2].Resize(m, UBound(brr, 2)) = brr
End Sub