Sub AAA()
    Dim GYO
    For GYO = 4 To 19
        Dim NAME
        NAME = Range("D" & GYO).Value
        If NAME = "資料A" Then
            Range("B" & GYO).Value = 1
        ElseIf NAME = "資料B" Then
            Range("B" & GYO).Value = 2
        ElseIf NAME = "資料C" Then
            Range("B" & GYO).Value = 3
        End If
        Range("C" & GYO).Value = Mid(Range("F" & GYO).Value, 2, 1)
    Next
End Sub

Sub AAA()
    Dim NAMAE
    Dim BANGO
    Dim GYO
    For GYO = 4 To 19
        NAMAE = Range("D" & GYO).Value
        BANGO = Range("B" & GYO).Value
        If NAMAE = "資料A" Then
             BANGO = 1
        ElseIf NAMAE = "資料B" Then
             BANGO = 2
        ElseIf NAMAE = "資料C" Then
             BANGO = 3
        End If
        Range("C" & GYO).Value = Mid(Range("F" & GYO).Value, 2, 1)
    Next
End Sub