サンプルコードをいかに貼っておく。
サンプルコード
構成:
[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