复制并粘贴到特定空白列的 Excel 宏

Question

需要一个简单的 excel 宏的帮助。我在第 1 列 X1 到 X20 中有数据。我想自动将此信息粘贴到 A 列，然后当我更新 X 列中的数字时，我想将此信息粘贴到 B 列，然后再粘贴到 C 列...我只需要这样做 12 次。这是我尝试过的简单宏。

Workbooks("copynpaste2.xlsm").Sheets("Sheet1").Range("X1:X20").copy _ 
destination:=Workbooks("copynpaste2.xlsm").Sheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)

Answer 1

使用 Worksheet_Change事件。使用此事件，每次更改 X 列时，代码都会触发并复制到 A...B...C... 列，您将永远不必手动运行任何代码。

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("X1:X20")) Is Nothing Then 'only do this when making changes to X1:X20

    Application.EnableEvents = False

    If IsEmpty(Me.Range("A1")) Then

        Me.Range("A1:A20").Value = Me.Range("X1:X20").Value

    ElseIf IsEmpty(Me.Range("B1")) Then

        Me.Range("B1:B20").Value = Me.Range("X1:X20").Value

    Else

        Me.Range("A1:A20").End(xlToRight).Offset(, 1).Value = Me.Range("X1:X20").Value

    End If

    Application.EnableEvents = True

End If

将此代码放在 Worksheet Module 中在数据所在的工作表上。