LV超3A名牌購物網

版大好:
版大好:
1)下列使用按鈕設定.
2)工作表_假設是_Sheet1/Sheet2/Sheet3
比對=Sheet1與Sheet2的資料.填到Sheet3
請將_Sheet1/Sheet2/Sheet3改回你實際使用的工作表名稱.

Private Sub CommandButton3_Click()
Dim C%
Dim S$
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
For C = 2 To .[A65536].End(xlUp).Row
S = .Range("A" & C)
Dic(S) = .Range("B" & C) & "," & .Range("C" & C)
Next
End With: C = 0: S = ""
With Sheets("Sheet2")
For C = 2 To .[A65536].End(xlUp).Row
S = .Range("A" & C)
If Dic(S) <> "" Then Dic(S) = Dic(S) & "," & .Range("B" & C) Else Dic(S) = ",," & .Range("B" & C)
Next
End With: C = 0: S = ""
arr = Dic.ITEMS
ReDim K(1 To UBound(arr) + 1, 1 To 3)
For I = 0 To UBound(arr)
For C = 0 To UBound(Split(arr(I), ","))
K(I + 1, C + 1) = Split(arr(I), ",")(C)
Next
Next
Sheets("Sheet3").[B2].Resize(Dic.Count, 3) = K
Sheets("Sheet3").[A2].Resize(Dic.Count, 1) = Application.Transpose(Dic.KEYS)
Erase K()
Set Dic = Nothing
End Sub

LV超3A名牌購物網
arrow
arrow
    全站熱搜

    方志遠 發表在 痞客邦 留言(0) 人氣()