rouber590324

DEAR SIR
¸ê®Æ¶q¤j¥ÎVBAÀ³¤ñ¸û§Ö
¦p¤U·|±N AÄæ¦Û°Ê¨Ì¦³¸ê®Æ¤§¦C¼Æ¨q¥XBÄæ+CÄæ
µM«á DÄæ¦Û°Ê¨q¥X¦³­«ÂФ§Àx¦s®æ¤º®eLIST(¥i¨Ì»Ý¨D§ï¬°¨ä¥LªFªF¨q¥X)

Sub AA()
X = Sheet1.[B65536].End(xlUp).Row
For A = 1 To X
Sheet1.Cells(A, 1) = Sheet1.Cells(A, 2) & Sheet1.Cells(A, 3)
Next
On Error Resume Next
Dim Myarr()
For Each A In Range([A1], [A65536].End(xlUp))
If WorksheetFunction.CountIf(Range([A1], [A65536].End(xlUp)), A) > 1 Then
    If WorksheetFunction.Match(A, Myarr, 0) = 0 Then
    ReDim Preserve Myarr(i)
    Set Myarr(i) = A
    i = i + 1
    End If
End If
Next
[D2].Resize(i, 1) = WorksheetFunction.Transpose(Myarr)
End Sub