Question

有人可以给我VBA代码来帮助我解决以下问题吗？

我有一个名为data的数组，列中有一些重复的值：

输入

data()= 

  {

       0,0,0,a,b,a,c,b,c,d,0,0

       0,0,0,1,2,1,9,2,9,4,0,0

       0,0,0,r,g,r,w,g,t,w,0,0

}

我想使用arr数组的非重复值的信息填充多维data。

并且：不考虑零值，并且从重复的值中选择哪个值（因为列相等）确实很重要

输出

arr()=
 {

       a,b,c,d

       1,2,9,4

       r,g,w,w

}

Answer 1

从一个多维数组到另一个多维数组的唯一方法（使用2个词典，内部得到独特的，外部将它们保持在字符串中）

Option Explicit

Public Sub GetUniquesFromMultiDimArray()
    Dim arrData As Variant, arrUniques As Variant, itm As Variant

    arrData = Array(Split("0,0,0,a,b,a,c,b,c,d,0,0", ","), _
                    Split("0,0,0,1,2,1,9,2,9,4,0,0", ","), _
                    Split("0,0,0,r,g,r,w,g,t,w,0,0", ","))
    ShowArray arrData, 1

    Dim d1 As Object, d2 As Object, i As Long, j As Long, k As Long
    k = 1
    'each item in d1 holds a string of uniques
    Set d1 = CreateObject("Scripting.Dictionary")

    For i = LBound(arrData) To UBound(arrData)

        'each item in d2 holds non-zero uniques
        Set d2 = CreateObject("Scripting.Dictionary")

        For j = LBound(arrData(i)) To UBound(arrData(i))
            If arrData(i)(j) <> 0 Then d2(arrData(i)(j)) = vbNullString
        Next
        For Each itm In d2
            d1(k) = d1(k) & itm & ","           'example: "1,2,9,4,"
        Next
        d1(k) = Left(d1(k), Len(d1(k)) - 1)     'example: "1,2,9,4"
        k = k + 1
    Next
    ReDim arrUniques(1 To d1.Count)
    For i = 1 To d1.Count
        arrUniques(i) = Split(d1(i), ",")       'example: Array("1","2","9","4")
    Next
    ShowArray arrUniques, 2
End Sub

Private Sub ShowArray(ByRef arr As Variant, ByVal arrId As Long)
    Dim itm1 As Variant, itm2 As Variant, i As Long, j As Long

    Debug.Print "Start array " & arrId & " --------"
    For i = LBound(arr) To UBound(arr)
        For j = LBound(arr(i)) To UBound(arr(i))
            Debug.Print "arr(" & i & ")(" & j & ") = " & arr(i)(j)
        Next
    Next
    Debug.Print "End array   " & arrId & " --------" & vbCrLf
End Sub

输出：

Start array 1 --------
arr(0)(0) = 0
arr(0)(1) = 0
arr(0)(2) = 0
arr(0)(3) = a
arr(0)(4) = b
arr(0)(5) = a
arr(0)(6) = c
arr(0)(7) = b
arr(0)(8) = c
arr(0)(9) = d
arr(0)(10) = 0
arr(0)(11) = 0

arr(1)(0) = 0
arr(1)(1) = 0
arr(1)(2) = 0
arr(1)(3) = 1
arr(1)(4) = 2
arr(1)(5) = 1
arr(1)(6) = 9
arr(1)(7) = 2
arr(1)(8) = 9
arr(1)(9) = 4
arr(1)(10) = 0
arr(1)(11) = 0

arr(2)(0) = 0
arr(2)(1) = 0
arr(2)(2) = 0
arr(2)(3) = r
arr(2)(4) = g
arr(2)(5) = r
arr(2)(6) = w
arr(2)(7) = g
arr(2)(8) = t
arr(2)(9) = w
arr(2)(10) = 0
arr(2)(11) = 0
End array   1 --------

Start array 2 --------
arr(1)(0) = a
arr(1)(1) = b
arr(1)(2) = c
arr(1)(3) = d

arr(2)(0) = 1
arr(2)(1) = 2
arr(2)(2) = 9
arr(2)(3) = 4

arr(3)(0) = r
arr(3)(1) = g
arr(3)(2) = w
arr(3)(3) = t
End array   2 --------

（假设输出中的重复w是错误的，如评论中所述）

从多维数组中获取唯一值

1 个答案: