'アクティブなシートのセルB1~D3の範囲を全てクリア Sub ClearCell() Range(Cells(1,2),Cells(3,4)).Clear End Sub 'アクティブなシートのセルB1~D3の範囲の数式、文字列をクリア Sub ClearCell() Range("B1:D3").ClearContents End Sub 'アクティブなシートのセル全範囲をクリア Sub ClearCell() Cells.Clear End Sub 'Sheet1のセルB1~D3の範囲をクリア Sub ClearCell() Worksheets("Sheet1").Activate Worksheets("Sheet1").Range(Cells(1,2),Cells(3,4)).Clear End Sub 'Sheet1のセルB1~D3の範囲の書式をクリア Sub ClearCe