分享一个Excel 加载宏

s_user

主要功能介绍：
1、        第一组：My Favorite
(1)        Number Format
选择所有与活动单元格数字格式相同的单元格。
(2)        Insert Index
插入一个叫“目录”的worksheet，并且把这个工作表放在所有工作表的前面。如果“目录”sheet已经存在，将覆盖它。
制作目录的同时，会在每个工作表的A1 单元格插入超链接，链接到“目录”工作表。
(3)        Add Round()
选择一个区域，点击Add Round()。如果选取内有数字(包括返回数字的公式)的单元格，会给这些单元格加上round()函数，可以自定义精确位数哦！
(4)        Del Round()
万一给不该四舍五入的单元格加了Round()函数呢！这个功能就是一粒后悔药，轻轻一点，删除刚才添加的round()函数。
(5)        Divide 1000
选区内所有单元格除以1000，用的是公式，不用担心除错了恢复不了。在把元转换为千元的时候非常有用。
而且，你可以自定义除数，不限于1000.
(6)        Mutiply 1000
选区内所有单元格乘以1000，同样用公式。这个是另一粒后悔药了，如果除以1000的时候范围选大了，这个可以把选区内的公式复原。
(7)        Display As Index
前面不是有一个Insert Index的功能么，目录的第三列是记录要不要隐藏工作表。如果需要隐藏（或显示）一些工作表，只要在第三列对应的行写“是”（或“否”），然后点Display As Index，就会按照你的选择隐藏（或显示）工作表。
(8)        Display All sheets
显示所有工作表（不会更新目录中的状态）
(9)        Del Hidden sheets
删除所有隐藏工作表（谨慎操作）
2、        第二组：Find You
(1)        Find Strings
方便筛选多个值。
(2)        Add Dropdowns
选择一个区域，点击【Add Dropdowns】，会在该区域每个单元格插入一个悬浮的下拉菜单。
注意：悬浮的下拉菜单和单元格是相互独立的，下拉菜单不会随单元格变化大小！而且，在悬浮下拉菜单里显示的值并不等于对应单元格里的值。如果你在第一菜单里选择了“广州”，D4单元格仍然是空的（而不是“广州”）。若想把下拉菜单里的值复制到对应的单元格里，可以使用【Get Text From DD】功能。
(3)        Select Dropdown
若要删除一个区域内所有的悬浮下拉菜单，选择这个区域，点击【Select Dropdown】，该区域内的所有悬浮下拉菜单都被选中，再按Delete键。
(4)        Get Text From DD
如上，该功能是将悬浮下拉菜单中的文字复制到对应的单元格。如果一个悬浮下拉菜单跨越不止一个单元格，以悬浮下拉菜单的中心点为准。
(5)        Scan Comments
生成一个名为“Comments”的worksheet，列示本workbook里所有的Comment.
(6)        Del Sel Comments
在上面生成的“Comments”工作表中，D列标记是否需要删除该Comment，默认为Yes，即删除。若不删除，请修改为No。点击【Del Sel Comments】，将删除所有标记为“Yes”的Comment.
(7)        Del All Comments
删除本workbook中所有的Comments.
3、        第三组：My Format
(1)        ColorCells
将选区内所有单元格变成与活动单元格一样的颜色。如果你的worksheet分成很多个区域，不同的区域需要着不同的颜色，而这些颜色在颜色面板里不太好找，可以试试这个功能。
4、        第五组：My Formula
(1)        TextMatch()
安装了本加载宏的电脑可以在Excel中使用TextMatch()函数。该函数的功能是在一列文本中找到与目标文本最接近的一个。函数有三个参数，第一个参数为查找范围，即”在哪里找“，第二个是目标值，即”找什么”，第三个是最低相似度，范围为0-10。第三个参数越大结果越靠谱，但是啥也找不到的可能性也更大。
点击【TextMatch】可查看TextMatch()函数的运行示例。
(2)        ContainString()
与【TextMatch】类似。
ContainString()函数是要在一个长字符串中找出一个短字符串。该函数有三个参数，第一个参数为长字符串，即”在哪里找“，第二个参数为短字符串列表，第三个是可选参数，True表示在短字符串列表中从上往下找，False表示从下往上找。默认TRUE。
点击【ContainString】查看ContainString()函数的运行示例。

awi001

虽然现在俺不懂，但是仍支持楼主的他享精神。

s_user

更新了下，增加了一个文件名称管理的工具。另外增加了中文版