- 帖子
- 227
- 主題
- 3
- 精華
- 1
- 積分
- 273
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-3-22
- 最後登錄
- 2013-1-29
|
假設A1:F90儲存格中有英文與數字的組合
例:A5GR95J6L8W9,請問要如何讓多個儲存格內的數字(紅色部分)全部下 ...
棋語鳥鳴 發表於 2011-9-5 18:18  - Sub yy()
- For Each c In [a1:f90]
- For i = 1 To Len(c)
- If Asc(Mid(c, i, 1)) < 64 Then
- c.Characters(i, 1).Font.Subscript = True
- End If
- Next
- Next
- End Sub
複製代碼 |
|