🎄teratailクリスマスプレゼントキャンペーン2024🎄』開催中!

\teratail特別グッズやAmazonギフトカード最大2,000円分が当たる!/

詳細はこちら
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

126閲覧

VBA 列が違うと型違いのエラーが出てしまう

temji

総合スコア14

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2021/03/11 02:20

編集2021/03/11 02:52

お世話になっております。
指定した列の最終行まで見て#N/Aだった場合は行を削除というVBAコードを作成しましたが、
C列を指定した場合は成功するが、B列を指定した場合、エラー13の型が違いますとでて処理ができません。
原因を特定できずに非常に困っております。
もしわかる方いらっしゃいましたら教えていただけますと幸いです。

追記:B列をコピーしてC列に張り付けて行ったところ(i, 3)でもエラーが発生しました。

For i = P To 1 Step -1       'Pには最終行の変数が入っています If Cells(i, 3) = "#N/A" Then       '(i, 3)だと成功するが(i, 2)だとエラーが出る Cells(i, 1).EntireRow.Delete End If Next

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

以下のように修正するとたぶん大丈夫。

VBA

1 If Cells(i, 3).Text = "#N/A" Then

投稿2021/03/11 03:43

jinoji

総合スコア4592

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

temji

2021/03/11 03:52

無事できました!とても助かります! ありがとうございました。
jinoji

2021/03/11 03:59

補足すると、 Cells(i, 3) だとCells(i, 3).Value と解釈され、#N/A のときは その型は Error型となり、 それをString型と比較しようとしてエラーになるということみたいです。 Cells(i, 3).Text だと、表示されている通りの"#N/A"の文字列がString型で取れます。 別解として、 If WorksheetFunction.IsNA(Cells(i, 3)) Then という手もあります。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.36%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問