- ベストアンサー
Excelで空白行を削除したい
2500行位使用しているシートのなかに、どのセルも空白になっている不要な行が300行くらい混ざっています。 この行を自動的に削除するにはどうすれば良いでしょうか。 ただ、その行のA～Eセルは空白でもFセルに値が入っているなど完全に空白でない行は削除できません。 メニュー、関数、VBAなど有れば教えてください。
- popuran121
- お礼率76% (83/109)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
マクロで何もデータ、数式、コメントが入っていない行を削除するには↓です。 Sub DeleteBlankRows() Application.ScreenUpdating = False On Error Resume Next With Cells .SpecialCells(xlCellTypeConstants).EntireRow.Hidden = True .SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = True .SpecialCells(xlCellTypeComments).EntireRow.Hidden = True .SpecialCells(xlCellTypeVisible).EntireRow.Delete .EntireRow.Hidden = False End With Application.ScreenUpdating = True End Sub 詳しくは↓をご覧ください。 エクセル技道場－空白行を行削除 http://www2.odn.ne.jp/excel/waza/macro.html#SEC4
関連するQ&A
- エクセルで空白セルを寄せたい
エクセル２００２使用です ＶＢＡは使わずに関数だけで空白セルがあるセルを詰めて表示したいのですが・・・ Ａ｜Ｂ｜Ｃ｜Ｄ｜Ｅ｜Ｆ｜Ｇ １ あ い う え お か き ２ ○ ○ ○ ○ の表を Ａ｜Ｂ｜Ｃ｜Ｄ｜Ｅ｜Ｆ｜Ｇ １ あ う え か ２ ○ ○ ○ ○ のように表を書き換えたいのです。 1行目には必ず文字が入力されています。 2行目には入力されているセルと空白セルが不定期に入力されています。 2行目のセルが空白ならば、1行目のセルも削除して左へ詰めて 表を転記したいのです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel 空白行を上に詰めるマクロ
関数を使用して、sheet1からsheet2に必要なデータを抜き取りました。 sheet２のセルには関数が入っています。 sheet2の抽出データには１行単位（まれに２～３行続けて）空白が発生します。 この行を削除し、かつ上に詰めて表示をしたいのですが、下記の条件で実行可能でしょうか？ （例） sheet1 ⇒ sheet2 A B C A B C 1 あ い う 1 あ い か 2 か 2 （空白行） 3 き く け 3 き く し 4 こ さ し 4 （空白行） ●２行目、４行目を削除し、且つ５行目以降に入力されている関数は削除したくない ●空白行削除のマクロは自動？（sheet1のデータを変更したら）で実行できるようにしたい よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 空白のセルを行削除する。EXCELマクロなのですが・・
VBA初心者です。 データーをHPから、単純にコピーしてきて、 EXCELに貼り付けています。 フィルターをかけても、画像かなにかがセルに張り付いているのか、 空白行をすべて削除できません。 いろいろ試して（HPから、空白セルの行削除について書かれてあるマクロを貼り付けて）動いたのが、このVBAです。 しかし、遅いので、早いVBAに簡略できればいいのですが。。 大体、1000行ぐらいの文字を貼り付けて、3/1ぐらいが空白行です。A行のセルの空白のみを、削除したいのですが。 まったくの素人なので、わかりません。 どうかよろしくお願いいたします。 Sub 空白の削除() x% = Worksheets("sheet1").Range("A65536").End(xlUp).Row For i = x% To 1 Step -1 If Worksheets("sheet1").Cells(i, 1).Value = "" Then Worksheets("sheet1").Rows(i).Delete Next End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBAで関数が入った空白セルの取得
エクセルVBAで下記のようなセルの参照をしたいのですが、よろしくお願いします。（エクセル２００２です） A B C D E F １ 78 80 セル（A1）（B1）には値も関数も入れられています。 セル（C1）（D1）（E1）には値は入っていませんが、ワークシート関数が組み込まれており空白となっています。（関数の""にて空白） セル（F1）には何も入力されていません。 今回はセル（B1）の80の値を取得できるようにVBAで下記のようにコードを組みました。 Range（"F1").End(elToLeft).Activate そうすると、セル（E1）に関数があるために（？）（E1）がアクティブな状態となります。 関数が入力されていても空白として（B1）をアクティブな状態にするために良い方法はありますでしょうか？ 誠に申し訳ございませんが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelで空白行を削除するマクロは？
マウスやキーボードを使った記録式でマクロを作っています。 その中でシート上に散らばっている数十行の空白行を削除する行程が必要です。 しかし、マウスやキーに依るメニューでは「空白行の削除」と言うのが有りません。 VBEに直接打ち込まないといけない様です。 ステートメントが分かる方が要らしたら教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセルで空白行を挿入するには
一つの列に２００ほどデータがあるとします。 そこで１行おきに空白行を挿入していきたいのですが手でいちいち空白行を挿入していてはらちがあきません。 関数等も含めて、なにか良い方法はないでしょうか。 例 セルＡ１ セルＡ２ セルＡ３ 以下続く ↓ セルＡ１ 空白行（セル） セルＡ２ 空白行（セル） セルＡ３ 空白行（セル） 以下続く といった具合です。
- ベストアンサー
- オフィス系ソフト
- 空白行削除
宜しくお願いします。 1枚のファイルシートに14ブロックのデータが貼り付けてあります。各ブロック行の長さは違く、ランダムに貼り付けてあります。例えば、データ 何百行の空白 データ…と繰り返されており、約3万5千行ぐらいあります。 空白行削除で多分半分近くまで上に詰められれば良いのですが、たくさんあるのでマクロで教えていただければと思います。ネットでころがってるデータ試してみたのですが(1部) ENDLESSに実行されて、出来てるのかどうかも確認はとれてません。ちなみに自分のシートに貼ってあるデータはA列からAS列まであり数字、文字混在です。また各ブロックの終わりは集計行となっており、空白セルがまじってます。宜しくお願いします。
- ベストアンサー
- Excel（エクセル）
- エクセルで一つのセル内で空白の行だけ削除したい
WindowsXP エクセル2003を使用しています。 一つのセル内の空白の行だけを削除したいのですが、方法はありますか？ 具体的にはA1内に下記のように入力があります。 -------------------------------------------------------------------- あいうえお かきくけこ さしすせそ たちつてと -------------------------------------------------------------------- 「かきくけこ」と「さしすせそ」の間の空白の行だけ削除したいのですが、可能でしょうか？ 他の行の改行はそのまま残したいので、CLEANだと無理でした。
- ベストアンサー
- オフィス系ソフト
- エクセルで1行目が空白の場合、列を削除したい
こんにちは！質問をお願いします。 エクセルで表を作成していますが、1行目が空白のセルがある場合に、その列を削除したいのですが、ＶＢＡでどのようなコードにすればよいでしょうか？ ※上記のＤ列を削除し左詰めにしたい。（空白セルはAからBBまでの間で、特定の位置以降で発生します。） ※ちなみに1行目には、＝N というようにほかのセルを参照し、文字の入力があれば表示するようにしています。 初心者につき、うまく説明できていないかもしれませんが、よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- 空白行の削除方法について
SHHET1の表の値をSHEET2へ値をコピペするのですが、コピー元の表の一部に関数が入っていたセルの値はコピペ後、見た目は空白なのですが空白セルとして認識されないようなのですが、何か解決方法はありますでしょうか？宜しくお願い致します。
- ベストアンサー
- その他(業務ソフトウェア)
お礼
有り難うございます