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

我是vba的新手，不知道如何编码。我记录了一个宏，可以将指定的单元格从一个表格复制到另一个表格的单元格中，但它会一直粘贴到同一列中，并且我希望该粘贴到下一个打开的列中。这是我拥有的一切。宏从一张表复制并粘贴到另一张表中的下一个打开的列中

子平日（） ' ' 平日宏 '

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

来源

2016-12-13 Monu

提示...使用记录器，请尝试按Ctrl +向右箭头查找上次使用的列。 – Rdster

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

来源

2016-12-13 20:48:29 user3598756

我要替换表格（“结果”）。请选择您添加的内容吗？它给了我一个错误 – Monu

你用我的代替所有你显示的代码 – user3598756

这就是我所拥有的，我得到一个应用程序定义的错误表（“每日快照”）选择 With Sheets（“Results”） .Range（ 2，.Columns.Count）.End（xlToLeft）.Offset（，1）.Resize（4）.Value = Range（“J10：J13”）。Value End With – Monu

如果更改：

Range("C2").Select

通过

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

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

来源

2016-12-13 21:21:37

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

回答

相关问题