エクセルの学校：全文検索：Hyper Estraier：エラー値 #N/A

Results of 1 - 1 of about 228 for エラー値 #N/A (0.017 sec.)

エラー値 (861), #n/a (1385)

[[20190225001440]]: #score: 10842; @digest: 166a4f1ac16b8b747df3f15f181dfb56; @id: 78743; @mdate: 2019-02-25T13:39:33Z; @size: 4348; @type: text/plain; #keywords: 元案 (21167), 05cverr (15765), 示wi (11279), 除if (7267), 二言 (6676), 言二 (6425), ー20 (4127), 理fo (4123), tipsfound (3304), ー判 (3122), ー値 (2761), 明示 (2474), 象セ (2104), クポ (2074), プ処 (1894), ブレ (1818), entirerow (1558), 「# (1366), プ内 (1234), 対象 (1217), lastrow (1149), 判定 (1118), workbooks (1033), を明 (1031), エラ (1012), ポイ (959), ラー (944), 一言 (931), ラミ (905), cells (858), 月) (794), 削除 (791); 『VBA #N/Aを含んでいる行を削除』（VBA初心者）
VBAで、vlookupでエラーが出た、H列の#N/Aを含んでいる行を削除したいので、下記のプログラミングを実行しましたが、型が一致しませんとエラーが出ます。どこを修正すればよいかご教示ください。 Sub test() Dim i As Long Dim lastRow As Long lastRow = Workbooks("1.xlsx").Sheets("Sheet1").Cells(Rows.Count, 8).End(xlUp).Row For i = lastRow To 1 Step -1 If InStr(Cells(i, "H"), "#N/A") Then Cells(i, "H").EntireRow.Delete End If Next i End Sub ＜使用 Excel:Excel2013、使用 OS:Windows10 ＞ ---- 判定の部分に、cverr関数使ってみてはいかがでしょう? https://www.tipsfound.com/vba/05cverr 他に懸念点がありますので、一言二言ループ内のCellオブジェクトに、シート名の記述がないので、アクティブなシートで判定されると思います With Workbooks("1.xlsx").Sheets("Sheet1") で括るなど、工夫が必要そうですデリートですが、セルが削除させると再計算が行われます一度手動にしてから実行された方が処理速度が早くなると思いますまた、UnionメソッドなどでRangeオブジェクトをまとめて最後に削除など、いくつかやり方があると思うので調べてみてください（稲葉） 2019/02/25(月) 06:04 ---- ちょっと表現間違えました Cellはオブジェクトじゃなくて、関数でしたすみません（稲葉） 2019/02/25(月) 07:14 ---- NAエラー判定の部分だけ。 If WorksheetFunction.IsNA(Range("H" & i).Value) Then でどうでしょうか。（ろっくん） 2019/02/25(月) 09:17 ---- Textプロパティを明示する手も。 If InStr(Cells(i, "H").Text, "#N/A") Then （???） 2019/02/25(月) 11:18 ---- 出遅れた感がありますが、投稿しておきます。型が一致しないと出るのは、「#N/A」が【文字列】ではなく、「エラー値」と呼ばれる型?であるからですねやり方はいくつかありますが、まず文字列として扱いたいのであれば、CDtr関数で変換してしまうという手があります。ただし、「#N/A」の場合返ってくるのは「エラー 2042」という文字列になるので注意が必要です。（お使いのバージョンにより違いがあるかもです） Sub さんぷる1() Dim i As Long Stop '←ブレークポイントのかわり '▼対象のシートを明示 With ActiveSheet '▼元案のとおり下から上にループ処理 For i = .Cells(.Rows.Count, "H").End(xlUp).Row To 1 Step -1 '▼対象セルの値が「#N/A」ならその行を削除 If CStr(.Cells(i, "H").Value) = "エラー 2042" Then .Cells(i, "H").EntireRow.Delete End If Next End With End Sub これを踏まえて、エラー値をわざわざ文字列として扱う必要が無く、#N/A 以外のエラーもひっくるめて対象としてよいのであれば、こんな感じでOKです。 Sub さんぷる2() Dim i As Long Stop '←ブレークポイントのかわり '▼対象のシートを明示 With Workbooks("1.xlsx").Sheets("Sheet1") '▼元案のとおり下から上にループ処理 For i = .Cells(.Rows.Count, "H").End(xlUp).Row To 1 Step -1 '▼対象セルの値がエラー値ならその行を削除 If IsError(.Cells(i, "H").Value) Then .Cells(i, "H").EntireRow.Delete End If Next End With End Sub そうでなくて、あくまでエラー値のうち「#N/A」だけ対象にしたいということであれば、もう一手間加えてこんな感じではどうでしょう? Sub さんぷる3() Dim i As Long Stop '←ブレークポイントのかわり '▼対象のシートを明示 With Workbooks("1.xlsx").Sheets("Sheet1") '▼元案のとおり下から上にループ処理 For i = .Cells(.Rows.Count, "H").End(xlUp).Row To 1 Step -1 '▼対象セルの値がエラー値であるかをまず判定 If IsError(.Cells(i, "H").Value) Then '▼さらに「#N/A」であるかを判定して、真なら行を削除 If .Cells(i, "H").Value = CVErr(xlErrNA) Then .Cells(i, "H").EntireRow.Delete End If End If Next End With End Sub 【参考】 https://qiita.com/nukie_53/items/6c2d9d4699149bebe863 https://www.tipsfound.com/vba/05cverr 私にはなかった発想ですが、???さんのように、textプロバティを使うというのもありですね。（もこな2） 2019/02/25(月) 11:47 ---- 皆様ありがとうございます。無事できました。（VBA初心者） 2019/02/25(月) 22:39 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201902/20190225001440.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ