excel VBA筆記

 

 

檢查某列是否有空白列，刪除空白列

 

Sub aaa()
    '到A欄最後一列
    Range("A65530").Select
    '跳到該欄最後一列有資料的地方
    Selection.End(xlUp).Select
    'x為最後一列有資料的列數
    x = ActiveCell.Row
    '從A1列開始
    Range("A1").Select
    '利用迴圈來判斷是否要刪除該列
    For y = 1 To x
        '如果該儲存格是沒資料,empty
        If ActiveCell.Value = Empty Then
             'x1為沒有資料那列
             x1 = ActiveCell.Row
             '將x1:x1設定為z列
             z = x1 & ":" & x1
             '選取z列
             Rows(z).Select
             '刪除z列後,剩餘資料往上移動一列
             Selection.Delete Shift:=xlUp
        Else
           
            ActiveCell.Offset(1, 0).Select
        End If

    Next
    '回到A1儲存格
    Range("A1").Select
End Sub