Excel VBA：单元格为空时跳过重命名仍报错的解决咨询

1. 创建文件夹未跳过空路径：代码循环时不管TAncNouv(L,3)（目标文件夹路径）是否为空，都会执行MkDir的判断逻辑。当该行是空行时，TAncNouv(L,3)是空字符串，MkDir试图创建空路径的文件夹，直接触发路径访问错误。
2. 空行判断逻辑不完整：仅判断TAncNouv(L,1)（原文件名）为空就跳过移动，但如果TAncNouv(L,2)（目标文件名）为空，执行Name语句时会因目标路径无效报错；而且空行时连文件夹创建的逻辑都不该执行。

Sub Move_Native()
    Dim TAncNouv(), L&
    Dim Fobj As Object
    Set Fobj = CreateObject("scripting.filesystemobject")
    ChDrive ThisWorkbook.Path: ChDir ThisWorkbook.Path
    TAncNouv = ActiveSheet.Range("xml_ENGDOC[OriginalNativeName]").Resize(, 3).Value
    
    For L = 1 To UBound(TAncNouv, 1)
        ' 关键列任一为空则直接跳过该行
        If IsEmpty(TAncNouv(L, 1)) Or IsEmpty(TAncNouv(L, 2)) Or IsEmpty(TAncNouv(L, 3)) Then
            GoTo NextRow
        End If
        
        ' 路径有效时才创建目标文件夹
        If Not Fobj.FolderExists(TAncNouv(L, 3)) Then
            MkDir TAncNouv(L, 3)
        End If
        
        ' 执行文件移动操作
        Name TAncNouv(L, 1) As TAncNouv(L, 2)
        
NextRow:
    Next L
End Sub

• 完整跳过空行：循环开头直接检查原文件名、目标文件名、目标文件夹三个核心字段，只要有一个为空就跳转到下一行，彻底避免无效操作。
• 杜绝无效文件夹创建：仅当目标文件夹路径非空时，才判断是否需要创建，避免空路径的错误调用。
• 简化逻辑结构：用GoTo NextRow让跳过逻辑更直观，减少嵌套的If-Else层级。

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