根据条件将1列替换为另一列

Question

我想用表1的第1列的相应值替换表2第1列中的值（与表1的第2列相同）。

SHEET 1             SHEET 2         RESULT SET  
    Col 1   Col 2           Col 1           Col 1
Row 1   A   1       Row 1   1       Row 1   A
Row 2   B   2       Row 2   2       Row 2   B
Row 3   C   3       Row 3   3       Row 3   C
Row 4   D   4       Row 4   4       Row 4   D
Row 5   E   5       Row 5   5       Row 5   E

希望我的问题不荒谬 先谢谢你``

Answer 1

我使用了macrorecorder然后稍微调整了一下代码。如果您有不同的行数，这将适应。希望这可以帮助！如果这不是你的意思，请告诉我。

Sub Macro1()
Dim Count As Double

Count = 1

While Range("A" & CStr(Count)) <> ""
    Count = Count + 1
Wend

Sheet1.Range("A1:A" & CStr(Count - 1)).Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste

End Sub