比较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