宏从一张纸复制并粘贴到另一张纸的下一个打开列中

Question

我是vba的新手并且不知道如何编码。我记录了一个宏来将指定的单元格从一个工作表复制到另一个工作表的单元格中，但它会不断粘贴到同一列中，我希望粘贴到下一个打开的列中。这就是我的全部。

Sub Weekday（） ＆＃39; ＆＃39;平日宏 ＆＃39;

Range("J10:J13").Select
Selection.Copy
Sheets("Results").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Answer 1

With Sheets("Results")
    .Cells(2, .Columns.count).End(xlToLeft).Offset(, 1).Resize(4).Value = Range("J10:J13").Value
End With

Answer 2

如果你改变：

Range("C2").Select

通过

c = Cells(2, 3).End(xlToRight).Column + 1
Cells(2, c).Select

c是一个整数。它为您提供第2行中下一个空列的编号。