清除范围的内容，包括过滤后的数据 VBA

Question

我正在使用以下语句删除范围内单元格的内容，但无法删除过滤单元格的内容：

wbMM.Sheets("SS 18 MESES").Range("A:A").Clear

知道如何修复它吗？

谢谢，

Answer 1

这将具有与清除单元格相同的效果：

Sub KillA()
        Columns("A:A").Select
        Selection.Delete Shift:=xlToLeft
        Selection.Insert Shift:=xlToRight
End Sub

你最终会得到一个空的A列。

Answer 2

你能先去掉过滤吗？

With wbMM.Sheets("SS 18 MESES")
    If .FilterMode Then
        .ShowAllData
    End If

    .Range("A:A").Clear
End With

Answer 3

不要使用"A:A"设置Range ，自动Autofilter然后循环遍历范围内的每个单元格并清除。

Dim rng As Range: Set rng = ThisWorkbook.Sheets("Sheet1").Range("A2", Range("A" & Rows.Count).End(xlUp))

    With rng
        .AutoFilter 1, "x"

        For Each cel In rng
            cel.Clear
        Next cel
    End With