VBA 搜索 '.' 以及它之后的内容

Question

我想在 VBA 上执行相当复杂的搜索。我要查找的是列中包含“。”的任何内容。 (句点/句号)后跟一个数字。

IE。任何看起来像 xxxx.0xxx 或 xx.1.xxx ...等的东西

请注意，句号可以出现在字符串中的任何位置。

在字符串中查找句号相对简单，我坚持使用 For循环通过列:

If InStr(1, String.value, ".") Then
     'do vba code
End If

挑战在于如何隔离和识别句号后面的单个字符。

当我使用这个公式时，我能够得到句号以及它旁边的内容。但只是它旁边的字符:

Mid(String.value, InStr(1, String.value, "."), 2)

各位大佬能指点一下最好的方法是什么吗？

编辑

样本数据和结果:

Answer 1

也许最快的解决方案是增加 Mid 的偏移量。超过这个时期:

result = Mid(String.value, InStr(1, String.value, ".") + 1, 1)

然后检查 result是一个数字。

更强大的选项是使用 regular expressions .启用后，您可以执行以下操作:

Dim regex As New RegExp

regex.Pattern = "\.([0-9])"
If regex.test(String.value) Then
    theNumber = $1
End If