如何提取字符串的特定部分（长度不相等）

dmargon

目前，只会用Left right,想请问下，如何能提取A列数据的，第二个“-”后的所有字符，并填入B列，如果没有第二个“-”就留空，比如B4。
谢谢大神。

duquancai

split，然后判断一下

duquancai

1. Sub main()
   
2.     Dim r&, i&, j&, arr(), t, n&, s$
   
3.     r = Range("a:a").Find("*", , , , 1, 2).Row
   
4.     arr = Range("a1:a" & r)
   
5.     For i = 1 To UBound(arr)
   
6.         t = Split(arr(i, 1), "-")
   
7.         n = UBound(t) + 1
   
8.         If n < 3 Then
   
9.             arr(i, 1) = Empty
   
10.         Else
    
11.             s = Empty
    
12.             For j = 1 To n - 1
    
13.                 s = s & "-" & t(j)
    
14.             Next
    
15.             arr(i, 1) = Mid(s, 2)
    
16.         End If
    
17.     Next
    
18.     Range("b1").Resize(r) = arr
    
19. End Sub

复制代码

c199300220

Sub shi()
Dim i%, k%
i = Range("a65536").End(xlUp).Row
On Error Resume Next
For k = 4 To i
Range("b" & k) = Split(Range("a" & k), "-")(2)
Next
End Sub

c199300220

Sub shi()
Dim i%, g%
Dim k, k2 As Long, str, str1 As String

i = Range("a65536").End(xlUp).Row
On Error Resume Next

For g = 4 To i
    k = InStr(Range("a" & g), "-")

    str = Mid(Range("a" & g), k + 1)

   k2 = InStr(str, "-")

    If Not k2 = 0 Then
        str1 = Mid(str, k2 + 1)
        Range("b" & g) = str1
    End If

Next

End Sub

wangweihebtu

还是那句话，我也是菜鸟，试试公式

renkangjizhen

用find函数找到第2个“-”的位置数，然后用right函数提取即可

wj2368

。。。。。。。。。。。。。。。。。。

gxx75

Sub 正则学习()
Dim re
Set re = CreateObject("vbscript.regexp")
n = Cells(Rows.Count, 1).End(xlUp).Row
With re
.Global = True
.Pattern = "\w+-\w+-(\S+)"
For i = 4 To n
  If .test(Cells(i, 1).Value) Then
   Cells(i, 2) = .Replace(Cells(i, 1).Value, "$1")
   End If
Next
End With
End Sub

YZC51

请参考
Sub YZC51()
On Error Resume Next
For i = 1 To Range("a56565").End(3).Row
v = Split(Cells(i, 1), "-")
Cells(i, 2) = v(2) & "-" & v(3)
Next
End Sub