將多個範圍從工作表複製到另一個工作表

我試圖將多個單元格從一個工作表複製到另一個工作表。我收到錯誤消息錯誤的參數數量或無效的屬性分配。將多個範圍從工作表複製到另一個工作表

Range("D10:D12,D15,D22,D25,D32:D33,D38:D42,D47:D50,D53,D55,D57,D63").Select 
Range("G3").Select 
Selection.Copy 
Sheets("Sheet3").Select 
'Range("I4").End(xlUp).Select 
lMaxRows = Cells(Rows.Count, "I", "AD").End(xlUp).Row 
Range("I", "AD" & lMaxRows + 1).Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=True 
Sheets("Sheet1").Select 
Range("I4", "AD").Select

希望能得到您的幫助。

我試過使用聯合，但不能拿出解決方案。這裏是我現在的代碼

Dim r1 As Range, r2 As Range, multiRange As Range 

Set r1 = Sheets("Sheet1").Range("D10:D12,D15,D22,D25,D32:D33,D38:D42,D47:D50,D53,D55,D57,D63") 
Set r2 = Sheets("Sheet1").Range("G3") 
Set multiRange = Union(r1, r2) 
Application.Union(r1, r2).Select 
Selection.Copy 
Sheets("Sheet3").Select 
'Range("I4").End(xlUp).Select 
lMaxRows = Cells(Rows.Count, "I").End(xlUp).Row 
Range("I" & lMaxRows + 1).Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=True 
Sheets("Sheet1").Select 
Range("I4").Select

我知道的錯誤消息是該命令不能用於多個選擇。的突出顯示的代碼是SELECTION.COPY

來源

2017-10-20 Vio Beltran

請在此處填寫完整的錯誤。 –

'Cells（Rows.Count，「I」，「AD」）。End（xlUp）.Row' This is invalid。 'Cells'只需要2個參數。它可以是「Cells（Rows.Count，」I「）」或「Cells（Rows.Count，」AD「）」。 – L42

爲什麼你的代碼中的第一行？下一行代替它。 ...如果可能的話，您應該始終完全限定對象屬性和方法...使用'Range（「G3」）。Copy'代替第2行和第3行 – jsotola

下面的代碼假定表（「工作表Sheet」）具有片代號「Sheet 1中」，以及用於表Sheet 3類似。（通常你應該在代碼中使用表單CodeName）。

Dim SourceArea As Range 
Dim TargetArea As Range 
Dim CopyRange As Range 

Set CopyRange = Sheet1.Range("D10:D12,D15,D22,D25,D32:D33,D38:D42,D47:D50,D53,D55,D57,D63") 

For Each SourceArea In CopyRange.Areas 
    Set TargetArea = Sheet3.Range(SourceArea.Address) 
    TargetArea.Value = SourceArea.Value 
Next

編輯：上面將粘貼在Sheet3中與Sheet1中的範圍完全相同的位置。如果要粘貼到其他位置，請使用「偏移」。例如，如果您希望目標左上角的單元格爲I20，則：

Set TargetArea = Sheet3.Range(SourceArea.Address).Offset(10,5)

來源

2017-10-20 08:54:49

在Sheet1.Range（「D10：D12，D15，D22，D25，D32：D33，D38：D42，D47：D50，D53，D55，D57，D63」）的範圍內可以在此處添加單元格嗎？並且在這個代碼中將在sheet3中粘貼數據？它會被粘貼在「我」嗎？ –

將多個範圍從工作表複製到另一個工作表

回答

相關問題