[發問] 儲存格資料內拆分好幾個部分

　暱稱: 小俊

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-12-4 22:24 | 只看該作者

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

　頭銜: 街友一族

論壇貢獻勳章

2^#

發表於 2011-12-5 08:12 | 只看該作者

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

複製代碼

　暱稱: 小俊

論壇贊助勳章

3^#

發表於 2011-12-5 21:38 | 只看該作者

回復 2# oobird

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

靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。