基于单元格值将工作表移动至另一工作簿的VBA实现求助

现有一个包含大量工作表的大型工作簿，运行报表后会在B列填充触发标识，A列为该工作簿中所有工作表的名称，B列标记为“Yes”的对应工作表需移动至另一个工作簿。仅找到移动单元格的示例但无法解决问题，恳请提供帮助或技术方向。

原代码问题分析 #

你尝试的VBA代码存在多处语法、逻辑错误，导致无法正常运行：

Dim WBK As Workbook
Dim WBK2 As Workbook 
Set WBK= ThisWorkbook
Set WBK= Workbooks.Open(Filename:"ReportList.xlsx") ' 错误：重复赋值WBK，且Filename参数语法错误
For i = 1 To Sheets("MoveSheet").End(xlDown).Row '(ERRORHERE) ' 错误：未限定工作表所属工作簿，End(xlDown)可能跳过空行导致遍历不完整
   If Sheets("MoveSheet").Range("B" & i) = "Move" Then ' 错误：条件判断值为"Move"，但需求是匹配"Yes"
       Sheets(Sheets("MoveSHeet").Range("A" & i)).Move After:=wkbk2.Sheets(1) ' 错误：拼写错误MoveSHeet，WBK2未初始化，未限定工作表所属工作簿
   Else
 End if ' 错误：Else分支无内容且缩进不规范
Next i 
End Sub

以下是修复后的VBA代码，完全匹配你的需求，且加入了错误防护：

Sub MoveSheetsByFlag()
    Dim wbkSource As Workbook
    Dim wbkTarget As Workbook
    Dim wsList As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim sheetName As String
    
    ' 定义源工作簿（即包含工作表列表的当前工作簿）
    Set wbkSource = ThisWorkbook
    ' 定义存放工作表名称和标识的工作表
    Set wsList = wbkSource.Sheets("MoveSheet")
    
    ' 创建新的目标工作簿（若需要打开已有工作簿，替换为Workbooks.Open("你的目标文件路径.xlsx")）
    Set wbkTarget = Workbooks.Add
    
    ' 获取列表的最后一行（避免空行导致的遍历不完整）
    lastRow = wsList.Cells(wsList.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历所有列表行
    For i = 1 To lastRow
        sheetName = wsList.Range("A" & i).Value
        ' 不区分大小写匹配"Yes"标识
        If UCase(Trim(wsList.Range("B" & i).Value)) = "YES" Then
            ' 检查源工作簿中是否存在目标工作表，避免报错
            On Error Resume Next
            Dim wsToMove As Worksheet
            Set wsToMove = wbkSource.Sheets(sheetName)
            On Error GoTo 0
            
            If Not wsToMove Is Nothing Then
                ' 将工作表移动到目标工作簿的最后位置
                wsToMove.Move After:=wbkTarget.Sheets(wbkTarget.Sheets.Count)
            End If
        End If
    Next i
    
    MsgBox "工作表批量移动完成！", vbInformation
End Sub

关键改进说明 #

• 明确区分源/目标工作簿，避免变量混淆
• 使用Cells(Rows.Count, "A").End(xlUp).Row获取真实最后一行，解决空行导致的遍历遗漏问题
• 添加工作表存在性检查，防止因名称错误导致代码崩溃
• 用UCase(Trim())实现不区分大小写的标识匹配，增强鲁棒性
• 可灵活切换目标工作簿为新建或已存在的文件

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