查找变量值 + 符号组合

Question

我有以下问题。我正在将 pdf 中的未排序文本读取到 excel 中，用相当随机的条目填充我的工作表。

不，我正在寻找适用于大多数部分的元素，我只是在寻找变量值和符号和变量值组合时遇到了主要问题。 组合，例如0/700出现在不同的部分，并且没有找到它们的顺序。

示例表：

100 mt/h 
m³/t
S/C
0/700
0/25
5/31
43/47
700/1000

我需要找到所有"数字"/"数字"组合，例如0/700.问题是唯一的常量是"/"(斜杠(，它也出现在其他单元格中。所以我想知道是否有机会搜索数字/数字。

我尝试了以下方法：

Set prdct = Sheets("Tabelle1").Range("A1:K100").Find("/")

给我所有出现斜杠的条目，不幸的是这无济于事。 所以我更进一步地尝试：

Set prdct = Sheets("Tabelle1").Range("A1:K100").Find("d*/d*")
Set prdct = Sheets("Tabelle1").Range("A1:K100").Find("d*"&"/"&"d*")
Set prdct = Sheets("Tabelle1").Range("A1:K100").Find("d+/d+")
Set prdct = Sheets("Tabelle1").Range("A1:K100").Find("d+"&"/"&"d+")

所有最后的都返回Nothing，所以显然有些事情没有解决。 如果有帮助，斜杠左侧的最大值可以是最大值999，斜杠右侧的最大值9999。但它也可以0/1。 我真的很感激任何帮助，暗示不同的掌声等等。干杯。

Answer 1

来吧，看看：

Option Explicit
Public Sub TestMe()
Dim arrInput    As Variant
Dim varVar      As Variant
Dim lngCounter  As Long
arrInput = [{"100 mt/h","m3/t","S/C","0/700","0/25","5/31","43/47","700/1000"}]
For Each varVar In arrInput
Debug.Print varVar
Debug.Print blnCheck2Integers(varVar)
Debug.Print "------------------------------"
Next varVar
End Sub
Public Function blnCheck2Integers(ByVal strInput As String, _
Optional strDelim = "/") As Boolean
Dim arrTemp As Variant
arrTemp = Split(strInput, strDelim)
If UBound(arrTemp) <> 1 Then Exit Function
blnCheck2Integers = IsNumeric(arrTemp(0)) And IsNumeric(arrTemp(1))
End Function

按"/"拆分，然后检查这两个值是否为数字。如果值不是 2，则返回 false。这是控制台中的结果：

100 mt/h
False
------------------------------
m3/t
False
------------------------------
S/C
False
------------------------------
0/700
True
------------------------------
0/25
True
------------------------------
5/31
True
------------------------------
43/47
True
------------------------------
700/1000
True
------------------------------