Как узнать, что находится в ячейке, чтобы очистить их все одновременно?

Question

У меня есть электронная таблица, которую я скачал из другой SIS. Я пытаюсь использовать функцию COUNTA. Она показывает, что во всех ячейках что-то есть, хотя в ячейке ничего не отображается. Я могу отфильтровать и очистить содержимое, но это занимает много времени из-за количества столбцов. Как узнать, что находится в ячейке, чтобы очистить их все одновременно?

Answer 1

Чтобы очистить псевдопустые контейнеры, выполните этот короткий макрос:

Sub ClearPseudoEmpties()
    Dim r As Range

    For Each r In ActiveSheet.UsedRange
        If r.Value = "" And Application.WorksheetFunction.CountA(r) <> 0 Then
            r.ClearContents
        End If
    Next r
End Sub