Excel показывает НЕ ОТВЕТИТЬ после запуска кода

Question

У меня проблема с запуском этого конкретного макроса:

Sub Macro2()

    Sheets("FilteredData").Select
    Application.CutCopyMode = False
    Selection.ListObject.ListColumns(1).Delete
    Selection.ListObject.ListColumns(1).Delete
    Selection.ListObject.ListColumns(1).Delete
    Range("A1").Select
End Sub

После запуска этого макроса мой файл Excel просто зависает.Есть ли проблема с кодом макроса?Я искал вокруг, но не могу найти ответ на эту проблему: (

Пожалуйста, не смейтесь надо мной, задавая этот вопрос. Я только начал изучать макросы несколько часов назад ...

Answer 1

Я не уверен, что не так с вашим кодом, если что-то не так. Но вы можете попробовать поставить этот код на место и посмотреть, работает ли он лучше? также я не думаю, что CutCopyMode может быть ложным / истинным, я считаю, что значение должно быть целым числом 1 или 2

Sub Macro2()
    Dim sh As Worksheet
    Set sh = Sheets("FilteredData")
    For i = 1 To 3
        If sh.ListObjects(1).ListColumns.Count > 1 Then
            sh.ListObjects(1).ListColumns(1).Delete
        End If
    Next i
End Sub