如果标题为空白vba，则清除列的内容

Question

我正在尝试清除工作表中具有空白标题的所有列。

Set names = Sheets("Sheet2").Range(Sheets("Sheet2").Cells(1, 2), Sheets("Sheet2").Cells(1, 100))

For Each Cell In names
    If IsEmpty(Cell.Value) Then
    Cell.Columns.ClearContents
    End If
 Next Cell

我看到没有任何变化，但代码正在运行。这里有逻辑错误吗？也许在这里：

    Cell.Columns.ClearContents

Answer 1

试试这个：

For Each cell In Names
    If IsEmpty(cell.Value) Then
        Dim col As Range
        Set col = cell.EntireColumn
        col.ClearContents
    End If
Next cell