もしもマクロ(VBA)が使えたら？その3【シートのコピー】

マクロ(VBA)が使える人と使えない人の比較動画。
比較的短尺です。
その3「シートのコピー」編。

どんな動画？
動画で使ったコード
あとがたり

どんな動画？

ぶちょう「100匹のポケモンの種族値のグラフを、シートを分けて作ってくれ！」
魔理沙「100人！気合でなんとか！」
霊夢「マクロ作っとこ！」

翌日
ぶちょう「あ、あのグラフに”平均”追加しといて！もちろん100シート全部ね！」

マクロが使える霊夢と、使えない魔理沙を比較してみましょう。

※動画ではなぜかForの開始部分までインデントしてますが多めに見てください。

動画で使ったコード

Option Explicit

Sub ポケモン分析()

    Dim ws1 As Worksheet: Set ws1 = Sheets("赤版ポケモン図鑑")
    Dim ws2 As Worksheet: Set ws2 = Sheets("フシギダネ")
    Dim i As Long, j As Long
    For i = 3 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
        ws2.Copy after:=Sheets(Sheets.Count)
        ActiveSheet.Name = ws1.Cells(i, 2)
        For j = 1 To 9
            ActiveSheet.Cells(2, j) = ws1.Cells(i, j)
        Next
    Next

End Sub