VBA - IsNumber 由于前缀不返回任何内容

Question

后续问题来自：

VBA - Match Lookup With Multiple Parameters

下面的代码运行良好，但后来我意识到 A 列中的值有时包含前缀，因此不返回任何内容。

希望有人可以编辑实际公式以说明数字前面的 2 个字母前缀。

代码：

Sub PlaceFormula()
Dim ws As Worksheet
Dim lr As Long
Dim lc As Long

With Application
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
    .EnableEvents = False
End With

Set ws = Sheets("Main")
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
lc = ws.Cells(1, Columns.Count).End(xlToLeft).Column

ws.Range("B2", ws.Cells(lr, lc)).Formula = "=IF(ISNUMBER(MATCH($A2&B$1,INDEX(tStatus[[Employee Number]:[Employee Number]]&tStatus[[Wk Number]:[Wk Number]],),0)),""Match"","""")"
ws.Range("B2", ws.Cells(lr, lc)).Value = ws.Range("B2", ws.Cells(lr, lc)).Value

With Application
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
    .EnableEvents = True
End With
End Sub

A 列中的数据示例：

12345

24681

78956

AB12345

A78956

如果值存在，表中的数据也将包含前缀。所以本质上，MATCH 正在寻找完全匹配。

链接到示例文件：

https://drive.google.com/file/d/1Uoa0Yn72nSckQaBnl6Y-a2q6UMJX6H3f/view?usp=sharing

Answer 1

这个公式告诉你是否有 2,1 或 0 个非数字前缀。您可以使用此公式生成的数字来删除数字的前缀，然后进行匹配。

一级方程式：

=IF(ISNUMBER(NUMBERVALUE(LEFT(B2,1))),0,IF(ISNUMBER(NUMBERVALUE(RIGHT(LEFT(B2,2),1))),1,2))

如果字符串的左起第一个字符是数字，则返回0，如果不是，则检查从字符串的左边开始取前两个字符时形成的字符串右边的第一个字符是否为一个数字，如果它也是一个数字，则返回 2，否则返回 1

公式 2：

=RIGHT(B2,LEN(B2)-C2)