Board logo

標題: [發問] 儲存格內有多數值加一數值 [打印本頁]

作者: bow101    時間: 2010-6-23 17:24     標題: 儲存格內有多數值加一數值

請教各位大大
假設A1內有數值 1,2,3,4,5,6,7,8

B1的值為6

C1想要的計算方式為1+6,2+6,3+6,4+6,5+6,7+6,8+6 , 也就是A1內的各數值+上B1的值
並顯示為 7,8,9,10,11,12,13,14

請問C1的公式我要怎麼打?
作者: KITTYBOY    時間: 2010-6-24 09:24

=MID(A1,1,1)+B1&","&MID(A1,3,1)+B1&","&MID(A1,5,1)+B1&","&MID(A1,7,1)+B1&","&MID(A1,9,1)+B1&","&MID(A1,11,1)+B1&","&MID(A1,13,1)+B1&","&MID(A1,15,1)+B1
如附檔煩確認  THANKS
作者: Hsieh    時間: 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
複製代碼
[attach]1420[/attach]
作者: bow101    時間: 2010-6-25 17:45

謝謝KITTYBOY大大~
你的公式我比較看得懂..
也謝謝版主




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)