標題: [發問] 截取問題請叫 [打印本頁]

---

作者: rouber590324    時間: 2015-7-2 09:53     標題: 截取問題請叫

Dear  ALL 大大
如圖一之程式碼可將  A欄 資料   DROP_DIEA10_EDGEBGA_PAD 截取第一個  "_"後方 3字元 DIE
但我想截取  第一個  "_" 後方與 第二個  "_" 中間之字元  DIEA10  
請問如何修改
煩不吝賜教   THANKS*10000
圖一
Sub Ex()

    Dim i As Integer, S As Integer

    i = 2

    With Sheet2

       For M = 2 To 1000

            S = InStr(.Cells(i, "A"), "_")

            If S > 0 Then
            .Cells(i, "B") = Mid(.Cells(i, "A"), S + 1, 3)

            End If

            i = i + 1

       Next

    End With

End Sub

---

作者: ftc693    時間: 2015-7-2 12:16

那就改6就好了

            .Cells(i, "B") = Mid(.Cells(i, "A"), S1 + 1, 6)

---

作者: rouber590324    時間: 2015-7-3 09:27

DEAR  SIR
  有可能如下(字元長短不一)  非改 6即可  感謝您之回覆

DROP_DIEA10111_EDGEBGA_PAD
DROP_DIEA100_EDGEBGA_PAD
DROP_DIE_EDGEBGA_PAD

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)