- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 142
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2026-7-16
                
|
本帖最後由 Hsieh 於 2014-6-5 09:48 編輯
回復 1# ONT
純數字可用
=SUMPRODUCT(--MID(A1,LEN(A1)-ROW(INDIRECT("A1:A"&LEN(A1)))+1,1),10^(LEN(A1)-ROW(INDIRECT("A1:A"&LEN(A1)))))
若包含非數字字串則必須使用VBA自定義函數- Function TranStr(mystr As Variant) As String
- Dim i%
- For i = Len(mystr) To 1 Step -1
- TranStr = IIf(TranStr = "", Mid(mystr, i, 1), TranStr & Mid(mystr, i, 1))
- Next
- End Function
複製代碼
|
|