求助！！求助 请大神们帮帮忙~~~~

懒林笑笑生

怎样用Excel vba  提取下列数据中的第一个“-”以后的数据~~~
例如：J-350P450-YM
         J-5C450-100K200-YM
         J-100P1200-50K600-KM

我现在想要的数据是：350P450-YM，   5C450-100K200-YM，   100P1200-50K600-KM


请高手们帮忙解答  万分感谢~~~

wangweihebtu

=MID(A1,FIND("-",A1)+1,LEN(A1)-FIND("-",A1))

这点事不用VBA

懒林笑笑生

wangweihebtu 发表于 2018-7-18 09:58
=MID(A1,FIND("-",A1)+1,LEN(A1)-FIND("-",A1))

这点事不用VBA

嗯 是的 我只是举例 需要用这个方法处理数组里面的数据  

wangweihebtu

Private Sub CommandButton1_Click()
Dim arr, i&, x&
arr = Range("A1:A" & Range("A65536").End(xlUp).Row)
For x = 1 To UBound(arr)
i = InStrRev(arr(x, 1), "-")
arr(x, 1) = Right(arr(x, 1), i)
Next x
Range("B1").Resize(UBound(arr)) = arr
End Sub

zhangzhang

具体问题，具体分析

Public Sub Test1()
Dim Arr
Dim i As Long

Arr = Range("A1").CurrentRegion
For i = 1 To UBound(Arr)
    Arr(i, 1) = Mid(Arr(i, 1), 3)
Next i
Range("B1").Resize(UBound(Arr)) = Arr
End Sub

Public Sub Test2()
Dim Arr, Sp
Dim i As Long, j As Long
Dim Str As String

Arr = Range("A1").CurrentRegion
For i = 1 To UBound(Arr)
    Str = ""
    Sp = VBA.Split(Arr(i, 1), "-")
    For j = 1 To UBound(Sp)
        Str = Str & "-" & Sp(j)
    Next j
    Str = Mid(Str, 2)
    Arr(i, 1) = Str
Next i
Range("B1").Resize(UBound(Arr)) = Arr
End Sub

Public Sub Test3()
Dim Arr
Dim i As Long

Arr = Range("A1").CurrentRegion
For i = 1 To UBound(Arr)
    Arr(i, 1) = VBA.Replace(Arr(i, 1), "J-", "")
Next i
Range("B1").Resize(UBound(Arr)) = Arr
End Sub

1101571894

懒林笑笑生 发表于 2018-7-18 10:00
嗯 是的 我只是举例 需要用这个方法处理数组里面的数据

可以把需要处理的数据上传个附件上来

懒林笑笑生

wangweihebtu 发表于 2018-7-18 10:13
Private Sub CommandButton1_Click()
Dim arr, i&, x&
arr = Range("A1:A" & Range("A65536").End(xlUp ...

谢谢大神  以采用了您的部分代码  问题解决了

懒林笑笑生

zhangzhang 发表于 2018-7-18 10:14
具体问题，具体分析

Public Sub Test1()

谢谢大神  以采用了您的部分代码  问题解决了

懒林笑笑生

1101571894 发表于 2018-7-18 10:23
可以把需要处理的数据上传个附件上来

问题已经解决  谢谢您的好心帮助