« 無料のウイルス検出/除去ツール | 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

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/68055/11546542

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

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