編輯:看完評論後: 這是一個更簡單的方法來複制一系列單元格,然後將特殊(值)粘貼到其他位置。我獲得了這個代碼,我完全記錄了一個宏。
Sub Macro1()
Range("A1:C3").Select
Selection.Copy
Cells(10,"D").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
如果您打算複製到任何activecell是D10的範圍,然後點擊更改
Cells(10, "D").Select
到
Cells(10, "D").copy
你還需要指定你想要什麼特殊粘貼(值?格式?) 因此,您的完整代碼應該像
Sub routine()
Dim rng As Range
Set rng = ActiveCell.CurrentRegion
Cells(10, "D").Copy
rng.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'This will only paste values
Application.CutCopyMode = False
End Sub
您沒有先複製粘貼? – Ahmad
您的錯誤「剪貼板上的數據大小和形狀不一樣」? – brettdj
從您的示例數據中,一個簡單的'ActiveCell.CurrentRegion.Copy單元格(10,「D」)'將進行復制和粘貼。 「轉置」就像艾哈邁德的代碼樣本 – brettdj