- 帖子
- 49
- 主題
- 3
- 精華
- 0
- 積分
- 74
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 雲林
- 註冊時間
- 2014-2-13
- 最後登錄
- 2020-9-18
|
我想到的方法是使用VBA Function
做法是先在VBA模組中新增一個function(如下)- Function DIn0(x As String) As String
- xindex = Len(x)
- Do
- If Left(x, 1) = 0 Then
- x = Right(x, xindex - 1)
- xindex = xindex - 1
- End If
- Loop Until Left(x, 1) <> "0"
- DIn0 = x
- End Function
=DIn0(A1)
就行了
我做好的檔案如下
https://onedrive.live.com/redir?resid=6CB845AED0C935E7%21175 |
|
發表於 2014-2-26 08:51
| 