小编as_*_*ack的帖子

我正在写一个宏来验证LEI代码.

LEI代码是:

1. 20个字符串
2. 前18个字母字母数字
3. 最后两个字符数字

示例:F50EOCWSQFAUVO9Q8Z97

验证

1. 将字符串中的所有字母字符替换为2位数字以创建整数
2. 如果整数mod除以97为1则代码有效,否则无效

我写了以下内容:

Sub Test()

Dim LEI_String As String

    LEI_String = Range("B1")

    LEI_String = Replace(LEI_String, "A", "10")
    LEI_String = Replace(LEI_String, "B", "11")
    LEI_String = Replace(LEI_String, "C", "12")
    LEI_String = Replace(LEI_String, "D", "13")
    LEI_String = Replace(LEI_String, "E", "14")
    LEI_String = Replace(LEI_String, "F", "15")
    LEI_String = Replace(LEI_String, "G", "16")
    LEI_String = Replace(LEI_String, "H", "17")
    LEI_String = Replace(LEI_String, "I", "18")
    LEI_String = Replace(LEI_String, "J", "19")
    LEI_String = Replace(LEI_String, "K", "20")
    LEI_String = Replace(LEI_String, "L", "21")
    LEI_String …