|
こんにちは。かみちゃん です。
> Columns("H:I").Select
> Selection.Delete Shift:=xlToLeft
>
>("A")や("D")や("H:I")などのこの部分を検索して
>自動で決める方法が知りたいです。
さきほどのコメントで、列全体が空白かどうか判断するコードを提示させて
いただいたのですが、もう少し提示すると、以下のような感じになります。
Sub Sample2()
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
MsgBox rngDel.Address & "を削除します"
End Sub
変数rngDelのセル範囲を削除しますから・・・
> Columns("H:I").Select
をどのようにしたらいいかわかりますでしょうか?
|
|