Option Explicit
Sub TEST()
Dim Brr, A, i&, j%, T$, xA As Range
'↑宣告變數
Set xA = Range([F1], [A65536].End(3))
'↑令xA變數是A~F欄儲存格
xA.Offset(1, 1).ClearContents: Brr = xA
'↑令xA變數向下向右各偏移1的範圍儲存格清除內容,
'令Brr變數是 二維陣列,以xA變數(儲存格)值帶入陣列中
For i = 2 To UBound(Brr)
'↑設順迴圈
T = Brr(i, 1): A = Split(T, "*")
'↑令T變數是 第1欄陣列值,
'令A變數是 以"*"符號分割 T變數的一維陣列
For j = 0 To 2: Brr(i, j + 2) = A(j): Next
'↑設順迴圈!將A陣列值寫入Brr陣列裡
Brr(i, 5) = Evaluate(Replace(T, "*", "+"))
'↑令Brr第5欄陣列值是 (T變數置換 "*" 為 "+"後的新字串,
'再將此字串以Evaluate方法計算成數值)
Brr(i, 6) = Evaluate(T)
'↑令Brr第6欄陣列值是 (T變數以Evaluate方法計算成數值)
Next
xA = Brr
'↑令Brr陣列值寫入xA變數中(儲存格)
Set xA = Nothing: Erase Brr
'↑令釋放變數
End Sub
發表於 2023-6-2 09:48
| 
