« 無料のウイルス検出/除去ツール | Main | Virtual PC SP1 »

Aug 21, 2006

VBA 空白の列を削除

エクセルにて、空白の列を削除するVBAです。
ただし、空白の列が続いた場合、2つ目の列は削除できません。
想定しているのは1列おきのデータです。

-----
Sub Retsu Keshi Macro()

Application.ScreenUpdating = False

Dim i As Integer

' 1から最後の列まで繰り返す
For i = 1 To Range("A65536").End(xlUp).Row

' Cells(i, 1)が空白だったら、その列を削除する
    If Cells(i, 1) = "" Then
        Cells(i, 1).Select
        ActiveCell.EntireRow.Delete
    End If

Next i

Cells(1,1).Select

Application.ScreenUpdating = True

End Sub
-----

←クリック一票

|

« 無料のウイルス検出/除去ツール | Main | Virtual PC SP1 »

VBA」カテゴリの記事

Comments

Post a comment



(Not displayed with comment.)


Comments are moderated, and will not appear on this weblog until the author has approved them.



TrackBack


Listed below are links to weblogs that reference VBA 空白の列を削除:

« 無料のウイルス検出/除去ツール | Main | Virtual PC SP1 »