Option Explicit
Public Sub 点検案内()
    Const Folder = "D:\goo\data8\点検"
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    Dim sh3 As Worksheet
    Dim ws As Worksheet
    Dim maxrow As Long
    Dim wrow As Long
    Dim wb As Workbook
    Dim fname As String
    Set sh1 = Worksheets("データ")
    Set sh2 = Worksheets("Sheet2")
    Set sh3 = Worksheets("Sheet3")
    maxrow = sh1.Cells(Rows.Count, 1).End(xlUp).Row    '最大行取得
    For wrow = 3 To maxrow
        If sh1.Cells(wrow, "B").Value = 2 Then
            Set ws = sh2
        Else
            Set ws = sh3
        End If
        ws.Cells(1, "A").Value = sh1.Cells(wrow, "A").Value     '氏名
        ws.Cells(4, "A").Value = sh1.Cells(wrow, "C").Value     'A点検日
        ws.Cells(4, "B").Value = sh1.Cells(wrow, "D").Value     'A点検時間
        If sh1.Cells(wrow, "B").Value = 2 Then
            ws.Cells(4, "C").Value = sh1.Cells(wrow, "E").Value     'B点検日
            ws.Cells(4, "D").Value = sh1.Cells(wrow, "F").Value     'B点検時間
        End If
        Set wb = Workbooks.Add
        ws.Range("A1:D4").Copy wb.Worksheets("Sheet1").Range("A1")
        fname = Folder & "\" & ws.Cells(1, "A") & ".xlsx"
        wb.SaveAs (fname)
        wb.Close
    Next
End Sub
 

T3B0aW9uIEV4cGxpY2l0ClB1YmxpYyBTdWIg54K55qSc5qGI5YaFKCkKICAgIENvbnN0IEZvbGRlciA9ICJEOlxnb29cZGF0YThc54K55qScIgogICAgRGltIHNoMSBBcyBXb3Jrc2hlZXQKICAgIERpbSBzaDIgQXMgV29ya3NoZWV0CiAgICBEaW0gc2gzIEFzIFdvcmtzaGVldAogICAgRGltIHdzIEFzIFdvcmtzaGVldAogICAgRGltIG1heHJvdyBBcyBMb25nCiAgICBEaW0gd3JvdyBBcyBMb25nCiAgICBEaW0gd2IgQXMgV29ya2Jvb2sKICAgIERpbSBmbmFtZSBBcyBTdHJpbmcKICAgIFNldCBzaDEgPSBXb3Jrc2hlZXRzKCLjg4fjg7zjgr8iKQogICAgU2V0IHNoMiA9IFdvcmtzaGVldHMoIlNoZWV0MiIpCiAgICBTZXQgc2gzID0gV29ya3NoZWV0cygiU2hlZXQzIikKICAgIG1heHJvdyA9IHNoMS5DZWxscyhSb3dzLkNvdW50LCAxKS5FbmQoeGxVcCkuUm93ICAgICfmnIDlpKfooYzlj5blvpcKICAgIEZvciB3cm93ID0gMyBUbyBtYXhyb3cKICAgICAgICBJZiBzaDEuQ2VsbHMod3JvdywgIkIiKS5WYWx1ZSA9IDIgVGhlbgogICAgICAgICAgICBTZXQgd3MgPSBzaDIKICAgICAgICBFbHNlCiAgICAgICAgICAgIFNldCB3cyA9IHNoMwogICAgICAgIEVuZCBJZgogICAgICAgIHdzLkNlbGxzKDEsICJBIikuVmFsdWUgPSBzaDEuQ2VsbHMod3JvdywgIkEiKS5WYWx1ZSAgICAgJ+awj+WQjQogICAgICAgIHdzLkNlbGxzKDQsICJBIikuVmFsdWUgPSBzaDEuQ2VsbHMod3JvdywgIkMiKS5WYWx1ZSAgICAgJ0HngrnmpJzml6UKICAgICAgICB3cy5DZWxscyg0LCAiQiIpLlZhbHVlID0gc2gxLkNlbGxzKHdyb3csICJEIikuVmFsdWUgICAgICdB54K55qSc5pmC6ZaTCiAgICAgICAgSWYgc2gxLkNlbGxzKHdyb3csICJCIikuVmFsdWUgPSAyIFRoZW4KICAgICAgICAgICAgd3MuQ2VsbHMoNCwgIkMiKS5WYWx1ZSA9IHNoMS5DZWxscyh3cm93LCAiRSIpLlZhbHVlICAgICAnQueCueaknOaXpQogICAgICAgICAgICB3cy5DZWxscyg0LCAiRCIpLlZhbHVlID0gc2gxLkNlbGxzKHdyb3csICJGIikuVmFsdWUgICAgICdC54K55qSc5pmC6ZaTCiAgICAgICAgRW5kIElmCiAgICAgICAgU2V0IHdiID0gV29ya2Jvb2tzLkFkZAogICAgICAgIHdzLlJhbmdlKCJBMTpENCIpLkNvcHkgd2IuV29ya3NoZWV0cygiU2hlZXQxIikuUmFuZ2UoIkExIikKICAgICAgICBmbmFtZSA9IEZvbGRlciAmICJcIiAmIHdzLkNlbGxzKDEsICJBIikgJiAiLnhsc3giCiAgICAgICAgd2IuU2F2ZUFzIChmbmFtZSkKICAgICAgICB3Yi5DbG9zZQogICAgTmV4dApFbmQgU3ViCg==