Excel VBA記録したマクロの修正方法1（初心者向け解説３）

Sub Macro1()
    Range("A1").Select              'セルを選択
    ActiveCell.FormulaR1C1 = "ID"   'セルに入力
    Range("B1").Select              'セルを選択
    ActiveCell.FormulaR1C1 = "名称" 'セル漢字入力
    ActiveCell.Characters(1, 2).PhoneticCharacters = "メイショウ"
    Selection.End(xlUp).Select  'ショートカットで上へ移動
End Sub

Sub Macro1_改()
    Range("A1") = "ID"   'セルに入力
    Range("B1") = "名称" 'セル漢字入力
End Sub

Sub Macro2()
'
' Macro2 Macro
'

'
    Sheets.Add After:=ActiveSheet   '新規シート作成
    Sheets("Sheet1").Select 'Sheet1選択
    Range("A1:E11").Select  '範囲選択
    Selection.Copy          '選択範囲をコピー
    Sheets("Sheet9").Select '新規シートを選択
    ActiveSheet.Paste       'コピーしたデータを貼り付け
    Sheets.Add After:=ActiveSheet
    Sheets("Sheet1").Select
    Selection.End(xlUp).Select
    Range("A1:E1").Select
    '選択した範囲から最下部まで選択（ショートカット）
    Range(Selection, Selection.End(xlDown)).Select
    '前に操作した(セルのコピー、または切り取り)を無効にしている
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet10").Select
    '選択したセルに値貼付け
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    '複数シート選択
    Sheets(Array("Sheet1", "Sheet9", "Sheet10")).Select
    Sheets("Sheet10").Activate
    Application.CutCopyMode = False
    '選択した複数シートをまとめてコピー
    Sheets(Array("Sheet1", "Sheet9", "Sheet10")).Copy Before:=Sheets(4)
End Sub

Sub Macro2_改()
    Sheets.Add After:=ActiveSheet   '新規シート作成
    Sheets("Sheet1").Range("A1:E11").Copy '範囲をコピー
    Sheets("Sheet9").Paste       'コピーしたデータを貼り付け
    Sheets.Add After:=ActiveSheet
    Sheets("Sheet1").Range("A1:E1").End(xlDown).Copy
    Sheets("Sheet10").PasteSpecial Paste:=xlPasteValues
    '選択した複数シートをまとめてコピー
    Sheets(Array("Sheet1", "Sheet9", "Sheet10")).Copy Before:=Sheets(4)
End Sub

Sub Macro3()
'
' Macro3 Macro
' マクロの説明を記録実行前に記入しておくとここにコメントが入ります

'
    'オートフィルタテスト
    Selection.AutoFilter    'オートフィルタを設定
    'AからE列の2番目のフィールド=B列で「a」を抽出
    ActiveSheet.Range("$A$1:$E$11").AutoFilter Field:=2, Criteria1:=Array("aaa" _
        , "aab", "aad", "abc", "cba"), Operator:=xlFilterValues
    '1番目のフィールド=A列で「1」を抽出
    ActiveSheet.Range("$A$1:$E$11").AutoFilter Field:=1, Criteria1:="1"
    Selection.AutoFilter    'オートフィルタを解除
    'ここからソートテスト
    'B列で昇順ソート
    'ソートの条件をクリア
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    'ソートの条件を指定「Key=B列」「Order=昇順xlAscending」
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("B2:B11") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    'ソート実行
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:E11")   'ソートの範囲
        .Header = xlYes             '先頭行は見出し
        .MatchCase = False          '大文字小文字は区別しない
        .Orientation = xlTopToBottom '上下方向に
        .SortMethod = xlPinYin      'フリガナを使う
        .Apply                      'ここでソート実行
    End With
    'B列で降順ソート「Key=B列」「Order=降順xlDescending」
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("B2:B11") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:E11")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    'A列を昇順。B列を降順でソート
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("A2:A11") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("B2:B11") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:E11")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sub Macro3_改()
' マクロの説明を記録実行前に記入しておくとここにコメントが入ります
    'オートフィルタテスト
    'AからE列の2番目のフィールド=B列で「a」を抽出
    Range("A1").AutoFilter Field:=2, Criteria1:="a"
    '1番目のフィールド=A列で「1」を抽出
    Range("A1").AutoFilter Field:=1, Criteria1:="1"
    'ここからソートテスト
    'B列で昇順ソート
    'ソートの条件をクリア
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    'ソートの条件を指定「Key=B列」「Order=昇順xlAscending」
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 _
        Key:=Range("B2:B11") , _
        Order:=xlAscending
    'ソート実行
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:E11")   'ソートの範囲
        .Header = xlYes             '先頭行は見出し
        .MatchCase = False          '大文字小文字は区別しない
        .SortMethod = xlPinYin      'フリガナを使う
        .Apply                      'ここでソート実行
    End With
    'B列で降順ソート「Key=B列」「Order=降順xlDescending」
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 _
        Key:=Range("B2:B11"), _
        Order:=xlDescending
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:E11")
        .Header = xlYes
        .MatchCase = False
        .SortMethod = xlPinYin
        .Apply
    End With
    'A列を昇順。B列を降順でソート
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 _
        Key:=Range("A2:A11"), _
        Order:=xlAscending
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 _
        Key:=Range("B2:B11"), _
        Order:=xlDescending
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:E11")
        .Header = xlYes
        .MatchCase = False
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub