
VBA初心者ですので用語間違い等はご容赦ください。
Vlookupしたときに#N/Aの行を削除する以下の処理を行いたいと思っています。
(一部公開用に改変しています)
Sub CCC()
With ThisWorkbook.Worksheets("sheet")
Dim endrow As Variant
endrow = .Cells(Rows.Count, 1).End(xlUp).row
.Range("I1:I" & endrow) = "=VLOOKUP(C1, table!B3:D1000, 3, FALSE)"
.Range("I1:I" & endrow).Value = .Range("I1:I" & endrow).Value
Dim i As Long
For i = endrow To Step -1
If IsError(.Cells(i, 9)) Then
Rows(i).Delete
End If
Next i
End Sub
このSubを単体で実行した場合は特に問題なく想定通りの動作になるのですが、
下記のように一連処理のため別SubからCallすると、なぜか対象の行がDeleteされず残ってしまいます。
sub main()
Call AAA
Call BBB
Call CCC
Call DDD
End Sub
本件について何か知見がある方いらっしゃいましたらご教示いただけますと幸いです。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
教えて!gooグレードポイントがdポイントに変わります!
dアカウント連携を行っていただくと、グレードに応じて「dポイント」が進呈されるようになります。
-
VBAでtxtファイルを読み込む際にtabを認識したい
Visual Basic(VBA)
-
Excel VBAでフォルダ内の全テキストファイルの任意データを取得について
Visual Basic(VBA)
-
Excelマクロのコードができる方に質問します。
Visual Basic(VBA)
-
4
VBAで、オートフィルタで非表示になっている行の高さを取得したい
Visual Basic(VBA)
-
5
VBA RemoveDuplicatesで「アプリケーション定義またはオブジェクト定義のエラーです」
Visual Basic(VBA)
-
6
VBA リストボックスをダブルクリックしデータを修正したいのですが…。
Visual Basic(VBA)
-
7
VBA public変数はどのようなことをしたら解放されますか?
Visual Basic(VBA)
-
8
Excelマクロ 行の削除
Visual Basic(VBA)
-
9
vba 環境依存文字がListViewボックスに設定すると化ける
Visual Basic(VBA)
-
10
基準となる列を参照して、別の列の順序を並び替えたい
Excel(エクセル)
-
11
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
12
VBAのコードについて
Visual Basic(VBA)
-
13
Excelマクロ&VBAでユーザーフォームで3択問題を作ってみました。
Visual Basic(VBA)
-
14
VBAの質問です! 転記元のセルが結合の場合にはどうしらちゃんと転記されますでしょうか? d4とd5
Visual Basic(VBA)
-
15
Excel VBAのFunctionについて
Visual Basic(VBA)
-
16
【VBA】複数行あるカンマ区切りのデータを全て縦に一列に並べたい
Visual Basic(VBA)
-
17
VBAで教えて頂きたいのですが?
Visual Basic(VBA)
-
18
VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい
Visual Basic(VBA)
-
19
デスクトップ上に同じフォルダ名とファイル名で保存ができない
Excel(エクセル)
-
20
IF文の管理を簡単にしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
VBAを使って複数のシートから抽...
-
5
EXCELのSheet番号って変更でき...
-
6
VBAでのピボットテーブルの範囲...
-
7
Excel2013で切り取り禁止
-
8
VBAで変数の数/変数名を動的に...
-
9
VBAで質問ですが、皆さんはどの...
-
10
【VBA】特定の条件でセルをコピー
-
11
Excelで横書き50行の漢字テス...
-
12
VBAのグラフに違うシートの...
-
13
EXCEL VBA 転記 条件分岐 新...
-
14
マクロ実行後に別シートの残像...
-
15
Excel VBAで、散布図のデータ範...
-
16
VBA webクエリをループさせる...
-
17
1004RangeクラスのPasteSpecial...
-
18
Excelのシート別でのセルのリン...
-
19
VBAでEXCELから固定長...
-
20
VBA オートフィルター繰り返し
おすすめ情報
公式facebook
公式twitter
誤りがありました。
.Range("I1:I" & endrow).Value = .Range("I1:I" & endrow).Value
で値に変換はしていません。