Excel VBA移除文件名连字符：遍历不全与重命名应用问题咨询

核心问题原因 #

• 循环只处理第一个文件的问题：本质是循环逻辑漏写了文件遍历步骤。Dir函数的规则是，首次调用传入路径会返回目录下第一个匹配的文件；后续必须在循环体里不传任何参数再次调用Dir，才能依次拿到目录下的后续文件。现有代码在循环里从来没有更新ffile的取值，ffile永远停留在第一次拿到的第一个文件名上，自然永远只能处理这一个文件。
• 重命名不生效的问题：现有代码只是在内存里生成了不带连字符的新文件名，既没有拼接文件的完整磁盘路径，也没有调用VBA的文件修改指令，自然没法对磁盘上的实际文件做重命名操作。

可直接运行的修正版代码 #

Sub Remove_Special()
    Dim ffile As String
    Dim pathname As String
    Dim nname As String
    pathname = "C:\Users\me\Desktop\TestFile2\"
    ' 首次调用带路径参数，匹配目录下所有文件
    ffile = Dir(pathname & "*.*")
    
    Do While ffile <> ""
        ' 过滤系统自动生成的特殊目录标识，避免误处理
        If ffile <> "." And ffile <> ".." Then
            ' 移除文件名中所有连字符
            nname = Replace(ffile, "-", "")
            
            ' 文件名无变化时跳过，减少无效操作
            If nname <> ffile Then
                ' VBA内置重命名语法：Name 原文件全路径 As 新文件全路径
                Name pathname & ffile As pathname & nname
            End If
        End If
        ' 关键修复：无参调用Dir，获取目录下的下一个文件
        ffile = Dir
    Loop
    
    MsgBox "文件名连字符批量移除完成"
End Sub

可选优化 #

如果你的文件名里连字符前后带有多余空格（比如示例里的XXXXX- XXXXXX_.pdf），移除连字符后可能会留下连续的冗余空格，可以把生成新文件名的代码行调整为：

nname = Replace(Replace(ffile, "-", ""), "  ", " ")

调整后会自动把连续两个及以上的空格替换为单个空格，文件名观感更整洁。

操作提示：运行代码前建议先备份目标目录内的文件，避免因路径配置错误造成文件访问异常。

内容的提问来源于stack exchange，提问作者SoraHeart