知的財産アンテナ 〜当たり前なこと〜

弁理士試験、高配当投資、資格について書きます

名簿データをユーザー氏名ごとにシートを作りコピーするマクロ

サンプルコードをいかに貼っておく。

 

 

サンプルコード

構成:

[Data]シート

  A B C
1 登録数 4  
2 性別
3 甲太
4 乙子
5 丙太
6 丁子

 

[Format]シート

  A B C
1  
2 名前    
3 性別    

コード

Sub Sample()
    Dim 繰り返し As Integer
    繰り返し = Sheets("Data").Cells(1, "B") + 2
    Dim 数 As Integer

    For 数 = 3 To 繰り返し Step 1
    Sheets("Format").Select
    Sheets("Format").Copy After:=Sheets(Worksheets.Count)

    Sheets(Worksheets.Count).Select
    Sheets(Worksheets.Count).Name = Sheets("Data").Cells(数, "A").Value + " " _
    + Sheets("Data").Cells(数, "B").Value
    
    '値を入れる
    Sheets(Worksheets.Count).Range("B2").Value = Sheets("Data").Cells(数, "A").Value
    Sheets(Worksheets.Count).Range("C2").Value = Sheets("Data").Cells(数, "B").Value
    Sheets(Worksheets.Count).Range("B3").Value = Sheets("Data").Cells(数, "C").Value
    Next
    
End Sub

 

解説動画

youtu.be