將行值從 sheet1 復制到 sheet2 列

Question

Sheet1.activate
Sheet1.range("C4：H4").select
selection.copy
Sheets("Sheet2").select
Range("C4:C9").pasteSpecial

這是我試過的代碼，它不起作用。

Answer 1

嘗試用下面的代碼替換最后兩行代碼。 您將需要 Transpose 參數。

Sheets("Sheet2").Range("C4:C9").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Sheets("Sheet2").activate

Answer 2

首先請避免使用 Select 語句，試試這個

Sheets(1).Range("C4:H4").Copy
Sheets(2).Range("C4:H4").PasteSpecial 

沒有必要使用 select 和 Range。

如果您只是復制，那么您也不必激活您的目標表。

有關詳細信息，請參閱 PasteSpecial 方法的文檔： VBA PasteSpecial