• ベストアンサー

EXCELのデータで空白列を削除したい

EXCELで列数・行数が毎回変化するデータがあり、この中に数箇所に分かれて空白列が存在します。 この空白列だけをマクロで削除する方法を教えてください。

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

  • ベストアンサー
  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.1

Sub test01() With ActiveSheet x = .UsedRange.Cells(.UsedRange.Count).Column For i = x To 1 Step -1 If Application.CountA(.Columns(i)) = 0 Then .Columns(i).Delete Next End With End Sub 空白の列のみ削除するサンプルです。 =""等、数式の結果、見えないものは空白とはしていません。

kenchandesu
質問者

お礼

早速のご回答ありがとうございました。 試してみましたらうまくできました。

その他の回答 (2)

  • NCU
  • ベストアンサー率10% (32/318)
回答No.3

1.表の範囲を選択し 2.Ctrl+g(ジャンプ)から定数の入ったセル範囲を選択 3.Ctrl+9 で行を非表示 4.空の行だけ表示された状態になるので、改めて Alt+; で表示行だけ選択して行全体を削除 以上の操作をマクロ記録すればあまりインテリジェントではないにしても一応それらしいものはできるのでは? ま、最適なものはシートの構造を知りうる本人にしか作れません。こういうところで手抜き丸投げ質問しても誰もいい結果は得られません。 過去にこういう質問をした事がある人で、その後モノになった人は恐らく誰もいないでしょう。

  • marbin
  • ベストアンサー率27% (636/2290)
回答No.2

特定の行が空白だと列全体が空白だとすることが出来るのなら、 特定の行を選択した上で 編集→ジャンプ→セル選択→空白セルにチェック 空白セルが選択された状態で右クリック→削除→列全体にチェック→OK で列全体が削除されます。 この作業をマクロの自動記録すればある程度参考になるコードが得られます。

kenchandesu
質問者

お礼

ありがとうございました。 参考になりました。

関連するQ&A

  • 複数列の重複と空白を削除するマクロ(VBA)

    マクロの初心者です。 添付写真のように、複数列の重複セルと空白セルの両方を削除し、各列のデータを10列目から並べたいのですが、この場合、どのようなマクロを書けばよいでしょうか。 データの個数: 列によりますが、最大1000行程度 列数: A~J(空白列はありません)

  • エクセルで空白のセル列を削除したい

    こんにちは。よろしくお願いします。 エクセルの使い方で質問があります。 こういう使い方があるのかどうかわかりませんが、 たとえば Aデータ  10202 Bデータ  3343 Cデータ  90394 のようなテキストファイルからコピペして持ってきたデータ の空白の列をまとめて一括で削除したいのですが、 なにかいい方法ないでしょうか? よろしくお願いします。空白の列は規則的です。 2、3列 5、6列 89列目 のような感じで空白列があります。

  • エクセルで空白行を削除する 2列とも空白の場合のみ

    エクセルで空白行を削除する処理についての質問です。 1つの列のみ空白の場合、削除するというマクロは分かるのですが、 1つの列が空白、また別の列も空白の場合、削除するという処理のやり方を教えていただきたいです。 たとえばC列が空白で、P列も空白の場合のみ、削除するなどです。 どちらか、一方のみが空白の場合は、削除しません。 お手数ですがよろしくお願いいたします。

  • excel 空白列を削除

    excelで下記の表を作成中です。 番号 名前 名前 品名 購入日 県外 待ち日数 1 2 田中 太郎 A H26.4.1 11 3 4 佐藤 元気 B H26.3.16 25 5 鈴木 一 C H26.3.20 ● 21 空白列を削除しようと思い、右クリックから削除、上方向にシフトを 実行してみたところ、一番左の番号まで削除されてしまい、 飛び飛びの番号になってしまいました。 加えて、100列目まで関数を入れているため、 削除する度に表が短くなってしまいます。 左側の番号と関数を残したまま、 かつ表の列数は維持したまま空白列を削除する方法を教えて下さい。

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

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

  • Excel データの再配置

    Excelでデータを再配置するマクロの組み方を教えて下さい! 参考画像→ http://goo.gl/2nLWH 画像左側のように複数のデータセットが縦方向に配置されているシートで、左上が「セット○」セルから始まるデータセット単位で横方向に空白列を挟んで再配置したいと思っています。 画像はサンプルデータで、実際には行数は不定数、列数は4列のセットが複数個存在します。 宜しくお願いします。

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

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

  • エクセル2002で、ある列が空白なら、その空白のある行は削除する方法

    エクセル2002で、 ある列に空白のセルがあった場合、その行を削除する方法を教えてください。 例えば、B列を選択して、 編集、ジャンプ、セル選択、空白セル、OKとたどって、 セルB11、セルB22、セルB33が空白セルなら、 11,22,33の行を削除する方法を教えてください。

  • 文字列中の空白削除について

    PHP4で、文字列の前後に空白が場合はtrimを使って削除可能ですが、文字列の中に含まれていたとき、その空白を削除するいい方法はあるでしょうか? よろしくお願いします。

    • ベストアンサー
    • PHP
  • エクセル2007の[重複の削除]をエクセル2003でしたいです。

    列データーが10ほどあり、ある特定の列が2つや3つを条件に重複してる場合は削除をしたいです。 できればチェックボックスのようなものがあって、毎回違った特定列を条件にしたいです。 列データは減らせません。 マクロでやり方が解ればくめるかと思ったのですが特定の列を指定して、重複を探し削除するという方法が思いつきません。 エクセル2007の[重複の削除]という機能できるようですが、エクセル2003などで実現する方法はないでしょうか?

専門家に質問してみよう