比較sheet1和sheet2中的單元格值，然后在sheet3中輸出具有相同值的整行單元格

Question

你能幫我解決我的顧慮嗎？ 我有 3 張， sheet1 ，sheet2 和 sheet3 。 我想比較sheet1和sheet2中的excel值或文本。 Sheet1 包含從 A 列到 C 列的值。但唯一需要與工作表 2 列 A 進行比較的值是在工作表 1 中的 A 列中的值。 一旦兩列（sheet1 中的 A 和 sheet2 中的 A）比較相同的值，輸出將顯示在 sheet3 中。 將顯示兩列（A sheet1 和 sheet2）的相同值，包括列 B 和 C 中的值。 我的代碼正在運行，但不能在 B 列和 C 列中包含相同值的值。 感謝你給與我的幫助。

表1：

columnA | columnB |    columnC

C2S3    |   L9     |    number 229 available

C2S14   |   LBS    |    number 221229 available

C2S17   |   LQP    |    number 222726 available


C3S90   |   LQSH2  |    number 222729182 available

C3S91   |   LQSH2  |    number 222729190 available

C3S9    |   PLR    |    number 262228 available

C3S10   |   RFFH   |    number 28161618 available

C3S11   |   BWT1s  |    number 123330129 available

表2：

columnA |

C2S3

C2S14

C2S17

C3S1

C3S5

C3S9

C3S10

C3S11

C3S12

C3S14

C3S15

sheet3 輸出：

C2S3    |   L9    |    number 229 available

C2S14   |   LBS   |    number 221229 available

C2S17   |   LQP   |    number 222726 available



C3S9    |   PLR   |    number 262228 available

C3S10   |   RFFH  |    number 28161618 available

C3S11   |   BWT1s |    number 123330129 available

這是我的代碼：

Private Sub CommandButton1_Click()

Dim oldRow As Integer

Dim newRow As Integer

Dim i As Integer

i = 1 

For oldRow = 1 To 300

    For newRow = 1 To 300

        If StrComp((Worksheets("Sheet1").Cells(oldRow, 1).Text),
        (Worksheets("Sheet2").Cells(newRow, 1).Text), vbTextCompare) <> 0 
        Then

             i = oldRow

             Worksheets("Sheet3").Cells(i, 3) = "" 'clear the cells

        Else

            Worksheets("Sheet3").Rows(newRow).Value = 
            Worksheets("Sheet2").Rows(newRow).Value 

            i = i + 1

            Exit For

        End If

    Next newRow

Next oldRow

MsgBox "Done Compare", vbOKOnly

End Sub

Answer 1

試試這個，看看它是否有效。 我無法遵循您代碼中的某些邏輯。 我認為我的建議應該將 Sheet3 中 oldRow 的 A、B 和 C 列設置為 Sheet1 中 oldRow 的值。

你在哪里有這些代碼行。

        Worksheets("Sheet3").Rows(newRow).Value = 
        Worksheets("Sheet2").Rows(newRow).Value 

試試這個，看看它是否適合你。

    Worksheets("Sheet3").Cells(oldRow, 1).Value = Worksheets("Sheet1").Cells(oldRow, 1).Value
    Worksheets("Sheet3").Cells(oldRow, 1).Offset(0, 1).Value = Worksheets("Sheet1").Cells(oldRow, 1).Offset(0, 1).Value
    Worksheets("Sheet3").Cells(oldRow, 1).Offset(0, 2).Value = Worksheets("Sheet1").Cells(oldRow, 1).Offset(0, 2).Value