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

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

No.1 ベストアンサー 回答者： merlionXX 回答日時： 2006/08/15 15:12

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

空白の列のみ削除するサンプルです。
=""等、数式の結果、見えないものは空白とはしていません。

この回答へのお礼

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

お礼日時：2006/08/16 17:19

No.3 回答者： NCU 回答日時： 2006/08/15 21:04

１．表の範囲を選択し

２．Ctrl+g（ジャンプ）から定数の入ったセル範囲を選択
３．Ctrl+9 で行を非表示
４．空の行だけ表示された状態になるので、改めて Alt+; で表示行だけ選択して行全体を削除

以上の操作をマクロ記録すればあまりインテリジェントではないにしても一応それらしいものはできるのでは？
ま、最適なものはシートの構造を知りうる本人にしか作れません。こういうところで手抜き丸投げ質問しても誰もいい結果は得られません。
過去にこういう質問をした事がある人で、その後モノになった人は恐らく誰もいないでしょう。

No.2 回答者： marbin 回答日時： 2006/08/15 18:45

特定の行が空白だと列全体が空白だとすることが出来るのなら、

特定の行を選択した上で
編集→ジャンプ→セル選択→空白セルにチェック

空白セルが選択された状態で右クリック→削除→列全体にチェック→ＯＫ

で列全体が削除されます。

この作業をマクロの自動記録すればある程度参考になるコードが得られます。

この回答へのお礼

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

お礼日時：2006/08/16 17:21