返回列表 上一主題 發帖

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

本帖最後由 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

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題