如何用excel给文件批量重命名
发布网友
发布时间:2022-03-03 10:57
我来回答
共2个回答
热心网友
时间:2022-03-03 12:27
原来文件名称复制到A2以下单元,再将新文件名称录入到B2以下单元,执行宏:
Sub 批量修改文件名()
a = [a:a].Find("*", , xlValues, , , 2).Row 'A列最后可见单元的行号
For b = 2 To a
c = Range("a" & b).Value
cc = Range("b" & b).Value
Name "e:\图片\" & c As "e:\图片\" & cc
Next
End Sub
请注意修改使用上述代码中的文件路径。
热心网友
时间:2022-03-03 13:45
你要对哪些文件重命名,在EXCEL里面了吗,拷屏看看