Option Explicit
Sub TEST()
Dim Brr, V&, i&
'↑宣告變數
Range([E4], [E65536].End(3)).Name = "資料範圍"
'↑令指定儲存格範圍以 "資料範圍"字串為名 納入名稱裡
[E1].Name = "結果格"
'↑令[E1]儲存格以 "結果格"字串為名 納入名稱裡
Brr = Range("資料範圍")
'↑令Brr變數是二維陣列,以名稱為 "資料範圍"的參照儲存格值帶入陣列
For i = 1 To UBound(Brr)
'↑設順迴圈!i從1 到 Brr陣列縱向最大索引列號
If Not Trim(Brr(i, 1)) Like "#*" Then GoTo i01
'↑如果陣列值去除頭尾空白字元後的字串 不是以數字開頭,就跳到標示 i01位置
V = V + Abs(Evaluate(Replace(Brr(i, 1), "~", "-")))
'↑令V變數累加 計算的數值
i01: Next
Range("結果格") = V: MsgBox V
'↑令V變數值帶入 [E1]儲存格
End Sub
發表於 2021-8-3 06:59
| 
