Excel VBA 表の行と列を入れ替える

Sub 行列入替え()
Dim 番号 As Long
    番号 = ActiveSheet.Index
    Sheets(番号).Range("A1").CurrentRegion.Copy
    Sheets.Add(After:=ActiveSheet).Name = "貼付"
    Range("A1").PasteSpecial Paste:=xlPasteAll,Transpose:=True
With Sheets(番号).Range("A1").CurrentRegion
    .ClearContents
    .ClearFormats
End With
    Sheets("貼付").Range("A1").CurrentRegion.Copy Sheets(番号).Range("A1")
    Application.DisplayAlerts = False
      Sheets("貼付").Delete
    Application.DisplayAlerts = True
    Sheets(番号).Range("A1").Select
    Cells.Rows.AutoFit
    Cells.Columns.AutoFit
End Sub

2行目【番号 = ActiveSheet.Index】
Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのIndex【ｲﾝﾃﾞｯｸｽ】プロパティで、アクティブシートのインデックス番号を取得して変数「番号」に代入します。

3行目【Sheets(番号).Range(“A1”).CurrentRegion.Copy】
表があるシート（アクティブシート）のA1セルからRange【ﾚﾝｼﾞ】オブジェクトのCurrentRegion【ｶﾚﾝﾄﾘｰｼﾞｮﾝ】プロパティで表範囲を参照し、Copy【ｺﾋﾟｰ】メソッドを使用してA1セルから始まる表範囲をコピーします。

4行目【Sheets.Add(After:=ActiveSheet).Name = “貼付”】
Sheets【ｼｰﾂ】コレクションのAdd【ｱﾄﾞ】メソッドを使用してワークシトを追加します。

引数After【ｱﾌﾀｰ】にはアクティブシートを設定し、表があるシートの後にシートを追加します。Add【ｱﾄﾞ】メソッドによって追加されたワークシートを表すWorksheet【ﾜｰｸｼｰﾄ】オブジェクトのName【ﾈｰﾑ】プロパティを使用してシート名を設定します。

5行目【Range(“A1”).PasteSpecial Paste:=xlPastAll,Transpose:=True】
アクティブになっている追加されたシート「貼付」のA1セルを基準として、Range【ﾚﾝｼﾞ】オブジェクトのクリップボードのデータを内容を指定して貼り付けるPasteSpecial【ﾍﾟｰｽﾄｽﾍﾟｼｬﾙ】メソッドを使用して、クリップボードのデータを貼り付けます。

貼り付ける内容を表す引数Paste【ﾍﾟｰｽﾄ】は「すべて」を表すxlPastAll。行と列を入れ替えるかどうかを表す引数Transpose【ﾄﾗﾝｽﾎﾟｰｽ】にTrueを設定して行と列を入れ替えるに設定します。

6行目【With Sheets(番号).Range(“A1”).CurrentRegion】
元の表があるシートの表範囲をCurrentRegion【ｶﾚﾝﾄﾘｰｼﾞｮﾝ】プロパティで参照してWith【ｳｨｽﾞ】ステートメントで指定します。

7行目【.ClearContents】
With【ｳｨｽﾞ】ステートメントで指定した表範囲を表すRange【ﾚﾝｼﾞ】オブジェクトClearContents【ｸﾘｱｺﾝﾃﾝﾂ】メソッドを使用して書式設定を除く値や数式を削除します。

8行目【.ClearFormats】
With【ｳｨｽﾞ】ステートメントで指定した表範囲を表すRange【ﾚﾝｼﾞ】オブジェクトのClearFormats【ｸﾘｱﾌｫｰﾏｯﾂ】メソッドを使用して罫線やセルの色などの「セルの書式」を削除します。

10行目【Sheets(“貼付”).Range(“A1”).CurrentRegion.Copy Sheets(番号).Range(“A1”)】
追加した「貼付」シートのA1セルから始まる表範囲をCurrentRegion【ｶﾚﾝﾄﾘｰｼﾞｮﾝ】プロパティで参照し、Copy【ｺﾋﾟｰ】メソッドでコピーして貼付先を表す引数Destination【ﾃﾞｨｽﾃｨﾈｰｼｮﾝ】に元の表があったシートのA1セルを指定してクリップボードを経由せずにデータを貼り付けます。

11行目【Application.DisplayAlerts = False】
Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのDisplayAlerts【ﾃﾞｨｽﾌﾟﾚｲｱﾗｰﾂ】プロパティにFalseを設定して、次に実行するシートの削除処理時のアラート（注意メッセージ）を抑制します。

12行目【Sheets(“貼付”).Delete】
コピーした表の一時的な待避場所となった追加したシート「貼付」をWorksheet【ﾜｰｸｼｰﾄ】オブジェクトのDelete【ﾃﾞﾘｲﾄ】メソッドで削除します。

13行目【Application.DisplayAlerts = True】
Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのDisplayAlerts【ﾃﾞｨｽﾌﾟﾚｲｱﾗｰﾂ】プロパティに
Trueを設定して、抑制していたアラート（注意メッセージ）が表示されるようにします。
（※マクロの実行が終了すると自動的にTrueにもどりますが不意なトラブルを防ぐためにTrueに設定するステートメントを明示的に記述しておきましょう）

14行目【Sheets(番号).Range(“A1”).Select】
行と列が入れ替わった元のシートのA1セルを選択します。

15行目【Cells.Rows.AutoFit】
すべてのセルを表すCells【ｾﾙｽﾞ】コレクションのRows【ﾛｳｽﾞ】プロパティで、シート内のすべての行を参照して文字列にあわせてセルの高さを自動調整するAutoFit【ｵｰﾄﾌｨｯﾄ】メソッドを実行します。

16行目【Cells.Columns.AutoFit】
すべてのセルを表すCells【ｾﾙｽﾞ】コレクションのColumns【ｶﾗﾑｽﾞ】プロパティで、シート内のすべての列を参照して文字列にあわせてセルの幅を自動調整するAutoFit【ｵｰﾄﾌｨｯﾄ】メソッドを実行します。