- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 98
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-4-27
              
|
本帖最後由 Hsieh 於 2011-9-22 22:27 編輯
回復 9# pinklee
不是說了要以DBNUM1格式為前提嗎?
若有兩種可能
如:12=> 一十二
或十二
或一二- Sub nn()
- Dim C As Range
- With ActiveSheet.UsedRange
- For i = 200 To 1 Step -1
- k = Application.Text(i, "[DBNum1]")
- m = Application.Text(i, "[DBNum1]0")
- .Cells.Replace m, i
- .Cells.Replace k, i
- If Int(i / 10) = 1 Then .Cells.Replace Mid(k, 2), i
- Next
- For Each C In .Cells
- C.Value = StrConv(C.Value, vbNarrow, LocaleID)
- Next
- End With
- End Sub
|
|
發表於 2011-9-21 10:44
| 
