从位置名称 (VBA) 中提取站点代码

Question

所以我有一个客户需要一个与每个位置的名称隔离的特定代码。我有以下公式，我一直在手动编辑，但想知道是否有办法让它计算单元格中的字符并将代码拉到新单元格。

示例位置名称：MRI-LENOX HILL RADIOLOGY 150/14101

=RIGHT(A1,FIND("/",A1)-19)

代码格式为0123/01234（斜杠前3-4个字符，后5个）

在这方面的任何帮助将不胜感激。

谢谢，

贾斯汀·海姆斯

Answer 1

您可以使用正则表达式从单元格值中查找和提取代码。例如：

With CreateObject("VBScript.RegExp")
    .Pattern = "\d{3,4}/\d{5}"
    If .Test(Range("A1")) Then
        Range("B1") = .Execute(Range("A1"))(0)
    End If
End With

这将从A1 中提取代码并将其放入B1。

编辑，关于 cmets：

在一系列单元格上运行：

Dim re
Set re = CreateObject("VBScript.RegExp")
re.Pattern = "\d{3,4}/\d{5}"

Dim r As Range
For Each r In Range("A1:A100")
    If re.Test(r) Then r.Offset(0, 1) = re.Execute(r)(0)
Next