表紙を作成しています

Question

マニュアルの表紙の名前と内容だけを一覧から抽出して
複数シートに分けて作成したいです。

A2A10：名前　B2B10：内容　の一覧があります。
下のマクロでAの名前はできるですが、Bの内容もA2に反映させたいです。
初心者です。ご教示ください。
Sub リストか作成()
Dim 名前 As Range
For Each 名前 In Worksheets("一覧").Range("A2：A10")
Worksheets("原本").Copy After:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = 名前.Value
.Range("A1") = 名前.Value
End With
Next 名前
End Sub

Comments

[azuapricot]

どこがJavaなんでしょうかねぇ

Answer 1

Sub リストか作成()
    Dim 名前 As Range
    For Each 名前 In Worksheets("一覧").Range("A2：A10")
        Worksheets("原本").Copy After:=Worksheets(Worksheets.Count)
        With ActiveSheet
            .Name = 名前.Value
            .Range("A1") = 名前.Value
            .Range("A2") = 名前.Offset(0, 1).Value '追加
        End With
    Next 名前
End Sub

Comments

[退会済みユーザー]

ありがとうございました！できました！！