列が空白なら削除したい

質問

「もし○列が空白なら削除、空白でない（ひとつでもセルに文字が入力されている）ならそのまま」ということを×列まで順に行いたいのですがどうすればいいのでしょうか？
よろしくお願いします。

回答No.1

merlionXX · ベストアンサー

何も書いてませんが、これはエクセルVBAの質問なのでしょうか？
そうだとしたら以下をお試しください。

1列（A列）から10列目（G列）までの例です。

Sub test01()
Dim c As Integer
With ActiveSheet 'アクティブなシートに対し
For c = 10 To 1 Step -1 '10～1へ逆順に
If Application.CountA(.Columns(c)) = 0 Then 'もし空白なら
.Columns(c).Delete 'その列を削除
End If
Next c
End With
End Sub

お礼

ご回答ありがとうございます。

回答No.2

imogasi

手作業でやるしかないです。
関数では削除は出来ないよ。関数はセルの値しか設定できない。
ＶＢＡで出来るが、経験があるのか、１言も書いてないし。
ーー
こういうのはどうでしょう
結果手作業だが、時間的にすぐ終るよ。
Ｂ列が空白かどうか、問題にする列として、空き列に
=IF(B1="",1,"")
と入れて最終行まで式を複写
全体を範囲指定し、その空き列でソート
固まった１の行を列指定して、編集ー削除

お礼

ご回答ありがとうございます。