nnsea 发表于 2023-12-16 14:28:53

判断身份证号位数正误


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
页: [1]
查看完整版本: 判断身份证号位数正误