返回列表 上一主題 發帖

[發問] 擷取想要的文字內容vba

[發問] 擷取想要的文字內容vba

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

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 2# GBKEE
謝謝,成功.

TOP

{=LEFT(A2,MAX((MID(A2,ROW($1:$99),1)="-")*ROW($1:$99))-1)
隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog
已收集5000篇 EXCEL函數

TOP

固定刪最後4字
=LEFT(A2,LEN(A2)-4)
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

刪除最後 "-" 以後資料
=LEFT(A2,LOOKUP(1,0/(MID(A2,ROW($1:$99),1)="-"),ROW($1:$99)-1))
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 為人處世要小心細心,但不要「小心眼」。
返回列表 上一主題