求助批量去除的公式！在线等等等。。。。

zhangcheng6688

无关岁月 发表于 2025-3-28 11:38

老师，reg.Pattern = "^[A-E|S]."和reg.Pattern = "^[A-E|S]\."出来的效果为什么是一样的，表示英文句号本身含义的话\.这个才是正确的吧

无关岁月

zhangcheng6688 发表于 2025-4-4 08:12
老师，reg.Pattern = "^[A-E|S]."和reg.Pattern = "^[A-E|S]\."出来的效果为什么是一样的，表示英文句号 ...

.表示除换行符以外的任意字符，\.表示.本身，在这个例子中两者一样，但其实不一样

wyslw2004

mengrs 发表于 2025-3-28 12:51
=REPLACE(F3,1,2,)

学习了。虽然平时知道能这么用。但真正应用时，就想不到REPLACE这个用法

mykitami

=GROUPBY(A2:A16,VSTACK(F2,TEXTAFTER(F3:F16,".")),SINGLE,3,0,)

军生

mykitami 发表于 2025-4-4 09:51
=GROUPBY(A2:A16,VSTACK(F2,TEXTAFTER(F3:F16,".")),SINGLE,3,0,)

GROUPBY   啥版的office？

mykitami

军生 发表于 2025-4-4 10:15
GROUPBY   啥版的office？

M365或WPS新版

zhangcheng6688

学习一下正则表达式
Sub test()
arr = [a1].CurrentRegion
Set dic = CreateObject("scripting.dictionary")
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "[^.]+\."
For i = 3 To UBound(arr)
   If Not dic.exists(arr(i, 1)) Then
      If reg.test(arr(i, 6)) Then
         Set mh = reg.Execute(arr(i, 6))
         dq = reg.Replace(arr(i, 6), "")
         dic(arr(i, 1)) = dq
      End If
   End If
Next
[ad5].CurrentRegion.Offset(1).ClearContents
[ad6].Resize(dic.Count, 2) = Application.WorksheetFunction.Transpose(Array(dic.keys, dic.items))
Set dic = Nothing
End Sub

万宾临城

=TEXTAFTER(F3,".")