今天,有同事提出想批量修改文件名,规则比较简单,在第五位后加“-”即可, 上网没找到相关工具,就自己做了个excel,用宏代码修改. 代码如下: Private Sub CommandButton1_Click() Dim varFileList As Variant MsgBox "选择要重命名文件所在的文件夹,点击确定!" With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = F
在指定路径下,搜索Excel文件中包含的指定内容,首先需要遍历指定路径,得到该路径下所有Excel文件的绝对/相对路径:然后读取Excel中内容,将文件中的每个单元格的值与要搜索的内容进行判断(正则比较,等值比较).因此,实现该功能需要完成两部分内容,路径遍历和Excel文件内容读取. 使用os模块遍历指定路径下的所有excel文件 import os def files(dirpath, suffix=['.xls', 'xlsx']): for root , dirs, files in o
概要:在 Microsoft Excel 中,可以创建宏来删除列表中的重复项.也可以创建宏来比较两个列表,并删除第二个列表中那些也出现在第一个(主)列表中的项目.如果您想将两个列表合并在一起,或者如果只想看到新的信息,则上述做法很有用.本文包含 Microsoft Visual Basic for Applications 示例宏(Sub 过程),说明如何删除单个列表中的重复记录(示例 1),以及如何在比较两个列表后删除重复记录(示例 2).这些宏并不要求对列表进行排序.此外,这些宏可删除任意数