Excel表格中如何將AB兩列進行對比找到重復項，把A列中找到的重復項同行的B列數據放到B列重復項後的C列中？

假設我的表名“區劃”，在EFG三列中顯示整理後的數據

右鍵表名區劃，點擊查看代碼

輸入以下代碼：

Sub 區劃整理()

Dim i As Integer

Dim j As Integer

Dim x As Integer

Dim n As Integer

n = Application.CountA(Range("A:A"))

i = 1

x = 1

Do While i <= n

If Cells(i, 1) = "中國" Then

Cells(x, 5) = Cells(i, 1)

Cells(x, 6) = Cells(i, 2)

j = 1

Do While j <= n

If Cells(j, 1) = Cells(i, 2) Then

Cells(x, 7) = Cells(j, 2)

x = x + 1

End If

j = j + 1

Loop

End If

i = i + 1

Loop

End Sub

3.保存，會提示是否啟用宏功能，選“是”

4.視圖——宏——查看宏，選擇剛才編寫的宏區劃整理，點擊執行。