vba 中如何查找一个字符串中固定字符后面的字符串

Question

例如
1263590425----789qwe----30842
1349670584----q1111111----22241
我想利用VBA查询第一列中的字符串然后在第二列中显示为:
30842
22241

Answer 1

你要的是不是最后一个“-”号后面的字符串，可这样：
Sub 找字符串()
Dim S1 As String
Dim I As Integer
For I = 1 To ActiveSheet.UsedRange.Rows.Count
S1 = Cells(I, 1)
If InStr(S1, "-") > 0 Then
h2: S1 = Mid(S1, InStr(S1, "-") + 1)
If InStr(S1, "-") > 0 Then GoTo h2
Cells(I, 2) = S1
End If
Next I
End Sub
已经调试通过，能达到你的要求，有问题请联系

Answer 2

如果后面的字符串是标准的5位，不用vba也行，假设你的字符串在a1中，在b1单元格键入如下公式再向下填充就行
=right(a1,5)