我正在尝试将数据从工作表"MAINSHEET“单元格M9复制到O9,并将其粘贴到工作表"COPYDATA”的B列。首先,它会将数据粘贴到B2,然后是B3,然后是B4,然后将继续...但它不会在下面,继续粘贴在B2单元格上。
Sub Copy()
Dim lastrow As Integer
lastrow = ThisWorkbook.Sheets("COPYDATA").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("MAINSHEET").Range("M9:O9").Copy
Worksheets("COPYDATA").Range("B" & lastrow + 1).PasteSpecial xlPasteValues
End Sub
发布于 2020-09-30 08:00:27
您正在计算第一列中的行数,但粘贴到第二列中,因此最后一行始终保持不变。
计算B列中的行数。
lastrow = ThisWorkbook.Sheets("COPYDATA").Cells(Rows.Count, 2).End(xlUp).Row
发布于 2020-09-30 08:07:36
试试这个:
Sub Copy()
Dim lastrow As Long
lastrow = ThisWorkbook.Sheets("COPYDATA").Cells(ThisWprkbook.Sheets("COPYDATA").Rows.Count, "B").End(xlUp).Row
Sheets("MAINSHEET").Range("M9:O9").Copy
Worksheets("COPYDATA").Range("B" & lastrow + 1).PasteSpecial xlPasteValues
End Sub
您需要修改代码以获取COPYDATA表的行数并使用列"B“。
https://stackoverflow.com/questions/64133126
复制相似问题