【VBA】シートの初期化｜ClearContentsで値のみ削除

Public Sub ClearSheet(Byval ws As Worksheet)
		With ws
				.Cells.ClearContents
		End With
End Sub

' Reset all filters, outlines, and hidden rows/columns｜全フィルタ・グループ・非表示行列を解除
Public Function ResetFilterMode(ByVal ws As Worksheet)
	On Error GoTo ErrHdl

	With ws
		' オートフィルタ解除
		If .FilterMode Then .ShowAllData

		' グループ展開（最大階層まで）
		With .Outline
			.ShowLevels ColumnLevels:=8, RowLevels:=8
		End With

		' 非表示解除
		.Cells.EntireColumn.Hidden = False
		.Cells.EntireRow.Hidden = False
	End With

	Exit Function

ErrHdl:
	Call MsgError("ResetFilterMode") ' エラー発生時の識別用に関数名を渡すと良い
End Function

Public Sub ClearSheet(Byval ws As Worksheet)
		With ws
				.Cells.ClearContents
		End With
End Sub

' 呼び出し側
Public Sub ClearAllData(ByVal ws As Worksheet)
	Call ResetFilterMode(ws)
	ws.Cells.ClearContents
End Sub