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)
        '読込元シートのデータの開始行を変数に代入
        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

U3ViIHRlc3QoKQoKRGltIHdzMSBBcyBXb3Jrc2hlZXQgJ+iqrei+vOWFg+OCt+ODvOODiApEaW0gd3MyIEFzIFdvcmtzaGVldCAn6Lui6KiY5YWI44K344O844OICkRpbSBpIEFzIExvbmcgJ+ihqOOCt+ODvOODiOOBrumWi+Wni+ihjApEaW0geCBBcyBMb25nICfou6LoqJjlhYjjgrfjg7zjg4jjga7plovlp4vooYwKRGltIGogQXMgTG9uZyAn44K344O844OI55Wq5Y+3CkRpbSBFbmRSb3cgQXMgTG9uZyAn5pyA57WC6KGMCkRpbSBTaGlpcmVOTSBBcyBTdHJpbmcgJ+OCt+ODvOODiOOBruWQjeWJjQoKT24gRXJyb3IgR29UbyBFcnJQcm9jZXNzOiAn44Ko44Op44O844GM44GC44Gj44Gf44KJ44CBRXJyUHJvY2Vzc+OBq+mjm+OBtgoKICAgICfoqq3ovrzlhYPjgrfjg7zjg4jjgpLlpInmlbDjgavku6PlhaXvvIhFeGNlbOOBruOCt+ODvOODiOOCguWkieaVsOOBq+OBp+OBjeOBvuOBme+8iQogICAgU2V0IHdzMSA9IFRoaXNXb3JrYm9vay5Xb3Jrc2hlZXRzKCLooagiKSAnd3Mx44Gv44CB44GT44GuRXhjZWzvvozvvp7vva/vvbjjga7jgIzooajjgI3jgajjgYTjgYbjgrfjg7zjg4gKICAgIAogICAgJ+acgOe1guihjOOBruWPluW+lwogICAgRW5kUm93ID0gd3MxLkNlbGxzKFJvd3MuQ291bnQsIDEpLkVuZCh4bFVwKS5Sb3cgJ+ihqOOCt+ODvOODiOOBrjHliJfnm67jgpLopovjgabjgIHkuIDnlarkuIvjgavlgKTjgYzjgYLjgovooYzmlbDjgpLlj5blvpcKICAgIAonJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycKJ0ZvcuOBq+WvvuOBl+OBpk5leHTjgIFEb+OBq+WvvuOBl+OBpkxvb3DjgIFJZuOBq+WvvuOBl+OBpkVuZCBJZuOBjOWvvuOBq+OBquOBo+OBpuOBhOOCi+OBruOBp+OAgeWQjOOBmOOCpOODs+ODh+ODs+ODiO+8iOauteiQve+8ieOBq+aPg+OBiOOCi+OAggon44Gd44Gu5Lit44Gu5Yem55CG44Gv44CB44Kk44Oz44OH44Oz44OI44KS5LiA5q615LiL44GS44Gm5pu444GP44CCCicnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJycnJwogICAgCiAgICAnRm9yIO+8nSDlpInmlbDjgYzjganjgZPjgYvjgonjganjgZPjgb7jgaflh6bnkIbjgpLntprjgZHjgosKICAgIEZvciBqID0gMiBUbyBUaGlzV29ya2Jvb2suV29ya3NoZWV0cy5Db3VudCAnMuOCt+ODvOODiOebruOBi+OCieacgOW+jOOBruOCt+ODvOODiOOBvuOBp+e5sOOCiui/lOOBme+8iFdvcmtzaGVldHMuQ291bnTvvJ3kuIDnlarlvozjgo3jga7jgrfjg7zjg4jjga7nlarlj7fvvIkKICAgICAgICAn44K344O844OI5ZCN44KS5aSJ5pWw44Gr5Luj5YWlCiAgICAgICAgU2hpaXJlTk0gPSBUaGlzV29ya2Jvb2suV29ya3NoZWV0cyhqKS5OYW1lCiAgICAgICAgJ+i7ouiomOWFiOOBruOCt+ODvOODiOWQjeOCkuWkieaVsOOBq+S7o+WFpQogICAgICAgIFNldCB3czIgPSBUaGlzV29ya2Jvb2suV29ya3NoZWV0cyhTaGlpcmVOTSkKICAgICAgICAn6Kqt6L685YWD44K344O844OI44Gu44OH44O844K/44Gu6ZaL5aeL6KGM44KS5aSJ5pWw44Gr5Luj5YWlCiAgICAgICAgaSA9IDMKICAgICAgICAn6Lui6KiY5YWI44K344O844OI44Gu6Lui6KiY6ZaL5aeL6KGM44KS5aSJ5pWw44Gr5Luj5YWlCiAgICAgICAgeCA9IDIKICAgICAgICAnRG8gVW50aWwg77ydIOadoeS7tuOBjOS4gOiHtOOBmeOCi+OBvuOBp+WHpueQhuOCkuWbnuOBmQogICAgICAgIERvIFVudGlsIGkgPSBFbmRSb3cgKyAxICfooajjgrfjg7zjg4jjga7mnIDlvozjga7ooYzjgb7jgaflh6bnkIbjgpLnubDjgorov5TjgZkKICAgICAgICAgICAgJ+ihqOOCt+ODvOODiOOBrjPliJfnm67jgahTaGlpcmVOTeOBjOS4gOiHtOOBl+OBn+OCieOAgVNoaWlyZU5N44Go5ZCM44GY5ZCN56ew44Gu44K344O844OI44Gr6Lui6KiY44GZ44KL44CB5LiA6Ie044GX44Gq44GL44Gj44Gf44KJ54Sh6KaWCiAgICAgICAgICAgIElmIHdzMS5DZWxscyhpLCAzKSA9IFNoaWlyZU5NIFRoZW4KICAgICAgICAgICAgICAgIFRoaXNXb3JrYm9vay5Xb3Jrc2hlZXRzKFNoaWlyZU5NKS5DZWxscyh4LCAyKSA9IHdzMS5DZWxscyhpLCAxKSAn4oSW44KS6Lui6KiYCiAgICAgICAgICAgICAgICBUaGlzV29ya2Jvb2suV29ya3NoZWV0cyhTaGlpcmVOTSkuQ2VsbHMoeCwgMykgPSB3czEuQ2VsbHMoaSwgMikgJ+WQjeWJjeOCkui7ouiomAogICAgICAgICAgICAgICAgVGhpc1dvcmtib29rLldvcmtzaGVldHMoU2hpaXJlTk0pLkNlbGxzKHgsIDQpID0gd3MxLkNlbGxzKGksIDMpICfmgKfliKXjgpLou6LoqJgKICAgICAgICAgICAgICAgIHggPSB4ICsgMSAnWOOBruihjOOBq+i7ouiomOOBl+OBn+OBruOBp+OAgei7ouiomOWFiOOBruihjOaVsOOCku+8keihjOmAsuOCgeOCiwogICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgaSA9IGkgKyAxICdp44Gu6KGM44Gu5Yem55CG44GM44GK44KP44Gj44Gf44Gu44Gn44CB6KGo44K344O844OI44Gu6KGM5pWw44KS77yR6KGM6YCy44KB44KLCiAgICAgICAgTG9vcAogICAgTmV4dCBqCiAgICAKICAgICfmnIDlvozjgb7jgafou6LoqJjjgYzntYLjgo/jgozjgbDjgIHjg6Hjg4Pjgrvjg7zjgrjjgpLlh7rjgZkKICAgIE1zZ0JveCAi6Lui6KiY44GM5a6M5LqG44GX44G+44GX44Gf44CCIgogICAgCkV4aXRQcm9jZXNzOgogICAgRXhpdCBTdWIgJ+WHpueQhuOCkue1guOCj+OCieOBmQoKRXJyUHJvY2VzczoKICAgICfjg6Hjg4Pjgrvjg7zjgrjjgpLlh7rjgZkKICAgIE1zZ0JveCAi44Ko44Op44O855Wq5Y+3OiIgJiBFcnIuTnVtYmVyICYgdmJDckxmICYgXwogICAgICLjgqjjg6njg7zjga7nqK7poZ46IiAmIEVyci5EZXNjcmlwdGlvbiwgdmJFeGNsYW1hdGlvbgogICAgUmVzdW1lIEV4aXRQcm9jZXNzICdFeGl0UHJvY2Vzc+OBq+mjm+OBtgoKRW5kIFN1Yg==