EXCEL の表を一行ずつシートに分ける方法

２００行ほどある表を１シートに１行ずつ自動で張り付ける方法を教えてください。
合計２００シートになります。

No.1 回答者： tom04 回答日時： 2017/10/16 22:54

こんばんは！

手っ取り早くVBAでの一例です。

元データはSheet1にあり、1行目は項目行でデータは2行目以降にあるとします。
（2行目以降を各シートにコピー＆ペースト）
貼り付け先は各シートの1行目とします。

標準モジュールにしてください。

Sub Sample1()
Dim i As Long, wS As Worksheet
With Worksheets("Sheet1")
Application.ScreenUpdating = False
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
If Worksheets.Count < i Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
Set wS = ActiveSheet
Else
Set wS = Worksheets(i)
End If
.Rows(i).Copy wS.Range("A1")
wS.Name = "Sheet" & i
Next i
Application.ScreenUpdating = True
End With
MsgBox "完了"
End Sub

こんな感じではどうでしょうか？

※　注意点　※
とりあえずSheet名をこちらで勝手に「Sheet○」のようにしていますので
同じSheet名が存在する場合はエラーになります。m(_ _)m