標題: [發問] 儲存格資料內拆分好幾個部分 [打印本頁]

---

作者: pesi2884    時間: 2011-12-4 22:24     標題: 儲存格資料內拆分好幾個部分

儲存格內含某些特定字元
如何利用這些特定字元
將儲存格資料內拆分好幾個部分
詳附件內說明
請前輩指導一下巨集要怎麼寫

---

作者: oobird    時間: 2011-12-5 08:12

1. Sub test()
   
2.     a = Range([a2], [a65536].End(3))
   
3.     ReDim arr(1 To UBound(a), 1 To 3)
   
4.     For i = 1 To UBound(a)
   
5.         arr(i, 1) = Val(a(i, 1))
   
6.         If InStr(a(i, 1), "+") Then arr(i, 2) = Val(Mid(a(i, 1), InStr(a(i, 1), "+") + 1))
   
7.         If InStr(a(i, 1), "/") Then arr(i, 3) = Val(Mid(a(i, 1), InStr(a(i, 1), "/") + 1))
   
8.     Next
   
9.     [b2].Resize(UBound(a), 3) = arr
   
10. End Sub

複製代碼

---

作者: pesi2884    時間: 2011-12-5 21:38

回復 2# oobird


    謝謝版主，run的結果沒問題
    要好好用F1研究一下程式的含意
    真的非常感謝!

---

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