在Excel中使用快捷鍵Alt+F11啓動宏處理
Private Sub RegExp_Replace()
Dim RegExp As Object
Dim SearchRange As Range, Cell As Range
'此處定義正則表達式
Set RegExp = CreateObject("vbscript.regexp")
RegExp.Pattern = "^(.).+(.)$"
'此處指定查找範圍
Set SearchRange = ActiveSheet.Range("B2:B100")
'遍歷查找範圍內的單元格
For Each Cell In SearchRange
Set Matches = RegExp.Execute(Cell.Value)
If Matches.Count >= 1 Then
Set Match = Matches(0)
Cell.Value = RegExp.Replace(Cell.Value, "****")
End If
Next
End Sub