Sub test()
 
Dim ws1 As Worksheet '読込元シート
Dim ws2 As Worksheet '転記先シート
Dim i As Long '表シートの開始行
Dim x As Long '転記先シートの開始行
Dim j As Long 'シート番号
Dim EndRow As Long '最終行
Dim ShiireNM As String 'シートの名前
 
On Error GoTo ErrProcess: 'エラーがあったら、ErrProcessに飛ぶ
 
    '読込元シートを変数に代入（Excelのシートも変数にできます）
    Set ws1 = ThisWorkbook.Worksheets("表") 'ws1は、このExcelﾌﾞｯｸの「表」というシート
 
    '最終行の取得
    EndRow = ws1.Cells(Rows.Count, 1).End(xlUp).Row '表シートの1列目を見て、一番下に値がある行数を取得
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Forに対してNext、Doに対してLoop、Ifに対してEnd Ifが対になっているので、同じインデント（段落）に揃える。
'その中の処理は、インデントを一段下げて書く。
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
    'For ＝ 変数がどこからどこまで処理を続ける
    For j = 2 To ThisWorkbook.Worksheets.Count '2シート目から最後のシートまで繰り返す（Worksheets.Count＝一番後ろのシートの番号）
        'シート名を変数に代入
        ShiireNM = ThisWorkbook.Worksheets(j).Name
        '転記先のシート名を変数に代入
        Set ws2 = ThisWorkbook.Worksheets(ShiireNM)
        ws2.Rows("2:" & Rows.Count).ClearContents
        '読込元シートのデータの開始行を変数に代入
        i = 3
        '転記先シートの転記開始行を変数に代入
        x = 2
        'Do Until ＝ 条件が一致するまで処理を回す
        Do Until i = EndRow + 1 '表シートの最後の行まで処理を繰り返す
            '表シートの3列目とShiireNMが一致したら、ShiireNMと同じ名称のシートに転記する、一致しなかったら無視
            If ws1.Cells(i, 3) = ShiireNM Then
                ThisWorkbook.Worksheets(ShiireNM).Cells(x, 2) = ws1.Cells(i, 1) '№を転記
                ThisWorkbook.Worksheets(ShiireNM).Cells(x, 3) = ws1.Cells(i, 2) '名前を転記
                ThisWorkbook.Worksheets(ShiireNM).Cells(x, 4) = ws1.Cells(i, 3) '性別を転記
                x = x + 1 'Xの行に転記したので、転記先の行数を１行進める
            End If
            i = i + 1 'iの行の処理がおわったので、表シートの行数を１行進める
        Loop
    Next j
 
    '最後まで転記が終われば、メッセージを出す
    MsgBox "転記が完了しました。"
 
ExitProcess:
    Exit Sub '処理を終わらす
 
ErrProcess:
    'メッセージを出す
    MsgBox "エラー番号:" & Err.Number & vbCrLf & _
     "エラーの種類:" & Err.Description, vbExclamation
    Resume ExitProcess 'ExitProcessに飛ぶ
 
End Sub
 

U3ViIHRlc3QoKQogCkRpbSB3czEgQXMgV29ya3NoZWV0ICfoqq3ovrzlhYPjgrfjg7zjg4gKRGltIHdzMiBBcyBXb3Jrc2hlZXQgJ+i7ouiomOWFiOOCt+ODvOODiApEaW0gaSBBcyBMb25nICfooajjgrfjg7zjg4jjga7plovlp4vooYwKRGltIHggQXMgTG9uZyAn6Lui6KiY5YWI44K344O844OI44Gu6ZaL5aeL6KGMCkRpbSBqIEFzIExvbmcgJ+OCt+ODvOODiOeVquWPtwpEaW0gRW5kUm93IEFzIExvbmcgJ+acgOe1guihjApEaW0gU2hpaXJlTk0gQXMgU3RyaW5nICfjgrfjg7zjg4jjga7lkI3liY0KIApPbiBFcnJvciBHb1RvIEVyclByb2Nlc3M6ICfjgqjjg6njg7zjgYzjgYLjgaPjgZ/jgonjgIFFcnJQcm9jZXNz44Gr6aOb44G2CiAKICAgICfoqq3ovrzlhYPjgrfjg7zjg4jjgpLlpInmlbDjgavku6PlhaXvvIhFeGNlbOOBruOCt+ODvOODiOOCguWkieaVsOOBq+OBp+OBjeOBvuOBme+8iQogICAgU2V0IHdzMSA9IFRoaXNXb3JrYm9vay5Xb3Jrc2hlZXRzKCLooagiKSAnd3Mx44Gv44CB44GT44GuRXhjZWzvvozvvp7vva/vvbjjga7jgIzooajjgI3jgajjgYTjgYbjgrfjg7zjg4gKIAogICAgJ+acgOe1guihjOOBruWPluW+lwogICAgRW5kUm93ID0gd3MxLkNlbGxzKFJvd3MuQ291bnQsIDEpLkVuZCh4bFVwKS5Sb3cgJ+ihqOOCt+ODvOODiOOBrjHliJfnm67jgpLopovjgabjgIHkuIDnlarkuIvjgavlgKTjgYzjgYLjgovooYzmlbDjgpLlj5blvpcKIAonJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycKJ0ZvcuOBq+WvvuOBl+OBpk5leHTjgIFEb+OBq+WvvuOBl+OBpkxvb3DjgIFJZuOBq+WvvuOBl+OBpkVuZCBJZuOBjOWvvuOBq+OBquOBo+OBpuOBhOOCi+OBruOBp+OAgeWQjOOBmOOCpOODs+ODh+ODs+ODiO+8iOauteiQve+8ieOBq+aPg+OBiOOCi+OAggon44Gd44Gu5Lit44Gu5Yem55CG44Gv44CB44Kk44Oz44OH44Oz44OI44KS5LiA5q615LiL44GS44Gm5pu444GP44CCCicnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJwogCiAgICAnRm9yIO+8nSDlpInmlbDjgYzjganjgZPjgYvjgonjganjgZPjgb7jgaflh6bnkIbjgpLntprjgZHjgosKICAgIEZvciBqID0gMiBUbyBUaGlzV29ya2Jvb2suV29ya3NoZWV0cy5Db3VudCAnMuOCt+ODvOODiOebruOBi+OCieacgOW+jOOBruOCt+ODvOODiOOBvuOBp+e5sOOCiui/lOOBme+8iFdvcmtzaGVldHMuQ291bnTvvJ3kuIDnlarlvozjgo3jga7jgrfjg7zjg4jjga7nlarlj7fvvIkKICAgICAgICAn44K344O844OI5ZCN44KS5aSJ5pWw44Gr5Luj5YWlCiAgICAgICAgU2hpaXJlTk0gPSBUaGlzV29ya2Jvb2suV29ya3NoZWV0cyhqKS5OYW1lCiAgICAgICAgJ+i7ouiomOWFiOOBruOCt+ODvOODiOWQjeOCkuWkieaVsOOBq+S7o+WFpQogICAgICAgIFNldCB3czIgPSBUaGlzV29ya2Jvb2suV29ya3NoZWV0cyhTaGlpcmVOTSkKICAgICAgICB3czIuUm93cygiMjoiICYgUm93cy5Db3VudCkuQ2xlYXJDb250ZW50cwogICAgICAgICfoqq3ovrzlhYPjgrfjg7zjg4jjga7jg4fjg7zjgr/jga7plovlp4vooYzjgpLlpInmlbDjgavku6PlhaUKICAgICAgICBpID0gMwogICAgICAgICfou6LoqJjlhYjjgrfjg7zjg4jjga7ou6LoqJjplovlp4vooYzjgpLlpInmlbDjgavku6PlhaUKICAgICAgICB4ID0gMgogICAgICAgICdEbyBVbnRpbCDvvJ0g5p2h5Lu244GM5LiA6Ie044GZ44KL44G+44Gn5Yem55CG44KS5Zue44GZCiAgICAgICAgRG8gVW50aWwgaSA9IEVuZFJvdyArIDEgJ+ihqOOCt+ODvOODiOOBruacgOW+jOOBruihjOOBvuOBp+WHpueQhuOCkue5sOOCiui/lOOBmQogICAgICAgICAgICAn6KGo44K344O844OI44GuM+WIl+ebruOBqFNoaWlyZU5N44GM5LiA6Ie044GX44Gf44KJ44CBU2hpaXJlTk3jgajlkIzjgZjlkI3np7Djga7jgrfjg7zjg4jjgavou6LoqJjjgZnjgovjgIHkuIDoh7TjgZfjgarjgYvjgaPjgZ/jgonnhKHoppYKICAgICAgICAgICAgSWYgd3MxLkNlbGxzKGksIDMpID0gU2hpaXJlTk0gVGhlbgogICAgICAgICAgICAgICAgVGhpc1dvcmtib29rLldvcmtzaGVldHMoU2hpaXJlTk0pLkNlbGxzKHgsIDIpID0gd3MxLkNlbGxzKGksIDEpICfihJbjgpLou6LoqJgKICAgICAgICAgICAgICAgIFRoaXNXb3JrYm9vay5Xb3Jrc2hlZXRzKFNoaWlyZU5NKS5DZWxscyh4LCAzKSA9IHdzMS5DZWxscyhpLCAyKSAn5ZCN5YmN44KS6Lui6KiYCiAgICAgICAgICAgICAgICBUaGlzV29ya2Jvb2suV29ya3NoZWV0cyhTaGlpcmVOTSkuQ2VsbHMoeCwgNCkgPSB3czEuQ2VsbHMoaSwgMykgJ+aAp+WIpeOCkui7ouiomAogICAgICAgICAgICAgICAgeCA9IHggKyAxICdY44Gu6KGM44Gr6Lui6KiY44GX44Gf44Gu44Gn44CB6Lui6KiY5YWI44Gu6KGM5pWw44KS77yR6KGM6YCy44KB44KLCiAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICBpID0gaSArIDEgJ2njga7ooYzjga7lh6bnkIbjgYzjgYrjgo/jgaPjgZ/jga7jgafjgIHooajjgrfjg7zjg4jjga7ooYzmlbDjgpLvvJHooYzpgLLjgoHjgosKICAgICAgICBMb29wCiAgICBOZXh0IGoKIAogICAgJ+acgOW+jOOBvuOBp+i7ouiomOOBjOe1guOCj+OCjOOBsOOAgeODoeODg+OCu+ODvOOCuOOCkuWHuuOBmQogICAgTXNnQm94ICLou6LoqJjjgYzlrozkuobjgZfjgb7jgZfjgZ/jgIIiCiAKRXhpdFByb2Nlc3M6CiAgICBFeGl0IFN1YiAn5Yem55CG44KS57WC44KP44KJ44GZCiAKRXJyUHJvY2VzczoKICAgICfjg6Hjg4Pjgrvjg7zjgrjjgpLlh7rjgZkKICAgIE1zZ0JveCAi44Ko44Op44O855Wq5Y+3OiIgJiBFcnIuTnVtYmVyICYgdmJDckxmICYgXwogICAgICLjgqjjg6njg7zjga7nqK7poZ46IiAmIEVyci5EZXNjcmlwdGlvbiwgdmJFeGNsYW1hdGlvbgogICAgUmVzdW1lIEV4aXRQcm9jZXNzICdFeGl0UHJvY2Vzc+OBq+mjm+OBtgogCkVuZCBTdWIK