【函数小题】字符串去重及压缩

cutecpu

1055751654 发表于 2020-6-9 20:05
代码都没你的函数长
Sub kk()
Dim regex As Object, rg As Range, aa, aaa, TT$

Sub demo()
   For r = 3 To Cells(Rows.Count, "E").End(xlUp).Row
      s = Cells(r, "E").Value: p = Left(s, 1): c = 0
      f = "": g = ""
      For i = 1 To Len(s) + 1
         If Mid(s, i, 1) = p Then
            c = c + 1
         Else
            f = f & p: g = g & p & c
            p = Mid(s, i, 1): c = 1
         End If
      Next
      Cells(r, "F").Resize(1, 2) = Array(f, g)
   Next
End Sub


祝順心，南無阿彌陀佛！

1055751654

ggmmlol 发表于 2020-6-9 23:21
如果用正则，可以用同一个正则表达式完成去重、压缩。
其中，解决“压缩”的问题，可以用正则的Replace ...

好的，谢谢老师，我又看到19楼张无忌的图，中间去重的又怎么弄出来呀？这个号花又没了，得登另一个号才有

1055751654

cutecpu 发表于 2020-6-10 00:45
Sub demo()
   For r = 3 To Cells(Rows.Count, "E").End(xlUp).Row
      s = Cells(r, "E").Value: p ...

谢老师，19楼张无忌中间的又怎么弄呀？是不是要递归

ggmmlol

1055751654 发表于 2020-6-10 07:13
谢老师，19楼张无忌中间的又怎么弄呀？是不是要递归

既然用到VBA了，那手段就多了去了。
相对于函数公式构建内存数组的复杂程度，VBA可以灵活地用数组、集合、单变量等来存储中间数据，对源字符串灵活地拆分、合并，可以用多重循环实施降维打击，因此可以轻松搞定。

1. Sub test2()
   
2.     Set reg = CreateObject("VBScript.RegExp")
   
3.     reg.Global = True
   
4.     ar = Range("A1").CurrentRegion.Resize(, 2).Offset(2)
   
5.     r = UBound(ar)
   
6.     ReDim br(1 To r, 1 To 2)
   
7.     For i = 1 To r - 1
   
8.         s = ar(i, 1)
   
9.         Do While Len(s) > 0
   
10.             cl = Left(s, 1)
    
11.             reg.Pattern = cl & "+"
    
12.             Set mas = reg.Execute(s)
    
13.             br(i, 1) = br(i, 1) & String(mas.Count, cl)
    
14.             For Each ma In mas
    
15.                 br(i, 2) = br(i, 2) & cl & Len(ma)
    
16.             Next
    
17.             s = reg.Replace(s, "")
    
18.         Loop
    
19.     Next
    
20.     Range("I3").Resize(r - 1, 2).Value = br
    
21. End Sub
    

复制代码

deadzlq

PowerQuery M函数参考解法（来凑热闹）

1055751654

ggmmlol 发表于 2020-6-10 08:54
既然用到VBA了，那手段就多了去了。
相对于函数公式构建内存数组的复杂程度，VBA可以灵活地用数组、集合 ...

谢谢老师，很强大

ggmmlol

deadzlq 发表于 2020-6-10 09:41
PowerQuery M函数参考解法（来凑热闹）

你这去重不符合题目要求：连续重复的，才要求去重；如果是不连续的，还是要另算的，

libo5563

deadzlq 发表于 2020-6-10 09:41
PowerQuery M函数参考解法（来凑热闹）

拆成list，table.fromvalues，再group局部分组会不会简单些？

deadzlq

libo5563 发表于 2020-6-10 17:57
拆成list，table.fromvalues，再group局部分组会不会简单些？

步骤会多点

1055751654

ggmmlol 发表于 2020-6-9 23:21
如果用正则，可以用同一个正则表达式完成去重、压缩。
其中，解决“压缩”的问题，可以用正则的Replace ...

"=""" & reg.Replace(ar(i, 1), "$1""&len(""$1$2"")&""") & """"这个引号真的太难学了好晕