判断身份证号位数正误

nnsea

Sub 判断身份证号位数正误()
  With Sheets("IF判断语句")
    For i = 2 To 10
      If Len(.Cells(i, 1)) = 18 Then
        .Cells(i, 2) = "18位"
      End If
    Next i
  End With
End Sub