見た目でデータの表示がなければ列を削除する方法

質問

• Excel2010で、見た目でデータの表示がない列を削除する方法を教えてください。
• 列にデータがない場合、非表示にしたり削除したりする方法を教えてください。
• セルのデータがなくても式が入っており、参照結果がある列だけを残したい場合、どのようにすれば良いでしょうか。

回答No.6

kagakusuki

>参照H,I,J列に参照結果がない例でマクロ実行した場合。
>２列分削除される。どの列が削除されたかは分かりません。
>K列が備考欄だったものが、I列が備考欄になりました。

>参照H列のみに参照結果がある例でマクロ実行した場合。
>１列分削除される。どの列が削除されたかは分かりません。
>Ｈ列の参照結果がある列は残っています。
>K列が備考欄だったものが、Ｊ列が備考欄になりました。

>参照H、Ｉ列に参照結果がある例でマクロ実行した場合。
>１列分削除される。
>Ｈ，Ｉ列の参照結果がある列は残っています。
>K列が備考欄だったものが、Ｊ列が備考欄になりました。

>参照H，Ｉ，Ｊ列に参照結果がある例でマクロ実行した場合。
>削除される列はない。
>Ｈ，Ｉ，Ｊ列は残っています。

　申し訳御座いません。確認の仕方が甘かった様です。
　改良致しましたので下記のVBAをお試し下さい。

Sub QNo8990454_列に見た目でデータがなければ列ごと削除する_改()

Dim c As Range, myRows As Long, myRange As String

myRange = "H4:J4"

With ActiveSheet
myRows = .Range("A" & Rows.Count).End(xlUp).Row - Range("A4").Row + 1
If myRows < 0 Then
MsgBox "データが見つかりませんでしたので処理を行う事が出来ません。" _
& vbCrLf & "マクロを終了します。", vbExclamation, "データ無し"
Exit Sub
End If
For Each c In .Range(myRange)
If c.Formula = "" Then c.Formula = "="""""
With Application.WorksheetFunction
If .CountIf(c.Resize(myRows, 1), "*?") + .Count(c.Resize(myRows, 1)) _
- .CountIf(c.Resize(myRows, 1), 0) = 0 Then c.ClearContents
End With
Next c
On Error Resume Next
.Range(myRange).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
On Error GoTo 0
For Each c In .Range(myRange)
If c.Formula = "=""""" Then c.Formula = ""
Next c
End With

End Sub