《請教》關於字串抓取

eric093

請問各位，如果依下述字串（部份字串中可能會有數字）（別單位給的原始資料）
我想只抓出特定資料，vba的程式該如何下手？


想抓出的資料
353345643統一物流
353869043新竹物流公司
358475043宅配通新竹站
353345643宅配通新竹站4


原始資料如下
353345643-b1-統一物流-131119.jpg^353345643-b2-統一物流-131119.jpg
353869043-b1-新竹物流公司-131119.jpg^353869043-b2-新竹物流公司-131119.jpg
358475043-b1-宅配通新竹站-131119.jpg^358475043-b2-配通新竹站-131119.jpg
358455043-b1-宅配通新竹站4-131119.jpg^358455043-b2-配通新竹站4-131119.jpg

ML089

回復 1# eric093


Sub ex()
    For Each A In [A1].Resize([A65536].End(xlUp).Row)
        S = Split(A, "-")
        A.Offset(, 1) = S(0) & S(2)
    Next
End Sub

eric093

回復 3# sunnyso


    感謝！我想用vba的原因是每天都會做這動作，所以，想寫個巨集！

eric093

回復 2# dechiuan999


    非常感謝，我再來研究一下裡面的程式碼！
   感恩！

sunnyso

回復 1# eric093
一定要用VBA嗎? 函數也可以抓出來哦.

dechiuan999

回復 1# eric093


    您好：
請試試下列語
Sub aa()   
    Dim mSht As Worksheet
    Dim mRng As Range, mRng1 As Range
    Dim mSplit   
    Set mSht = ActiveSheet
    With mSht
        Set mRng1 = .Range("a1", .Range("a" & .Rows.Count).End(xlUp))
        For Each mRng In mRng1
            mSplit = Split(mRng.Value, "-")
            mRng.Offset(, 1).Value = mSplit(0) & mSplit(2)
        Next
    End With        
End Sub