エクセルで空白の列を削除する方法

質問

• エクセルで一列全部空白であったら、その列を削除する方法について教えてください。
• 資格取得の表を作成する際に、取得していない資格の列を削除して表示する方法について教えてください。
• 特定の列を削除して表を詰める方法について教えてください。

回答No.3

imogasi

質問者はエクセル関数しか経験がなくて、VBAなど経験がないとすると、
（１）関数で列削除やセル削除は式は複雑で難しくて、できないといったほうがよい事項、と思う。
基本的に、関数では（セルの値を加工するだけで）、セルや列や行の追加・削除や移動は対処外です。
（２）エクセルの操作で、目視で行うのが早く確実。たとえば、D列が空白かどうかは、名前ボックスにD100000と入れて、ENTERを押す。D100000セルを選択される。
そこでENDキーを押して、そして↑を押してD１とかD２とか見出しセルの下の行のところにカーソルが来たら、その間にはデータはない。
そこで列の削除の操作をする。ホームー削除ーシートの列を削除。
（３）VBAでやるなら、例えば
空白列と思われる列の１セルを選択しておいて、実行。
空白列なら、列削除される。
１，２行目が見出し文字があるなら、下記で、CountBlank(Columns(c))＋２にして比較するとよい。
ーー
標準モジュールに
Sub 選択した空白列の削除2()
Dim rng As Range
c = Selection.Column
MsgBox c
MsgBox Rows().Count
MsgBox WorksheetFunction.CountBlank(Columns(c))
If WorksheetFunction.CountBlank(Columns(c)) = Rows().Count Then
MsgBox "空白列"
Columns(c).Delete
End If
End Sub

お礼

質問者はエクセル関数しか経験がなくて、VBAなど経験がないとすると、関数で列削除やセル削除は式は複雑で難しくて、できないといったほうがよい事項、と思う。⇒　エクセル初心者でも簡易な関数やフイルタを駆使して出来る方法を探しています。ＶＢＡで作成すると、ロジックなどは作成者以外の人は分からないと思うためです。回答を頂いてこんなことを記入してしまい気分を害さないで下さい。