VBA CountA错误1004

Question

我一直收到错误1004.我不知道如何声明我的对象以避免此错误:

Sub DeleteBlank()

    Dim wb As Workbook
    Set wb = ActiveWorkbook

    Dim ws As Worksheet
    Set ws = wb.Worksheets("Sheet1")
    ws.Activate

    'Delete Blank Columns
    For col = 1 To 4
        If WorksheetFunction.CountA(ws.Columns(i)) = 0 Then
            ws.Columns.Delete
        End If
    Next col


End Sub

Answer 1

后退并使用col而不是i.另外,可以包装在With中.

Option Explicit
Sub DeleteBlank()

    Dim wb As Workbook
    Set wb = ActiveWorkbook
    Dim col As Long
    Dim ws As Worksheet
    Set ws = wb.Worksheets("Sheet1")

    With ws
        For col = 4 To 1 Step -1
            If WorksheetFunction.CountA(.Columns(col)) = 0 Then
                .Columns(col).Delete
            End If
        Next col
    End With
End Sub