宏從一張表複製並粘貼到另一張表中的下一個打開的列中

我是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

宏從一張表複製並粘貼到另一張表中的下一個打開的列中

回答

相關問題