[算表]請問EXCEL使用VBA擷取字串中文字並加其他

看板Office作者ilf0121 (思想的崛起)時間4月前 (2024/07/15 18:20)推噓0(0推 0噓 1→)

留言1則, 1人參與討論串1/1

軟體:EXCEL 各位大神想請教VBA的問題，目前都是用公式寫的但是發現公式佔據太多導致表格運作很慢想改為用VBA來擷取需要的資料以下是需要擷取的內容，懇請大神們協助，必有後謝!!! 最下面有目前解決進度!!! 從R欄讀取資料，把需要的資料顯示在P欄，若S欄內有資料，需整合資料再P欄以下為R欄的資料訂單編號 240715NDHQXXX 買家收件地址江小明, 239宜蘭縣鴿子區老鷹路1號運送資訊包裹1: 賣家宅配共 1 個商品 j******1 進帳資訊編號商品單價數量小計 1 商品名稱一大堆規格: 商品名稱APPP 商品選項貨號: APPP 868 1 868 隱藏入帳明細訂單金額 NT$868 商品價格 NT$868 預估賣家運費總支付 NT$120 買家支付運費 NT$120 預估蝦皮代付運費 NT$0 手續費 -NT$78 成交手續費 -NT$48 活動與物流隱碼服務費 -NT$10 金流與系統處理費 -NT$20 預估訂單進帳 NT$910 以下為S欄的資料 12345678 如R欄沒資料 P欄可以直接自行填寫資料如R欄有資料S欄沒資料時 P欄顯示:直接配送如R欄有資料S欄有資料時 P欄需整合為江小明, 239宜蘭縣鴿子區老鷹路1號電話:0928000888轉12345678 #1 皮皮 R欄內擷取的資料 ----------------- S欄資料 --------- 有----的是自行額外增加的字碼 K欄顯示 "預估訂單進帳 NT$910 "的數值 "910" 單數字就好 C欄顯示 "規格: 商品名稱APPP" 內的文字 "商品名稱APPP" 謝謝大神們的協助!!! 目前只有辦法寫到 If Target.Column = 18 Then '只有R欄有變動時執行 Dim P As String P = Target.Value ActiveSheet.Cells(Target.Row, 16) = P '把P設定變數，R欄的值=P，然後把變動的行數的P欄填上P值 End If 卡在字串分解目前字串分解用很笨的方式 Str = Split(Target.Value, "運送資訊") P = Str(0) Str = Split(P, "買家收件地址") ActiveSheet.Cells(Target.Row, 16) = Str(1) '收件人部分設Str()為陣列，Target.Value=R欄變動的值，Str=字串陣列，Split(字串，分割點) 用Split去頭去尾取中間，請問大大有更方便的方法嗎? 找到用Chr(10)代表換行符號來計算要擷取第幾行了有進度都會更新，請求大神們指導，謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 118.169.136.43 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1721038819.A.B7A.html ※ 編輯: ilf0121 (118.169.136.43 臺灣), 07/15/2024 21:43:10 ※ 編輯: ilf0121 (118.169.136.43 臺灣), 07/15/2024 22:44:29 ※ 編輯: ilf0121 (118.169.136.43 臺灣), 07/15/2024 23:17:45 ※ 編輯: ilf0121 (118.169.136.43 臺灣), 07/15/2024 23:42:28