テーブル内の特定の列の内容を正しくクリアする方法（Excel）

Question

私が扱っているテーブルは約40k行あり、クリアしたいデータは最初の15列にあるので、ジョブを実行してください：

Sub DeleteOperationsTable() 
    Application.EnableEvents = False 
    Dim i As Integer 
    For i = 1 To 15 
    (*) Sheet(1).ListObjects("Table1").ListColumns(i).DataBodyRange.Clear 
    Next i 
    Application.EnableEvents = True 
End Sub 

1から7までの列だけがクリアされます。

問題をデバッグするために、私はブレークポイント（*）を設定しました。そして、それは無限ループに入るようです。 7回目の反復の後、最初からsubが再び開始します。

これはなぜ起こるのですか？

Answer 1

私は推測させてください！ :)あなたはワークシートの変更によってDeleteOpertationsTable()を呼び出しているワークシート内のイベントを持っています。

Application.EnableEvents = Falseでイベントを無効にすると、コードが機能するはずです。私はこれを試してみました、それはOKだった：

For i = 1 To 15 
    Sheets(1).ListObjects("Table1").ListColumns(i).DataBodyRange.Clear 
Next i