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

Question

Need help with a simple excel macro. I have data in sheet 1 column X1 through X20. I want to autmatically paste this information to column A and then when I update the numbers in Column XI want to paste this information to Column B and then to Column C... I only need to do this 12 times. Here is the simple macro I tried.

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

What about this?

Sub dothis()
    Dim c As Long
    For c = 1 To 12
        If Cells(1, c) = "" Then
            Range("X1:X20").Copy 
            Range(Cells(1, c), Cells(20, c)).Select
            Selection.PasteSpecial xlPasteValues
            selection.NumberFormat = "0.00"
            Exit Sub
        End If
    Next c
End Sub

Each time you run the macro it will check if cell 1 in columns A:L is blank and copy cells X1:X20 to the first empty column.

Answer 2

Use the Worksheet_Change event. With this event, each time you change column X, the code will fire and copy to columns A... B... C... And you will never have to manually run any code.

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

Place this code inside the Worksheet Module on the sheet where the data is located.