標題: [發問] 擷取想要的文字內容vba [打印本頁]

---

作者: john2006168    時間: 2019-3-10 01:33     標題: 擷取想要的文字內容vba

平時擷取想要的文字內容多數用excel 公式,如果用vba怎麼表達??
條件刪除字的最後4個字"-abcd"

---

作者: GBKEE    時間: 2019-3-10 08:20

回復 1# john2006168
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim AR(), Rng As Range, i As Integer
   
4.     Set Rng = Range("A2", Range("A2").End(xlDown))
   
5.     AR = Rng.Value
   
6.     For i = 1 To UBound(AR)
   
7.         If InStrRev(UCase(AR(i, 1)), "-ABCD") > 0 Then AR(i, 1) = Mid(AR(i, 1), 1, InStrRev(UCase(AR(i, 1)), "-ABCD") - 1)
   
8.     Next
   
9.     Rng.Offset(, 1) = AR
   
10. End Sub

複製代碼

---

作者: john2006168    時間: 2019-3-10 11:56

回復 2# GBKEE
謝謝,成功.

---

作者: hcm19522    時間: 2019-3-10 18:14

{=LEFT(A2,MAX((MID(A2,ROW($1:$99),1)="-")*ROW($1:$99))-1)

---

作者: ML089    時間: 2019-3-11 17:14

固定刪最後４字
=LEFT(A2,LEN(A2)-4)

---

作者: ML089    時間: 2019-3-11 17:20

刪除最後 "-" 以後資料
=LEFT(A2,LOOKUP(1,0/(MID(A2,ROW($1:$99),1)="-"),ROW($1:$99)-1))

---

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