EXCEL 如何将重复的字节变成单一的字节
发布网友
发布时间：2022-04-23 03:16
共2个回答
热心网友
时间：2023-07-03 04:50
用宏吧，选中你要处理的列，然后运行宏就好了。
Sub 去重()Dim rng As Range, cl As Range, tmp As String
Dim reg As Object
Set rng = Intersect(ActiveSheet.UsedRange, Selection)
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "(.+?)\1+"
reg.Global = True
For Each cl In rng
If reg.test(cl.Value) = True Then
tmp = reg.Replace(cl.Value, "$1")
cl = tmp
End If
Next
End Sub
热心网友
时间：2023-07-03 04:50
