[已解决]用VBA把字典改写成纯数组

laoau138

用VBA把字典改写成纯数组

最佳答案

月排行榜 / 总排行榜

wenzili

2017-3-13 12:50

Sub test()
Dim alldada As Variant
Dim r As Integer
Dim c As Integer
Dim i As Integer

i = 1
alldada = ActiveSheet.UsedRange
For c = 2 To UBound(alldada, 2)
    For r = 2 To UBound(alldada, 2)
        If alldada(c, 1) = alldada(r, 2) Then
        Exit For
        End If
        If r = UBound(alldada, 2) Then
        i = i + 1
        Cells(i, 3) = alldada(c, 1)
        End If
        
    Next
Next

   


End Sub

跳转到最佳答案楼层

wenzili

Sub test()
Dim alldada As Variant
Dim r As Integer
Dim c As Integer
Dim i As Integer

i = 1
alldada = ActiveSheet.UsedRange
For c = 2 To UBound(alldada, 2)
    For r = 2 To UBound(alldada, 2)
        If alldada(c, 1) = alldada(r, 2) Then
        Exit For
        End If
        If r = UBound(alldada, 2) Then
        i = i + 1
        Cells(i, 3) = alldada(c, 1)
        End If
        
    Next
Next

   


End Sub