• ベストアンサー

空白行の削除について

いつもお世話になっております。 どうぞよろしくお願いします。 1行目から100行目までのデータが入力されています。 次に行をあけてデータが入っています。 コマンドボタンでデータとデータの間の空白行を削除したいと思っています。 ご教授よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

＞コマンドボタンで マクロ（VBA)の話ですか。 初心者だろうが、なぜマクロの記録を採ることを、まず考えないのかな。 Sub Macro1() Range("A2:A9").Select '100行目なら（A2:A100)など Selection.SpecialCells(xlCellTypeBlanks).Select Selection.Delete Shift:=xlUp End Sub 操作は編集ージャンプーセル選択ー空白セル これで空白セルが捉えられるから、編集ー削除ー上方向にシフト （このエクセルの操作を知らなければ話にならないが） ーーー データの有り様によって、色々なケースが考えられ、質問があいまいなので、これで何処か不都合がありますか。 質問にデータ例を作らないからややこしい。 ＞1行目から100行目までのデータが入力されています。 次に行をあけてデータが入っています。 これでは１０１行目から下にデータがまたあるのか？ お勧めの書き方＝＝＞１行目からデータが入力されていますが、空白セルを挟んで下にデータが１００行目まで入力されています。 ＝＝＞または１－１００行目までに空白セル（行）があります データ入力はA列として他の列はどうなる？上に詰めると、他の列のデータと対応が崩れないか？

ponyo12345
質問者

お礼

ありがとうございます。 説明が下手ですみません。 エクセルの操作にこのようなものがあるとは知りませんでした。 教えていただきありがとうございました。

その他の回答 (1)

回答No.1

そのデータは何に入力されているのですか。 削除したあとはどこに格納するのですか。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • Excel テーブル内の空白行の削除について

    テーブルの任意の行のデータを削除し、空白削除ボタン（cmd_Blank）をクリックすると削除したデータ行（空白行）を削除するVBAを作ったのですが空白行が１つの場合は問題なく動作するのですが（添付左）、 ・空白セルがあるとその行がすべて削除されてしまう（添付中央）。 ・空白行が２つ以上あるとエラーになってしまう（添付右） という問題に悩んでいます。 空白削除ボタンクリック時のコードは Private Sub cmdBlank_Click() ActiveSheet.ListObjects("T住所").DataBodyRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub になります。 添付の図がわかりにくいかと思いますが、ボタンクリックすると テーブル内の空白行があったら、その行のみ削除され、上詰めに したいということです。 どなたか教えていただきたいです。

  • Spread.NETの行削除について

    VB.NETでSpread.NETを用いて開発しているのですが、 行削除のロジックが分かりません。 やりたい事を詳しく説明しますと、空白セルがある 行をコマンドボタンを押下した際に削除したいのです。 仮に、行が３行あると想定し２行目が上記の削除対象の行 とした場合、コマンドボタンを押下した際に削除するには どういうロジックを記述したらいいのでしょうか？ 又、削除した際に１行目と３行目の間に削除した２行目の データが空セルとして残ってしまうようならば、 ３行目のデータを２行目に上げたい（Excelの行削除イメージ) のですが、どのようなロジックを記述すればいいでしょうか？ 開発中でその部分がわからず困ってます。 どなたか助けて頂けないでしょうか？宜しくお願いします。

  • 空白行のみ一括削除≪Ｅｘｃｅｌ≫

    データ（ひらがな）が入っている行と、空白の行が混在しています。 空白行のみ削除し、ギュっと行を縮めたいのですが良い方法は無いでしょうか？ 項番を振り、並び替え後削除し、再び項順に並べ直してみましたが 時間がかかって仕方ありません。 良い方法をご存知の方、ご教授下さい。

  • 空白行削除

    宜しくお願いします。 1枚のファイルシートに14ブロックのデータが貼り付けてあります。各ブロック行の長さは違く、ランダムに貼り付けてあります。例えば、データ 何百行の空白 データ…と繰り返されており、約3万5千行ぐらいあります。 空白行削除で多分半分近くまで上に詰められれば良いのですが、たくさんあるのでマクロで教えていただければと思います。ネットでころがってるデータ試してみたのですが(1部) ENDLESSに実行されて、出来てるのかどうかも確認はとれてません。ちなみに自分のシートに貼ってあるデータはA列からAS列まであり数字、文字混在です。また各ブロックの終わりは集計行となっており、空白セルがまじってます。宜しくお願いします。

  • Perlで空白行を削除

    現在、Perlにて外部のcsvファイルを読み込み、"重複行"と"空白行"を削除するプログラムを作成しています。 重複行を削除する部分は ------ open(IN, "csvtime.csv"); @data = <IN>; close(IN); @data = grep {!$count{$_}++} @data; open(OUT, "> csvtime.csv"); print(OUT @data); close(OUT); ------ でできたのですが、空白行を削除する部分がわかりません。 申し訳ないのですが、お教えいただけないでしょうか。 また、空白行で最初の空白行は残すようにしたいです。 よろしくお願いいたします。 例） 読み出しデータ ----- (ヘッダ1行目) (ヘッダ2行目) (ヘッダ3行目) (必要な空白) (ヘッダ4行目) 00:00:00,302 00:01:00,274 00:02:00,272 00:03:00,248 00:04:00,237 00:05:00,239 00:05:00,239 00:06:00,256 00:07:00,260 00:08:00,250 00:09:00,253 00:10:00,241 ----- 加工後データ ----- (ヘッダ1行目) (ヘッダ2行目) (ヘッダ3行目) (必要な空白) (ヘッダ4行目) 00:00:00,302 00:01:00,274 00:02:00,272 00:03:00,248 00:04:00,237 00:05:00,239 00:06:00,256 00:07:00,260 00:08:00,250 00:09:00,253 00:10:00,241 -----

    • ベストアンサー
    • Perl
  • エクセルマクロ　空白行の削除ですが、コピー時の問題

    いつもお世話になっております。 エクセルのマクロですが、指定したシートの指定した行にデータが 入っていない場合に削除するマクロなんですが、行くつか試してみ ましたが、削除したものをコピーして張り付けると、削除された行も コピーされてしまいます。完全に削除するにはどのようにしたらよい のでしょうか。 空白行のあるデータを、空白を無くしてデータベースにコピーする 作業を行いたいのですが、他によい方法はありますでしょうか。 よろしくお願いします。

  • エクセルで一つのセル内で空白の行だけ削除したい

    WindowsXP エクセル2003を使用しています。 一つのセル内の空白の行だけを削除したいのですが、方法はありますか？ 具体的にはA1内に下記のように入力があります。 -------------------------------------------------------------------- あいうえお かきくけこ さしすせそ たちつてと -------------------------------------------------------------------- 「かきくけこ」と「さしすせそ」の間の空白の行だけ削除したいのですが、可能でしょうか？ 他の行の改行はそのまま残したいので、CLEANだと無理でした。

  • エクセルVBA　空白行削除の処理方法がわかりません

    いつもお世話になります。 今、V列の８行目以下にデータが入っており、偶数行にデータが入っています。 最終行までの途中に空白行があり、データの入っている偶数行は残したまま、それ以外の行を削除したいです（添付写真）。 ８行目から　STEP 2ごとに　Cells(i+2,22)が空白ならば　i+1 行目とi+2 行目を削除 するForループでは時間がかかりすぎています。 早く処理できる方法があればご教示下さい。 宜しくお願い致します

  • Excelで空白行を削除したい

    他の書類からExcelにコピペしたんですが、もとの書類の書式のせいか偶数行が全て空白行になっています。 実際に必要なデータは奇数行の各列に並んでいます。 見づらいので空白行（または偶数行でも同じ）を削除したいんです。 行数が５００を超えるので、一行づつ行の削除をやっていると大変な手間です。 一発でやる方法はないでしょうか？

  • エクセルのファイル中の空白行を削除する方法

    エクセルのファイルでデータ入力されているものがあるのですが 空白の行があり，それを削除したいのですが たくさんあって手作業では大変です。 マクロなどでうまく自動的に削除できないものでしょうか？ 因みにデータはＡ列にのみ入力されてます。 宜しくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する