我已复制并修改了此宏,以将表“边距”中的第3行(从A到AZ列)复制到与表“ Raw_Data”中的数据一样多的行,但是我得到了
运行时424错误。
Sub EndRow_Stuff()
Dim EndRow As Long
' sets EndRow to last cell in column A's row number
EndRow = Raw_Data.Range("A" & Rows.Count).End(xlUp).Row
' autofill to range set by EndRow in Sheet1
Margin.Range("B2").AutoFill Destination:=Range("A3:AZ" & EndRow), Type:=xlFillDefault
End Sub