|
▼かみちゃん さん:
大変お世話になりました。
おかげさまで
Dim intCol As Integer
Dim FR As Range
Dim rngDel As Range
For intCol = 1 To Columns.Count
On Error Resume Next
Set FR = Columns(intCol).Cells.Find("*", , xlValues, xlPart)
On Error GoTo 0
If FR Is Nothing Then
If rngDel Is Nothing Then
Set rngDel = Columns(intCol)
Else
Set rngDel = Union(rngDel, Columns(intCol))
End If
End If
Set FR = Nothing
Next
If Not rngDel Is Nothing Then
rngDel.EntireColumn.Delete Shift:=xlToLeft
Set rngDel = Nothing
End If
で、自分のしたいことができました。
ありがとうございました。
|
|