我试图将多个单元格从一个工作表复制到另一个工作表。我收到错误消息错误的参数数量或无效的属性分配。将多个范围从工作表复制到另一个工作表
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
请在此处填写完整的错误。 –
'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