- 帖子
- 561
- 主題
- 160
- 精華
- 0
- 積分
- 725
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2026-2-12
  
|
之前前輩範例引用參考之
1=去空白
2=去數字
3=取數字
4=去英文
5=取英文
6=取漢字
7=去漢字
Sub yy()
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
For i = 1 To 7
.Pattern = Application.Choose(i, "\s", "[0-9]", "[^0-9]", "[A-Za-z]", "[^A-Za-z]", "[^\u4e00-\u9fa5]", "[\u4e00-\u9fa5]")
Cells(i, 2) = .Replace([a1], "")
Next i
End With
End Sub |
|
發表於 2014-12-5 10:37
| 