返回列表 上一主題 發帖

[發問] 儲存格內有多數值加一數值

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
110  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-13 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-6-24 14:57 | 顯示全部帖子
本帖最後由 Hsieh 於 2010-6-24 14:58 編輯

字串分隔數量不定的話內建函數寫不出
試試自定義函數
  1. Function ESum(a$, b$, c&) As String '引數a=A1,引數b=",",引數c=B1
  2. Dim Ay()
  3. ar = Split(a, b)
  4. For Each d In ar
  5. ReDim Preserve Ay(s)
  6. Ay(s) = Val(d) + c
  7. s = s + 1
  8. Next
  9. ESum = Join(Ay, b)
  10. End Function
複製代碼
ESUM.rar (5.72 KB)
學海無涯_不恥下問

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題