VBAを使用してEXCELのシート上のデータをすべて削除する方法

オートフィルタが入っている場合、すべて削除できない場合があるので、
オートフィルタを削除してから、実際の削除を実行する。

オートフィルタを使用しているかの調査
Worksheets("データ").AutoFilterMode = True
※Trueならオートフィルタを使用、Falseなら未使用

後は下記を参照


-------------------------------------------------------------------------
Dim ThisFilename As String

Sub Data_copy()
ThisFilename = "AAA.xls"

'対象のファイルをアクティブにする
Windows(ThisFilename).Activate
'対象のシートを選択する
Sheets("データ").Select

'オートフィルターが入っているかのチェック
If Worksheets("データ").AutoFilterMode = True Then
Selection.AutoFilter 'オートフィルターが入っている場合は削除
End If

'すべてのセルを選択
Cells.Select
'クリアする
Selection.ClearContents

End Sub
-----------------------------------------------------------------------

EXCEL VBA xls Excel2003