根据银行卡号判断银行类别

605751967

Lovertdos

605751967 发表于 2023-5-18 16:22

这种我也有啊，DIY工具箱，不怎么符合我的需求

Lovertdos

全党 发表于 2023-5-18 15:07
参与一下。。。。。。。。。。。。。

谢了

smiletwo

Lovertdos

smiletwo 发表于 2023-5-19 09:35

厉害厉害

slonby

Sub 卡号验证()
Dim ar, i, l, rng As Range
ar = Range("a1").CurrentRegion
range("b2:d65536").clearcontents
For i = 2 To UBound(ar)
    s = Left(ar(i, 1), 6)
    l = Len(ar(i, 1))
    Set rng = Range("h:h").Find(s, , , , 1)
    If Not rng Is Nothing Then
        Range("b" & i) = rng.Offset(, 1)
        If Val(l) <> Val(rng.Offset(, 2)) Then
            Range("c" & i) = "位数错误"
        Else
            Range("c" & i) = "正确"
        End If
        Range("d" & i) = rng.Offset(, 3)
    End If
Next
End Sub

slonby

为嘛你们搞的程序那么负责，是速度比较快吗？

马小呆

zxsea_7426 发表于 2023-5-18 13:19
temp(2)和 temp(4)是字典item值数组temp中的两个数据，不知道你具体在问什么问题？
[可以省去的，提取数 ...

比如，农业银行，你代码找出来的结果是01，从上向下找。

我想找到的结果是： 农业银行   19   55  从下向上找到不为空的数据。