作者:乔山办公网日期:
返回目录: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
请注意修改使用上述代容码中的文件路径。
选中第一个,按住shift,鼠标点击最后一个文件,然后按F2,再输入新名称,回车后所有文件都会重命名成你输入的新名称后面加一个带括号的数字。
1、打zhidao开Excel,在A列中输入“ren+空格”;
2、在B列中输入“旧文件名+空格”;回
3、在C列中输入“新文件名+空格”;
4、在D列中输入函数“=A1&B1&C1”;
5、然后选择D列并复制;
6、打开新记事本并粘贴该内容;
7、把该文本文档保存为bat文件,并移动到该文件夹下答,双击运行即可。