【超级查找替换】加载宏小工具添加和更新了多项重要功能

shenjianrong163

ggmmlol 发表于 2023-7-20 00:10
噢，你说的是成对的中文小括号，是指“全角”圆括号吧？

那就把这个表达式中匹配半角括号的符号，替换成 ...

好的，谢谢！

feng-aa

ggmmlol 发表于 2023-6-29 02:37
更新：
1、为避免快捷键冲突，“超级查找替换”功能的快捷键修改为：Ctrl+Alt+H
2、为“超级查找替换”功 ...

感谢大神，期待带导航灯和快速录入小妖工具

ggmmlol

更新：
现在，可以在WPS中加载使用了！

更新：添加 “多栏排版”  和 “逆透视”两个新功能。
更新：添加“填充合并”功能（合并单元格区域内的空值补全，而且保留合并格式不变，方便用公式统计查询。）

更新定义函数REGMATCHES，增加两个参数，以支持对匹配项，按顺序或倒序截取指定的第n项或前n项。

1. Function REGMATCHES(ByVal Pttn$, ByVal Icase, ByVal id, ByVal Slice, ParamArray Text1())
   
2.     '/参数说明：
   
3.     '/  (Pttn) 正则表达式。字符串值。必须。
   
4.     '/  (Icase) 是否区分大小写。布尔值。可省略（但必须用半角逗号","占位，取False）。
   
5.     '/  (id) 取匹配项的第n项（或 前n项)。长整数。可省略（但必须用半角逗号","占位，取0）。id =0 时，提取所有匹配项；id >0 时，按顺序取。id为负数时，按逆序取
   
6.     '/  (Slice) 是否截取id之前的所有项。布尔值。可省略（但必须用半角逗号","占位，取True）
   
7.     '/  (Text1)
   
8.     '/  返回值：REGMATCHES。无匹配，返回空字符串。取到1个或多个匹配项时，返回字符串或字符串数组。
   
9.     '/  功能特点：自动判断是否存在捕获分组。当存在时，只取捕获分组的内容（如有多个捕获分组，则合并），忽略捕获分组外的内容。当不存在捕获分组时，取匹配到的整个内容。
   
10.     '/  这样，可以解决VBScript.RegExp不支持逆序零宽断言的问题。比如要取美元金额(即美元货币符号"$"的数值)时,可以用"$(\d+(?:\.\d+))"。
    
11.     '/  当要提取人民币金额（字符“元”之前的数值），可以用"\d+(?:\.\d+)?(?=元)",也可以用"(\d+(?:\.\d+)?)元"
    
12.     Dim ar, i, j, tmp$(), n&, ma As Match, sma, itm, HasSubMatches As Boolean, mav As String
    
13.     If IsMissing(Icase) Then Icase = 0 Else Icase = Val(Icase)
    
14.     If IsMissing(id) Then id = 0 Else id = CLng(id)
    
15.     If id = 0 Then Slice = True Else If IsMissing(Slice) Then Slice = True Else Slice = CBool(Slice)
    
16.     With CreateObject("VBScript.RegExp")
    
17.         .Global = True
    
18.         .IgnoreCase = CBool(Icase)
    
19.         .Pattern = Pttn & "|[\d\D]+"
    
20.         HasSubMatches = CBool(.Execute("a")(0).SubMatches.Count)
    
21.         .Pattern = Pttn
    
22.         ReDim tmp(1 To 1): tmp(1) = ""
    
23.         For Each itm In Text1
    
24.             If TypeName(itm) = "Range" Then ar = itm.Value Else ar = itm
    
25.             If Not IsArray(ar) Then ReDim ar(1 To 1, 1 To 1): ar(1, 1) = itm
    
26.             For i = 1 To UBound(ar)
    
27.                 For j = 1 To UBound(ar, 2)
    
28.                     For Each ma In .Execute(ar(i, j))
    
29.                         If HasSubMatches Then
    
30.                             mav = ""
    
31.                             For Each sma In ma.SubMatches
    
32.                                 If Len(sma) > 0 Then mav = mav & sma
    
33.                             Next
    
34.                             mav = Mid(mav, 2)
    
35.                         Else
    
36.                             mav = ma.Value
    
37.                         End If
    
38.                         If Len(mav) > 0 Then
    
39.                             n = n + 1
    
40.                             If Slice Or id <= 0 Then
    
41.                                 ReDim Preserve tmp(1 To n)
    
42.                                 tmp(n) = mav
    
43.                             Else
    
44.                                 tmp(1) = mav
    
45.                             End If
    
46.                             If n = id Then GoTo ret
    
47.                         End If
    
48.                     Next
    
49.                 Next
    
50.             Next
    
51.         Next
    
52.     End With
    
53. ret:
    
54.     If n = 0 Or id >= 0 Then
    
55.         REGMATCHES = tmp
    
56.     ElseIf Slice Then
    
57.         If -id > n Then id = -n
    
58.         For i = 1 To id
    
59.             tmp(i) = tmp(n + id + i)
    
60.         Next
    
61.         ReDim Preserve tmp(1 To -id)
    
62.         REGMATCHES = tmp
    
63.     Else
    
64.         REGMATCHES = tmp(n + id + 1)
    
65.     End If
    
66. End Function

复制代码

小妖工具.rar (125.6 KB, 下载次数: 76)

2023-12-27 19:25 上传

点击文件名下载附件

到此e游

很强大，作个标记，以后慢慢消化。

jmz14865220

正需要这个 搜索到了

saintliew

很好很强大，就是暂时对正则表达式了解不多

adfs945

感谢大神无私付出

ggmmlol

优化：按关键字着色的关键字，以代码预先按字符个数降序排列，再用于正则匹配，避免被包含的短字串先匹配而使长字串不被匹配。
添加：EXCEL窗口固顶功能
添加：文本转换功能（大小写转换；首字母大写；全角半角转换）
小妖工具.rar (134.36 KB, 下载次数: 23)

2024-7-22 06:28 上传

点击文件名下载附件

laughbest

很好很强大！