调整 VBA 以删除所有符合条件的列答案

【问题标题】：Tweak VBA to delete all Columns that fit criteria调整 VBA 以删除所有符合条件的列
【发布时间】：2013-08-13 15:41:56
【问题描述】：

如果单元格是blank，我有一个移动到第 2 行并删除 Column 的宏。

删除部分有效，但如果有 N 个相邻的空白单元格，我必须运行 N 次才能删除所有列，是否可以一次删除所有列，因为我不知道有多少空白单元格可能彼此相邻。

谢谢

Sub delete-columns()
For Each cell In Range(Cells(2, 1), Cells(2, ActiveSheet.UsedRange.Columns.count))
    If cell.Value = "" Then cell.EntireColumn.Delete xlToRight
Next cell
End Sub

【问题讨论】：

标签： excel vba

【解决方案1】：

这将删除活动工作表中第 2 行有空白的所有列：

Sub DeleteColsWithBlanks()
Dim ws As Excel.Worksheet

Set ws = ActiveSheet
With ws
    .Range(.Cells(2, 1), .Cells(2, .Columns.Count)).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End With
End Sub

【讨论】：