- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2025-3-24
|
Sub zz()
Dim a
a = Range("b9:b" & [b65536].End(3).Row).Value
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "[\!-~\s]*"
For i = 1 To UBound(a)
a(i, 1) = .Replace(a(i, 1), "")
Next
[b9].Resize(i - 1, 1) = a
End With
End Sub |
|
發表於 2021-5-30 23:32
| 