Excel VBA - 範圍類的自動填充方法失敗

我試圖自動填充到一個變量，但我得到「範圍類的自動填充方法失敗」。Excel VBA - 範圍類的自動填充方法失敗

這裏是有問題的代碼：

Dim lastRow As Long 
Dim lastRow2 As Long 
    lastRow = Range("A" & Rows.Count).End(xlUp).Row 
    lastRow2 = Range("U" & Rows.Count).End(xlUp).Row 

    'change where this is accordingly 

'Delete columns 
    ActiveSheet.Range("C1,D1,F1,G1,H1,I1,L1,M1,R1,S1,V1,W1,Y1,Z1,AA1,AB1,AE1,AF1").EntireColumn.Delete 


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

    Range("E10, T10").Value = "Full Name" 
    Range("E11").Formula = "=CONCATENATE(C11 , "" "" , D11)" 
    Range("E11").AutoFill Destination:="E11:" & lastRow 'THIS LINE THROWS THE ERROR

問題是什麼嗎？

來源

2016-05-23 SQI- Stupid Questions inc

' 「E11：」＆lastRow'你需要一個列？添加一個'E'？編輯：斯科特明顯比我更好。 – findwindow

你缺少一個列引用：'Range（「E11」）。AutoFill Destination：=「E11：E」＆lastRow'。你錯過了第二個'E'。 –

我加了E但仍然拋出錯誤。 –

你需要確保申報E11:E[lastRow]的範圍：

Range("E11").AutoFill Destination:=Range("E11:E" & lastRow)

來源

2016-05-23 16:51:01 BruceWayne

lolololololol編輯：不能爲斯科特說話，但我現在要去掩飾恥辱。編輯2：但你錯過了第二個'E' = P – findwindow

你仍然需要添加第二個'E'; '範圍（「E11：E」＆lastRow）''但是我爲自己感到羞恥。接得好。 –

現在它拋出的對象'_Global'的方法'範圍'失敗...：\到目前爲止，儘管感謝！ –

Excel VBA - 範圍類的自動填充方法失敗

回答

相關問題