原来文件名称复制到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
请注意修改使用上述代码中的文件路径。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024