- ベストアンサー
エクセルマクロで空白行の一つ下の行を削除する方法
jcctairaの回答
- jcctaira
- ベストアンサー率58% (119/204)
kuskus_2さん こんにちは A列が完全に空白なら削除するようにしています。 ご確認ください。 Sub 空白削除() Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub
関連するQ&A
- エクセルで下の空白行を削除したい
エクセルで１００行までの表を作成しました。何度か行削除や行挿入をしているうちに、その下に３００行ほどの空白行ができてしまったようで、右にあるスライド（何というのか知りません）を下までもっていくと４００行のところまで飛んでしまいます。１００行のところはスライドのちょうど１/４位のところです。 本当はスライドを下まで持っていくと１００行でストップしてくれれば作業をしやすいのですが、直す方法はあるのでしょうか。 ３００行分削除しても直りません。
- ベストアンサー
- オフィス系ソフト
- Excelで空白行を削除するマクロは？
マウスやキーボードを使った記録式でマクロを作っています。 その中でシート上に散らばっている数十行の空白行を削除する行程が必要です。 しかし、マウスやキーに依るメニューでは「空白行の削除」と言うのが有りません。 VBEに直接打ち込まないといけない様です。 ステートメントが分かる方が要らしたら教えてください。
- ベストアンサー
- オフィス系ソフト
- アクティブになっている行をマクロで削除したい
特定の文字の入っている行とそれ以下の行全部を削除したいのですが どうしたらよいでしょうか 例えば"小計"の入っている行から下の行を削除したいのですが 行の位置はいつも違っています セルの位置は検索で分かりますし行の削除はShift+スペースで消し それより下はShift+ctrl+方向キー+delで出来るのですが それだとマクロで実行するときいつも同じ行を消してしまいます どの位置にも関係なくアクティブセルの含まれている行とそれ以下の行を マクロで削除するにはどのように記述すればいいですか
- ベストアンサー
- オフィス系ソフト
- エクセル マクロ 連続する空白行の削除
エクセルのマクロ処理で、連続する空白行を削除するにはどうしたらいいでしょうか。 行いたい処理は、データ間に存在する一行のみの空白行は残し、二行以上連続する空白行を一行の空白行に縮めるといったことです。
- ベストアンサー
- オフィス系ソフト
- excel マクロ ○○集計 の下に空白行を2行入れる
Win XP Office2000 マクロ初心者です。 エクセル集計機能を使って作った表の太字で表示される○○集計の 行の下に空白行を2行挿入したいのです。 普通に行の挿入をすると○○集計の上に入ってしまいます。 Sub 行の挿入() Selection.SpecialCells(xlCellTypeFormulas,).Select Selection.EntireRow.Insert End Sub このマクロに何かを加えるとできると思うのですが、よろしくお願いします
- 締切済み
- オフィス系ソフト
- Excelで空白行を削除したい
他の書類からExcelにコピペしたんですが、もとの書類の書式のせいか偶数行が全て空白行になっています。 実際に必要なデータは奇数行の各列に並んでいます。 見づらいので空白行（または偶数行でも同じ）を削除したいんです。 行数が５００を超えるので、一行づつ行の削除をやっていると大変な手間です。 一発でやる方法はないでしょうか？
- ベストアンサー
- オフィス系ソフト
- Excelの行削除について
A1のセルに「小計」という文字が入力してあり、A5にも「小計」という文字が入力してあるとします。 マクロを使いA2～A4を削除したときに「小計」が並びます 。 Ａ Ａ １ 小計 １ 小計 ２ ２ 小計 ３ → ３ ４ ４ ５ 小計 ５ このときに下の行にある小計を自動で削除する方法があれば教えてください。 Ａ Ａ １ 小計 １ 小計 ２ 小計 ２ ３ → ３ ４ ４ ５ ５ よろしくお願いします
- ベストアンサー
- オフィス系ソフト
- 【Excel VBA】一定数以上の空白行を削除する
お世話になります。 現在、見積用のVBAを作成していますが、行き詰った為、質問いたします。 ＜前提＞ ・作成する見積明細は横8列で、行数は入力する項目数により可変です。 ・印刷して提出する為に、カテゴリごとに小計をページ最下行に挿入します。 （1ページあたりの行数は見出しを含めず20行です。） ・各カテゴリ内の項目数により、項目の最下行と小計行の間に相応の空白行ができます。 （例１） 項目が5個の場合は14行の空白行、その下に小計が表示される（ページ数は1ページ） （例２） 項目が25個の場合は14行の空白行、その下に小計が表示される（ページ数は2ページ） ＜問題＞ ・19行以下の空白行はそのままにし、20行空白ができた場合に該当行を削除して、シートを整えることが目的です。（21行以上空白ができることはありません） ・20行の空白はランダムに発生し、数も不定です。 下から最下行を探して、その一つ上の行から更にその上を探して、 差分が20の場合に該当行を削除する・・・ を繰り返して、上に上がっていく処理をイメージしますが、力不足でまとめられません。 書き方のヒントだけでもご教示ください。 何卒、宜しくお願いします。
- ベストアンサー
- その他MS Office製品
- 空白行を削除するマクロ
空白行を削除するマクロについて質問です。 「Aが空白の場合」ではなく「A～Lセルすべてが空白の場合」に行を削除したいです。 下記のマクロでは、Aが空白の場合に行がすべて削除されてしまいます。 Aが空白でも、BやLに数字や文字があれば、その行は残るようにしたいです。 このマクロをどう変化させれば、うまく作業が実行されますか？ マクロは初心者です。よろしくお願いいたします。 ・・・・・・・・・・・・・・・・・・・・・・・・・・・・ sub macro1() dim s as long dim e as long dim r as long s = 5 e = range("A65536").end(xlup).row for r = e to s step -1 if application.trim(cells(r, "A")) = "" then cells(r, "A").entirerow.delete shift:=xlshiftup end if next r end sub
- ベストアンサー
- Excel（エクセル）
- EXCELマクロを使い、空白行ではさまれた範囲の数字を合計
下記のようなデータがあります。 条件 並び方：コード順 行数：変動する 見出し行の下とコードが変わる毎に空白行が1行あります。 マクロで空白行にコード毎の計と最後に合計を入れる方法を教えてください。 元データ コード 金額 1 10 1 20 1 50 2 40 2 20 2 30 3 50 3 10 マクロ実行結果 コード 金額 1 10 1 20 1 50 計 80 2 40 2 20 2 30 計 90 3 50 3 10 計 60 合計 230
- ベストアンサー
- オフィス系ソフト
お礼
すごいですね。 空白が一度でなくなりました。 いつもオートフィルターを使っていましたが、マクロでできるんですね。 ぜひぜひ、使わせていただきます。 ありがとうございました。