刪除 Excel 工作表中的空白列

114學年度下學期游泳社團報名

English Website(英文網站)

社團活動專區
新進國小公開徵信專區

2-1 Office 的 VBA 入門

Excel VBA 實作

9-1 刪除 Excel 工作表中的空白列

Sub DeleteEmptyRows()
    SelectedRange = Selection.Rows.Count
    ActiveCell.Offset(0, 0).Select
    For i = 1 To SelectedRange
        If ActiveCell.Value = "" Then
            Selection.EntireRow.Delete
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Next i
End Sub

2-1 Office 的 VBA 入門