如何从Excel VBA中的文本中提取特定字符串？

我有一组字符串：

Building_Level_SpecificNumber Name

B_01_16 Wachschutz  

并且需要提取每个部分。这里我需要=16。以下是我设法获得的代码：

建筑：

=IF（C10>0，左（C10，FIND（“25;”，C10）-1），0）

级别：

=IF（C10>0，左（中间（C10，查找（“，”，C10）+1256），查找（“，”，中间（C10，查找（“，”，C10）+1256））-1），0）

具体数字：-尚未解决

名称：

=右（C10，LEN（C10）-搜索（“，C10））

---

如果数字始终为两位数，则可以使用以下简单公式查找第二个下划线：

=MID(A1, SEARCH("_", A1, SEARCH("_", A1) + 1) + 1, 2)

否则，还需要查找第一个空格和第二个下划线之间的距离：

=MID(A1, SEARCH("_", A1, SEARCH("_", A1) + 1) + 1, SEARCH(" ", A1) - SEARCH("_", A1, SEARCH("_", A1) + 1) - 1)

看，还有。