実行時エラー13 型が一致しません。エラー2029

質問

エクセルです。

A1に「=a」と文字が入っていて、
#NAME?
となります。

その状態でvbaで
セルA1に「=a」が入っているのなら
としたい為、

Sub test()

If Cells(1, 1) = "=a" Then
End If

End Sub

こうしたのですが、

実行時エラー13　型が一致しません。

になります。

ｖｂａ中断中に、Cells(1, 1)の部分にマウスカーソルを当ててみると

エラー　2029　となっています。

If Cells(1, 1) = "=a" Then
が無理なら、
If Cells(1, 1) = "#NAME?" Then
なら行けるかな？と思いましたが、
全く同じエラーになります。

最終的に何がやりたいかと言うと、

Sub test()

If Cells(1, 1) = "=a" Then
Rows(1).delele
End If

End Sub

のように、#NAME?の場合は、その行を削除したいです。

回答No.3

MSZ006 · ベストアンサー

少し話がずれるかもしれませんが、

＞A1に「=a」と文字が入っていて、
＞#NAME?
＞となります。

このようになるのは、「=a」が文字列ではなくて、「aという名前のついたセルを参照して表示する」という計算式になっているからです。そして、aという名前のついたセルが存在しないため「#NAME?」と表示されるのです。

A1セルの表示形式を「文字列」にすれば、A1セルに「=a」と表示されます。

お礼

回答ありがとうございました。

回答No.2

keithin

＞#NAME?の場合は、その行を削除したいです。

if range("A1").text = "#NAME?" then　rows(1).delete

とかで十分です。

#NAME?の識別にこだわらなければ
if iserror(range("A1")) then
でもイイと思いますが。

お礼

回答ありがとうございました。

回答No.1

f272

If Cells(1, 1).Formula = "=a" Then
Rows(1).delele
End If
または
If Cells(1, 1).Value = CVErr(xlErrName) Then
Rows(1).delele
End If
とすればいいんじゃないかな？

お礼

回答ありがとうございました。