回复：求助各位大佬，想了五天了没想出来

我想知道，像这样的情况，最终你想要的结果是怎么样的？

Sub 企鹅47436528()
Dim 最小值 As Double, brr, k
Set reg = CreateObject("VbScript.regexp") '创建正则项目方法
arr = UsedRange
With reg
.Global = True '匹配次数为多次
.Pattern = "\[\d+" '定义正则表达式规则
For i = 1 To UBound(arr)
s = arr(i, 1)
If Not .test(s) Then GoTo line
Set cy = .Execute(s)
For n = 0 To cy.Count - 1
ss = Replace(cy(n), "[", "")
If 最小值 = 0 Then 最小值 = ss
arr(i, 1) = Replace(arr(i, 1), ss, 最小值)
最小值 = 最小值 + 1
Next n
line:
Next i
End With
[c1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub