如何用VBA给<em>excel</em>工作表<em>批量重命名</em&g

代码如下：

Sub 宏1()
    for i=2 to Sheets.Count
        Sheets(i)=trim(i-1)
    next i
End Sub

网页链接

我做的一个小工具，希望可以帮到你

一、新建一工作薄“book1.xls”
二、在“sheet1”的A1:a2000中输入或粘贴“IMG_0001.jpg, IMG_0002.jpg, IMG_0003.jpg, IMG_0004.jpg .......IMG_1999.jpg ， IMG_2000.jpg ”；在“sheet1”的B1:B2000中输入或粘贴“张三.jpg,李四.jpg,王五.jpg....刘备.jpg,” 等2000个姓名。注意：姓名和照片要是一一对应的。
三、按ALT+F11调出VBA编辑框。
四、在工程框里插入一个模块1，双击模块1出现代码框
五、在代码框里复制以下代码

Sub rename()
Dim y_name As String
Dim x_name As String
For i = 1 To 2000
y_name = "d:\photo\" + Cells(i, 1).Value
x_name = "d:\photo\" + Cells(i, 2).Value + ".jpg"
On Error Resume Next
Name y_name As x_name
Next
End Sub

六、运行宏 “rename”
数秒钟后e799bee5baa6e58685e5aeb9363，photo 文件夹里的照片的文件名就都变成姓名了。