教程：如何使用VBA宏在Excel中比較兩列中的數(shù)字并寫入第三列

在這個教程中，我們將學(xué)習(xí)如何創(chuàng)建一個VBA宏，該宏會比較Excel工作表中A列和B列的單元格值，并將共有的數(shù)字寫入C列的相應(yīng)單元格。

步驟如下：

1. 打開Excel并打開你需要處理的工作表。

2. 按Alt + F11鍵打開VBA編輯器。

3. 在VBA編輯器中，點擊菜單欄的插入選項，然后選擇模塊，創(chuàng)建一個新的模塊。

4. 在新的模塊中，復(fù)制并粘貼以下代碼：

Sub CompareAndWriteCommonNumbers()

??Dim rng As Range

??Dim i As Long

??Dim cell As Range

??Dim AValues As Variant

??Dim BValues As Variant

??Dim commonValues As String

??Dim aValue As Variant

??Dim bValue As Variant

??Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:B5")

??For Each cell In rng.Rows

????AValues = Split(cell.Cells(1, 1), ",")

????BValues = Split(cell.Cells(1, 2), ",")

?????

????commonValues = ""

?????

????For Each aValue In AValues

??????For Each bValue In BValues

????????If aValue = bValue Then

??????????commonValues = commonValues & aValue & ","

????????End If

??????Next bValue

????Next aValue

?????

????' Remove the trailing comma

????If Len(commonValues) > 0 Then

??????commonValues = Left(commonValues, Len(commonValues) - 1)

????End If

?????

????cell.Cells(1, 3).Value = commonValues

??Next cell

End Sub

5. 請將上述代碼中的"Sheet1"替換為你需要處理的工作表的名稱。

6. 現(xiàn)在關(guān)閉VBA編輯器，回到Excel工作表，按Alt + F8鍵，從彈出的宏列表中選擇CompareAndWriteCommonNumbers，然后點擊運(yùn)行。

注意：請確保你已經(jīng)保存了你的Excel工作表，因為VBA宏可能會更改數(shù)據(jù)，這個操作無法撤銷。

你的宏已經(jīng)準(zhǔn)備好了！這個宏將會處理A列和B列的第1行至第5行，將共有的數(shù)字放入C列的相應(yīng)單元格。

最后，記住，這個宏假設(shè)你的數(shù)字都是以逗號分隔的，并且沒有空格。如果你的數(shù)據(jù)有空格，例如'1, 2, 3'而不是'1,2,3'，你可能需要先刪除這些空格。