'=========================================================================================
Option Explicit
Dim 左 As Integer                               '左上セルの列番号 ※１
Dim 上 As Integer                               '左上セルの行番号 ※１
Dim 右 As Integer                               '右下セルの列番号 ※１
Dim 下 As Integer                               '右下セルの行番号 ※１
Dim 方法 As String                              'クリアする方法 ※２
'-----------------------------------------------------------------------------------------
Sub 指定範囲内の内容を指定の方法でクリアする()
    Sheets("SSS").Select                        'シートを選択する ※３
        左 = 1                                  '左上セルの列番号(A1のAの数字表記) ※１
        上 = 1                                  '左上セルの行番号(A1の1) ※１
        右 = 3                                  '右下セルの列番号(C5のCの数字表記) ※１
        下 = 5                                  '右下セルの行番号(C5の5) ※１
        方法 = "CF"                             'クリアする方法 ※２
    クリアする                                  'Subプロシージャを実行する
End Sub
'-----------------------------------------------------------------------------------------
Sub クリアする()
    If 方法 = "AA" Then                         'すべてのセルの内容をすべてクリア
        Cells.Clear
    ElseIf 方法 = "SA" Then                     '指定範囲内の内容をすべてクリア
        Range(Cells(上, 左), Cells(下, 右)).Clear
    ElseIf 方法 = "CF" Then                     '指定範囲内の書式をクリア
        Range(Cells(上, 左), Cells(下, 右)).ClearFormats
    ElseIf 方法 = "CC" Then                     '指定範囲内の数式と値をクリア
        Range(Cells(上, 左), Cells(下, 右)).ClearContents
    ElseIf 方法 = "SC" Then                     '指定範囲内の値だけをクリア
        Range(Cells(上, 左), Cells(下, 右)).SpecialCells(xlConstants, 23).ClearContents
    ElseIf 方法 = "SF" Then                     '指定範囲内の数式だけをクリア
        Range(Cells(上, 左), Cells(下, 右)).SpecialCells(xlFormulas, 23).ClearContents
    End If
End Sub
'=========================================================================================