求一段格式调整的代码，，去除重复内容

如果是
[省份] 内容1
. 内容2
会容易的多

你这个主要难度是,你要省份跟内容,做在一列,但是不知道每组内容有多少个,,,,我说个稍微麻烦的方案,先全部mid4个字符,复制到原内容的下方,然后排序,这样就插入了省份标签,在筛选不是4个字符长度的内容,查找替换掉[*]

要是懂vba 一切都不是问题

不知道是不是你的意思，但是我怎么感觉不对劲，如果说固定模板的话，直接用对【】进行split然后再用数组join就结束了，

Sub 问题()
Dim reg, sols, arr, dic, i, drr, crr
arr = [a1].CurrentRegion
Set reg = CreateObject("vbscript.regexp")
Set dic = CreateObject("scripting.dictionary")
reg.Global = True
reg.Pattern = "(【\S*】)(内容\S*)"
For i = 1 To UBound(arr, 1)
Set sols = reg.Execute(arr(i, 1))
If Not dic.exists(sols(0).submatches(0)) Then
dic(sols(0).submatches(0)) = sols(0).submatches(1)
Else
dic(sols(0).submatches(0)) = dic(sols(0).submatches(0)) & _
Chr(10) & sols(0).submatches(1)
End If
Next
drr = dic.keys
ReDim crr(0 To dic.Count - 1, 1 To 1)
For i = 0 To UBound(drr, 1)
crr(i, 1) = drr(i) & Chr(10) & dic(drr(i))
Next
[b1].Resize(dic.Count) = crr
End Sub

不难啊，就很常规的reduce+vstack
=DROP(REDUCE(0,UNIQUE(LEFT(A1:A5,4)),LAMBDA(s,n,VSTACK(s,n,FILTER(MID(A1:A5,5,99),LEFT(A1:A5,4)=n)))),1)

楼主吱歪了几日 该上图了。