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

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

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

[[20161014184358]]: #score: 10842; @digest: 6162b701df65518fda5ba44d42b97f2c; @id: 71810; @mdate: 2016-10-14T10:11:10Z; @size: 1494; @type: text/plain; #keywords: brano (7620), rino (7107), 属? (7005), ご15 (2227), 行飛 (1949), 境目 (1842), 行- (1806), ー値 (1657), 行). (1649), （# (1629), 御回 (1361), （ri (1249), 行挿 (1226), 早急 (1209), 決致 (1139), ん10 (1027), 列) (898), 行as (851), 所属 (843), 様早 (833), 答頂 (744), ー' (715), 行, (667), 示願 (656), 行= (600), 所、 (585), 列= (582), た所 (577), 一発 (575), 消去 (492), 値（ (489), エラ (460); 『マクロで行挿入』（RINO BRANO）
初めて投稿させて頂きます。 A列 B列りんご 100 りんご 150 りんご 200 りんご 100 みかん 100 みかん 100 もも 100 りんご 150 このような書式の時に、A列の名称が変わる境目で1行挿入するマクロがあればご教示願います。こちらの過去の質問で似たようなのがあり、それを参考にしてみたのですが実行時エラー'13' 型が一致しません。というメッセージがでてきてしまいました。下記のマクロでどこか不具合はありますでしょうか? Sub 一行飛ばし() Dim 行 As Long Const 列 = 1 '所属?Vの列 For 行 = Cells(Rows.Count, 列).End(xlUp).Row To 3 Step -1 If Cells(行, 列) <> Cells(行 - 1, 列) Then Rows(行).Insert End If Next 行 End Sub どなたか教えて頂ければ大変助かります。よろしくお願い致します。＜使用 Excel:Excel2013、使用 OS:Windows7 ＞ ---- データは2行目から存在するんでしょうかね。いずれにしても、1行目からデータであっても、2行目からデータであってもアップされたコード、問題なく実行されますが?? （β） 2016/10/14(金) 19:05 ---- A列のどこかにエラー値（#N/A とか）があるのでは? エラー値であれば、それを比較しようとしているところで 13 エラーになりますが。（β） 2016/10/14(金) 19:07 ---- β様早急に御回答頂きありがとうございます!! 解決致しました! A列を確認した所、まさにエラー値（#N/A）がありました。消去した所、一発でマクロが実行されました。本当にありがとうございます。（RINO BRANO） 2016/10/14(金) 19:11 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201610/20161014184358.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ