1
我试图将一系列数据(即不断更新的)复制到不同工作表中的下一个空行以进行永久存储。 我的代码将工作,但它只会复制第一行,我需要它复制9行的范围。 在此先感谢!将一系列单元格复制到新工作表
Sub Export()
Dim Timestamp As Date
Dim lastrow As Integer
Dim raw_data As Variant
'Records all data to DBO
Timestamp = Now
raw_data = Sheets("Data").Range("A2:M10").Value
lastrow = Sheets("DBO").Range("B60000").End(xlUp).Row
Sheets("DBO").Range("A" & lastrow + 1) = Timestamp
Sheets("DBO").Range("B" & lastrow + 1, "N" & lastrow + 1).Value = raw_data
Workbooks("Board.xlsm").Save
End Sub
变化' “N” 与LASTROW + 1'到' “N” 与LASTROW + 9' –
就这么简单......感谢您的帮助! – Josh