- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 62
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-3-13
               
|
回復 3# hugh0620 - Sub ex()
- For Each a In Range([A5], [A5].End(xlDown))
- n = Split(a, "KGS")(0) '取到第一個KGS
- mystr = Replace(Replace(Replace(Replace(Replace(n, "A", "A("), ")", "("), "YDS", "("), "KGS", "("), " ", "") '用左括號取代分隔位置
- ar = Split(mystr, "(") '用左括號做分隔
- y = Val(ar(UBound(ar) - 1)) 'YDS的值
- k = Val(ar(UBound(ar))) 'KGS的值
- s = UBound(ar)
- Dim ay()
- ReDim Preserve ay(0)
- ay(0) = ar(0)
- For i = 1 To (s - 2) / 2
- x = UBound(ay) + 1
- ReDim Preserve ay(x + 2)
- n = (i - 1) * 2 + 1
- ay(x) = Val(ar(n))
- ay(x + 1) = "'" & ar(n + 1)
- ay(x + 2) = Round(ar(n) / y * k, 2)
- Next
- a.Offset(, 4).Resize(, UBound(ay) + 1) = ay
- Erase ay
- Next
- End Sub
|
|
發表於 2014-9-25 11:00
| 