我正在尝试将一个工作表中的特定范围复制并粘贴到其他两个工作表中。这是一段似乎出错的代码:
row = ActiveWorkbook.Sheets("SheetX").Cells(Rows.Count, 3).End(xlUp).Row
ws.Range("A1", "J1").Copy
ActiveWorkbook.Sheets("Sheet1").Range("B2", "K2").PasteSpecial xlPasteValues
ActiveWorkbook.Sheets("SheetX").Range(Cells(row, 3), Cells(row,12)).PasteSpecial xlPasteValues
由于行数是动态的,因此“行”保留了我要粘贴到的行号。
问题是我在最后一行收到“应用程序定义的或对象定义的”错误,然后尝试将其粘贴到第二个工作表中。
当您运行Cells(row,3)时,您实际上是在ActiveSheet而不是Sheets(“ SheetX”)上调用Cells(row,3)。相反,您应该这样做:
row = ActiveWorkbook.Sheets("SheetX").Cells(Rows.Count, 3).End(xlUp).Row
ws.Range("A1", "J1").Copy
ActiveWorkbook.Sheets("Sheet1").Range("B2", "K2").PasteSpecial xlPasteValues
Range(ActiveWorkbook.Sheets("SheetX").Cells(row, 3), ActiveWorkbook.Sheets("SheetX").Cells(row,12)).PasteSpecial xlPasteValues
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句