EXCEL文件\文件夹更名-批量重命名文件名，支持反悔功能（2024.1.17更新）

lizhipei78 · 发表于 2023-12-30 14:25

本帖最后由 lizhipei78 于 2024-1-17 10:00 编辑

现在重命名软件有很多，可是大多功能繁杂，操作麻烦，最近用的比较多还是Excel版本的，用Excel来进行批量修改文件名，就是直接明了，就只需要看两列，一列是旧文件名，另一列是新文件名，新文件名要自己填写，一般用函数处理后得到。

2024.1.17更新支持文件夹重命名功能，都支持撤销反悔功能。

文件-文件夹批量重命名.rar (67.2 KB, 下载次数: 1180)

tiandi123 · 发表于 2023-12-30 15:19

简单实用，小建议：文件名后，原来的文件名这列更新成改后的名称。现在的文件名这列如果为空，自动忽略，只更改有内容的

rrxfw · 发表于 2023-12-31 09:14

谢谢分享。

zzzxxxmmm · 发表于 2024-1-1 07:02

谢谢分享

gaolzhen · 发表于 2024-1-2 10:10

不错,不错真心不错

18978816590 · 发表于 2024-1-3 12:46

谢谢分享

lizhipei78 · 发表于 2024-1-16 19:06

本帖最后由 lizhipei78 于 2024-1-17 10:02 编辑

一楼已经更新

zhaoxuie · 发表于 2024-1-16 21:13

真心不错！谢谢分享

半夏知秋 · 发表于 2024-1-17 16:14

之前用过这个，确实不错

sunshuangzhong · 发表于 2024-1-18 07:45

tiandi123 发表于 2023-12-30 15:19
简单实用，小建议：文件名后，原来的文件名这列更新成改后的名称。现在的文件名这列如果为空，自动忽略，只 ...

Sub 文件重命名()
Dim Arr, i%, oldName$, newName$
On Error Resume Next
Sheet1.Activate
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Range("A2") = "" Then MsgBox "没有数据", 64, "提示": Exit Sub
If Range("B1") = "原来的文件名" Then MsgBox "你已经重命名过文件了", 64, "提示": Exit Sub
Arr = Range("A1").CurrentRegion
' For i = 2 To UBound(Arr)
'       If Len(Arr(i, 3)) = 0 Then MsgBox "请将第  " & i & "  行的新文件名填写完整!", 64, "提示": Exit Sub
' Next
For i = 2 To UBound(Arr)
      oldName = Arr(i, 1) & Arr(i, 2) & Arr(i, 4)
      newName = Arr(i, 1) & Arr(i, 3) & Arr(i, 4)
      If Len(Arr(i, 3)) <> 0 Then
         Name oldName As newName
      End If
Next
Range("B1") = "原来的文件名"
Range("C1") = "现在的文件名"
MsgBox "重命名完成,请查看", 64, "提示"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

		自动登录	找回密码
密码			免费注册

[分享] EXCEL文件\文件夹更名-批量重命名文件名，支持反悔功能（2024.1.17更新）

评分