根据另一张纸中的行数向下复制行

时间:2019-09-20 00:42:37

标签: excel vba

我已复制并修改了此宏,以将表“边距”中的第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

0 个答案:

没有答案