如何用excel给文件批量重命名
展开全部
原来文件名称复制到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
请注意修改使用上述代码中的文件路径。
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
请注意修改使用上述代码中的文件路径。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
