gaishutsusuru

回復 8# hcm19522


  
非常謝謝您抽空幫忙，公式可以用!

gaishutsusuru

回復 10# 准提部林


謝謝准提大大的幫忙和提供想法!

Andy2483

謝謝論壇,謝謝各位前輩
後學藉此帖應用剛剛學到的名稱 的建立與使用,學習方案如下,請各位前輩指教
執行結果:

下載 (43.4 KB)

2023-11-30 09:34

建立的名稱:

下載 (80.24 KB)

2023-11-30 09:38

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