Очистить содержимое диапазона, включая отфильтрованные данные VBA

Question

Я использую следующее утверждение для удаления содержимого ячеек в диапазоне, но не удается удалить содержимое отфильтрованных ячеек:

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

Есть идеи, как это исправить?

Спасибо,

Answer 1

Можете ли вы сначала удалить фильтрацию?

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

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

Answer 2

Не используйте "A:A" Установите Range, Autofilter, затем l oop через каждую ячейку в диапазоне и очистите.

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

Answer 3

Это будет иметь тот же эффект, что и очистка ячеек:

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

В результате вы получите пустой столбец A .