VBA技术问询：如何将未找到的工作表名称在MsgBox中列出？

要实现把缺失的工作表名称从单元格输出改为MsgBox显示，你可以按以下步骤调整代码：

1. 新增变量存储缺失名称：在循环开始前定义一个字符串变量，用来收集所有未找到的工作表名称。
2. 替换单元格输出逻辑：把原来写入单元格的代码改成将名称追加到字符串变量中。
3. 循环结束后统一弹窗：在循环完成后，检查是否有缺失名称，若有则用MsgBox展示。

修改后的完整代码片段 #

Dim missingSheets As String ' 新增：存储所有缺失的工作表名称
missingSheets = "" ' 初始化变量

On Error Resume Next
Do While y <= x
    Workbooks(maker).Activate
    Z = Range("u10:u" & cnt).Find(what:=y, LookIn:=xlValues, lookat:=xlWhole).Select
    If Err > 0 Then
        V = Range("E10:E" & cnt).Find(what:=y, LookIn:=xlValues, lookat:=xlWhole).Select
        t = Selection.Offset(0, 1)
        ' 替换原单元格输出：将缺失名称追加到字符串，用换行分隔
        missingSheets = missingSheets & t & vbCrLf
        q = q + 1 ' 若q变量无其他用途，可考虑删除
        y = y + 1
    Else
        t = Selection.Offset(0, -1)
        Workbooks(Filename).Sheets(t).Copy After:=Workbooks(temp).Sheets(Workbooks(temp).Sheets.Count)
        Workbooks(maker).Activate
        y = y + 1
    End If
Loop
On Error GoTo 0

' 循环结束后，弹窗显示所有缺失的工作表名称
If missingSheets <> "" Then
    MsgBox "未找到以下工作表：" & vbCrLf & vbCrLf & missingSheets, vbExclamation, "提示"
Else
    MsgBox "所有工作表均已找到并复制完成", vbInformation, "提示"
End If

关键改动说明 #

• 新增missingSheets变量，用来累积所有缺失的工作表名称，用vbCrLf实现换行显示。
• 移除了原代码中Range("w" & q).Value = t的单元格写入逻辑，替换为字符串追加操作。
• 在循环结束后添加了判断逻辑：如果有缺失名称就弹窗提示，没有则显示完成信息，提升用户体验。

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