四时宝库

有如下数据，需要将[]及内部的数字全部替换为空白：

如果一个个去删则显得很笨拙。

[]及内部的数字可以使用颪表达式表示："\[\d+\]"

在下面的查找替换对话框中无法使用正则表达式：

可以考虑编写VBA代码，进行替换，其它类似的查找，只是修改一下正则表达式即可，有一定的通用性：

代码：

运行后效果：

附源代码：

Sub regReplace()

Dim reg As Object

Dim s As String

Set reg = CreateObject("vbscript.regexp")

reg.Pattern = "\[\d+\]"

reg.Global = True

Dim lr, lc As Integer

lr = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1

lc = Range(Cells(1, Columns.Count), Cells(1, Columns.Count)).End(xlToLeft).Column + 1

Range(Cells(1, 1), Cells(lr, lc)).Select

For Each rng In Selection

s = rng.Value

rng.Value = reg.Replace(s, "")

Next rng

Range(Cells(1, 1), Cells(lr, lc)).Select

For Each rng In Selection

s = rng.Value

rng.Value = VBA.Trim(s)

Next rng

End Sub

－End－