我无法使用自动在我的VBA代码

此代码给我错误1004和自动填充方法错误正确填写方法如果我删除第一自动填充方法，然后第二个自动填充工作正常，否则它给出了一个错误，我无法使用自动在我的VBA代码

Sub w() 

    Set ws1 = ActiveSheet 
    ws1.Columns("A:A").Insert Shift:=xlToRight, _ 
     CopyOrigin:=xlFormatFromLeftOrAbove 
    ws1.Range("A1").Value = "S.No" 
    ws1.Range("A1").Interior.Color = RGB(204, 204, 204) 
    LastRow = ws1.Cells(Rows.Count, "B").End(xlUp).Row 
    ws1.Range("A2").Select ws1.Range("A2").FormulaR1C1 = _ 
     "=TEXT(RC[1],""000000000000"")&""-""&TEXT(RC[2],""0000"")" 
    ws1.Range("A2").Select 
    Selection.AutoFill Destination:=Range("A2:A" & LastRow), Type:=xlFillDefault 
    ws1.Range("A2:A" & LastRow).Select 
    Set ws2 = Workbooks("Closing Asset Listing-Leading Ledger_Aug-17.xlsx").Worksheets(1) 
    LastRowclosing = ws2.Cells(Rows.Count, "B").End(xlUp).Row 

    ws2.Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 

    ws2.Range("A2").FormulaR1C1 = _ 
     "=TEXT(RC[6],""000000000000"")&""-""&TEXT(RC[7],""0000"")" 

    ws2.Range("A2").AutoFill Destination:=Range("A2:A" & LastRowclosing), Type:=xlFillDefault 
    Range("A2:A" & LastRowclosing).Select 
    ws1.Range("AB2").Select 
    ws1.Range("AB2").FormulaR1C1 = _ 
     "=VLOOKUP(RC[-27],'[Closing Asset Listing-Leading Ledger_Aug-17.xlsx]Sheet1'!R2C1:R13C12,12,0)" 

    ws1.Range("AB2").AutoFill Destination:=Range("L2:L" & LastRow), Type:=xlFillDefault 

    Range("AB2" & LastRow).Select 

End Sub

来源

2017-10-06 yashika vaish

您正在尝试自动填充到其他工作表上的范围。您的代码应该是：

ws2.Range("A2").AutoFill Destination:=ws2.Range("A2:A" & LastRowclosing), Type:=xlFillDefault

来源

2017-10-06 09:23:48 Rory

谢谢，罗里它的工作原理，但我的第三个自动填充的方法去修改之后仍然失败，请与也 –

帮助，也表明VLOOKUP更新用，如果我想我的表范围，直到最后一行与数据。 –

您不能从AB2自动填充到列L.您可能只需使用VLOOKUP的整个列。 – Rory

我无法使用自动在我的VBA代码

回答

相关问题