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 "）。オートフィル先：=" E11：E "＆lastRow'。あなたは2番目の「E」を欠いていました。 –

私はEを追加しましたが、それでもエラーはスローされます。 –

あなたは範囲としてE11:E[lastRow]を宣言することを確認する必要があります。

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

出典

2016-05-23 16:51:01 BruceWayne

lolololololol編集：スコットのために話すことができないが、私は今残念に隠れるつもりです。 Edit2：しかし、2番目の 'E' = Pを見逃しました – findwindow

2番目の' E'を追加する必要があります。 'Range（" E11：E "＆lastRow）'しかし、私は自分自身を恥ずかしく思っています。良いキャッチ。 –

オブジェクト '_Global'のメソッド 'レンジ'が失敗しました：：\\これまでのところおかげでした！ –

Excel VBA - 範囲クラスの自動入力方法が失敗しました

答えて

関連する問題