vba - 如果 1000> 单元格为空，则删除 Excel 列

Question

我只是通过算法使用 Autodesk 文件中的数据填充了一个表。很多字段是空的，事实上，许多列是空的，但只有几行。大约有 1300 列，我正在尝试减少它。

如果列为空的行超过 1000 行，任何人都可以帮助我使用 VBA 删除列吗？我真的不知道任何VBA，所以我不知道从哪里开始......

我正在尝试这样的事情:

Sub ClearColumns()
'
' ClearColumns Macro
' Check to see if more than 1000 rows of a column are empty.  If so, delete the column.

Dim iColumn As Long
Dim iRow As Long
Dim iColumnMax As Long
Dim iRowMax As Long
Dim iEmptyCount
iColumnMax = 13000
iRowMax = 20000

For iColumn = 1 To iColumnMax
    For iRow = 1 To iRowMax
        If (Cells(iRow, iColumn) = "") Then iEmptyCount.Add (1)
        End If
    If (iEmptyCount > 999) Then Columns(iColumn).Delete
    Step 1
    End If
Step 1     
Application.Goto Reference:="ClearColumns"
End Sub

但同样，我不知道我在做什么。任何帮助/反馈表示赞赏

Answer 1

Sub DeleteColumns()

Dim ColNumber as Long

For ColNumber = 1300 to 1 Step -1
    If WorksheetFunction.CountBlank(Cells(1, ColNumber).Resize(20000,1)) > 1000 Then
        Cells(1,ColNumber).EntireColumn.Delete
    End If
Next

End Sub