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

ggmmlol · 发表于 2018-8-21 13:01

本帖最后由 ggmmlol 于 2018-8-21 13:34 编辑

由本人原创的Excel加载宏工具——单元格小工具之六：【超级查找替换】加载宏工具，今天发布新版，添加或更新了多项功能：

原首发帖见：
[加载宏]单元格小工具之六——超级查找替换
http://club.excelhome.net/thread-1421478-1-1.html
(出处: ExcelHome技术论坛)

最新版附件：

超级查找替换.rar (118.47 KB, 下载次数: 892)

1、[查找内容] 的下拉列表中，预置多项常用正则表达式。
2、预置由本人精心总结出的提取特定文本的“万能正则表达式”公式，及其3种变形公式，方便用户套用，快速提取目标文本。当用户从下拉列表中选择其中一种时，自动将其中作为变量的部分反选，方便用户代入自己编写的目标正则表达式。
3、[替换为] 的下拉列表中，同样也内置多项常用表达式。
4、从[查找内容]的下拉列表中选中一个内置选项时，[替换为] 和 [字符修剪] 的输入框中将智能地相应改变为最常用的对应项，可以满足日常多数情况的需求。
5、被执行过查找或替换的表达式，自动被保存到下拉列表中。使用窗体中的“关闭”commandbutton关闭窗口时，这些表达式被保存；如果使用窗体右上角的标题栏的红X按钮关闭窗口，则由用户输入的表达式将被从下拉列表中清除、恢复为默认状态，避免下拉框内容过多，干扰选择常用选项。
6、“正则表达式”助手，在此前已经添加，但这次更新又有所加强：
①双击其列表中的表达式，就会自动把该表达式复制到windows剪贴板
②在其表达式编辑框中做修改时，则自动把其整个在预览框中显示的内容复制到Windows剪贴板。
7、添加2003版的xla格式的加载宏文件
8、对64位Excel的兼容。（请使用64位Excel的用户反馈一下兼容代码能否正常起作用）
9、修正一处Bug。

下一版更新预告：
下一版将主要考虑添加帮助文档。
当前，用户可以参考本主题的实例。以及本主题的姊妹篇：
《提取符合特定规则的文本，我用“万能正则表达式！”》
http://club.excelhome.net/thread-1430954-1-1.html
(出处: ExcelHome技术论坛)
此外，本人最近集中回复了数十个相关帖子，其中大多数都使用了本工具来解答的，并且有清晰的gif动画演示。有兴趣的朋友可以自行查看我的这些回复帖子。稍后，我也将选择其中一些典型的案例，把这些回复的链接集中贴出来，方便大家参考。

界面和功能展示_超级查找替换.gif

补充内容 (2019-4-23 16:18):
更新：添加2个小功能；消除一处bug
当前最新文件在14楼：http://club.excelhome.net/forum. ... 722&pid=9909487

补充内容 (2021-6-10 16:23):
更新：①修正细微bug，②添加Ribbon菜单，③集成几个小功能。约为完结版。附件在29楼，已经置顶到2楼之前：
http://club.excelhome.net/forum. ... 22&pid=10703096

补充内容 (2021-6-24 14:23):
新增两个内置的正则表达式，用于清除多行文本中的【段落行首缩进空格】和【空白段落】。附件更新于29楼。

补充内容 (2021-7-10 13:44):
添加功能：对于包含批量关键字的单元格的查找、定位，以及突出显示功能。最新附件在29楼

补充内容 (2021-8-9 18:13):
最近更新在35楼

补充内容 (2022-12-8 20:56):
最新更新在46楼

补充内容 (2023-6-29 23:11):
最新更新在47楼

补充内容 (2023-12-11 17:34):
更新：增加对WPS的支持。（要求WPS本身已经安装了VBA编译器）
最新附件下载请往53楼：
https://club.excelhome.net/forum ... 22&pid=11392404

ggmmlol · 发表于 2021-6-10 16:15

本帖最后由 ggmmlol 于 2021-7-20 23:00 编辑

经过长时间的打磨修整，本【超级查找替换】加载宏工具基本趋于稳定，现在发布更新。

更新内容主要为：
1、修正了几个细微难以察觉的Bug。
2、添加Ribbon菜单。
3、集成几个小功能。（比如：“快选非连”，方便选中“不连续的单元格区域”；“批注转值”可以实现从“值”、“公式”、“批注”、“视在值指应用了格式而表面显示的值”的相互转化，可以方便把公式存入批注并在需要时即时取出。
本次更新版本大概率为完结版，后续有时间将整理一份帮助文档。
【2021-6-17日更新内容】：
一、“超级查找替换”功能的更新内容：
①更名为“正则查找替换”，
②去除该功能中不常用的“单元格匹配”选项，
③添加：正则表达式的“多行模式”功能。
④添加：“替换到”功能选项。可以将单元格选区的“公式”、“值”、“批注”、“视在值(Text属性值）”这4种属性值替换到另一对应选区的某种属性（可以前后属性不同），从而批量实现“公式”、“值”、“批注”、“视在值(Text属性值）”这4种属性之间的相互转化、修改。原“批注转值”功能项已经被包含到此项中，其Ribbon菜单项取消。
二、添加：一个小的功能项“罗列非空值”。将选区的非空值按顺序（逐行或逐列）罗列到单列或单行。选区可以是不连续的多个区域。
三、此加载宏已经包含多个实用小工具，因此整体更名为“小妖工具”。
小妖工具.png

小妖工具.rar (96.43 KB, 下载次数: 169) 内置正则表达式的功能列表.gif

ggmmlol · 发表于 2023-6-29 02:37

本帖最后由 ggmmlol 于 2023-8-2 23:55 编辑

更新：
1、为避免快捷键冲突，“超级查找替换”功能的快捷键修改为：Ctrl+Alt+H
2、为“超级查找替换”功能的内置正则表达式添加相应的名称，便于快速选中需要的表达式。
3、为“超级查找替换”功能再增加几个内置正则表达式，现有总数达到近30个。
4、修正1处Bug

小妖工具.rar (101.49 KB, 下载次数: 88)

ggmmlol · 发表于 2023-12-11 17:30

本帖最后由 ggmmlol 于 2023-12-27 19:25 编辑

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

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

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

Function REGMATCHES(ByVal Pttn$, ByVal Icase, ByVal id, ByVal Slice, ParamArray Text1())
'/参数说明：
'/ (Pttn) 正则表达式。字符串值。必须。
'/ (Icase) 是否区分大小写。布尔值。可省略（但必须用半角逗号","占位，取False）。
'/ (id) 取匹配项的第n项（或前n项)。长整数。可省略（但必须用半角逗号","占位，取0）。id =0 时，提取所有匹配项；id >0 时，按顺序取。id为负数时，按逆序取
'/ (Slice) 是否截取id之前的所有项。布尔值。可省略（但必须用半角逗号","占位，取True）
'/ (Text1)
'/ 返回值：REGMATCHES。无匹配，返回空字符串。取到1个或多个匹配项时，返回字符串或字符串数组。
'/ 功能特点：自动判断是否存在捕获分组。当存在时，只取捕获分组的内容（如有多个捕获分组，则合并），忽略捕获分组外的内容。当不存在捕获分组时，取匹配到的整个内容。
'/ 这样，可以解决VBScript.RegExp不支持逆序零宽断言的问题。比如要取美元金额(即美元货币符号"$"的数值)时,可以用"$(\d+(?:\.\d+))"。
'/ 当要提取人民币金额（字符“元”之前的数值），可以用"\d+(?:\.\d+)?(?=元)",也可以用"(\d+(?:\.\d+)?)元"
Dim ar, i, j, tmp$(), n&, ma As Match, sma, itm, HasSubMatches As Boolean, mav As String
If IsMissing(Icase) Then Icase = 0 Else Icase = Val(Icase)
If IsMissing(id) Then id = 0 Else id = CLng(id)
If id = 0 Then Slice = True Else If IsMissing(Slice) Then Slice = True Else Slice = CBool(Slice)
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = CBool(Icase)
.Pattern = Pttn & "|[\d\D]+"
HasSubMatches = CBool(.Execute("a")(0).SubMatches.Count)
.Pattern = Pttn
ReDim tmp(1 To 1): tmp(1) = ""
For Each itm In Text1
If TypeName(itm) = "Range" Then ar = itm.Value Else ar = itm
If Not IsArray(ar) Then ReDim ar(1 To 1, 1 To 1): ar(1, 1) = itm
For i = 1 To UBound(ar)
For j = 1 To UBound(ar, 2)
For Each ma In .Execute(ar(i, j))
If HasSubMatches Then
mav = ""
For Each sma In ma.SubMatches
If Len(sma) > 0 Then mav = mav & sma
Next
mav = Mid(mav, 2)
Else
mav = ma.Value
End If
If Len(mav) > 0 Then
n = n + 1
If Slice Or id <= 0 Then
ReDim Preserve tmp(1 To n)
tmp(n) = mav
Else
tmp(1) = mav
End If
If n = id Then GoTo ret
End If
Next
Next
Next
Next
End With
ret:
If n = 0 Or id >= 0 Then
REGMATCHES = tmp
ElseIf Slice Then
If -id > n Then id = -n
For i = 1 To id
tmp(i) = tmp(n + id + i)
Next
ReDim Preserve tmp(1 To -id)
REGMATCHES = tmp
Else
REGMATCHES = tmp(n + id + 1)
End If
End Function

复制代码

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

vbee · 发表于 2018-8-21 19:23

谢谢分享，EXCEL有你更精彩

ggmmlol · 发表于 2018-8-21 19:34

vbee 发表于 2018-8-21 19:23
谢谢分享，EXCEL有你更精彩

谢谢支持。

另外，如果有使用64位Excel的坛友下载试用了本加载宏，还请反馈一下能否正常加载。

Wendy126 · 发表于 2018-9-29 21:59

64位已使用，用于提取单元格中的电话号码，7万+数据，很正常。非常感谢楼主！

guski216 · 发表于 2018-10-3 15:33

ggmmlol 发表于 2018-8-21 19:34
谢谢支持。

系统win7，64位，Office,32位，加载不了

ggmmlol · 发表于 2018-10-4 13:26

guski216 发表于 2018-10-3 15:33
系统win7，64位，Office,32位，加载不了

32位office应该没有问题的。

心如止水丶 · 发表于 2018-10-30 21:36

先顶再看！！感谢大神相助！

lu6200 · 发表于 2018-12-23 00:56

感谢大神无私付出

powerremain · 发表于 2018-12-26 15:56

神器啊，像word一样强大的查找替换

jackwen2009 · 发表于 2019-2-1 18:28

非常感谢大神的分享！！！新年快乐！

		自动登录	找回密码
密码			免费注册

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

评分

评分