10/06/16 22:05:03
If Left(Cells(i, 1).Value, 1) = "福" Then
Cells(i, 7).Value = "合格"
ElseIf Left(Cells(i, 1).Value, 1) = "宮" Then
Cells(i, 7).Value = "合格"
ElseIf Left(Cells(i, 1).Value, 1) = "山" Then
Cells(i, 7).Value = "合格"
ElseIf Left(Cells(i, 1).Value, 1) = "長" Then
Cells(i, 7).Value = "合格"
ElseIf Left(Cells(i, 1).Value, 1) = "愛" Then
Cells(i, 7).Value = "合格"
ElseIf Left(Cells(i, 1).Value, 1) = "大" Then
Cells(i, 7).Value = "合格"
End If
Cells(i, 1)の頭文字が振り分けたいですけど
おねがします