求助：VBA宏复制可见工作表并粘贴为值和文本格式时报错400

原代码触发错误400的核心原因：

• 未给xWb赋值，导致遍历的目标工作簿对象为空
• xWs.Copy会新建一个包含复制工作表的工作簿，但后续操作未明确指向这个新工作簿的工作表，Cells.Select默认操作原工作簿的激活表，引发对象引用冲突
• 过度依赖Select和Selection，这类操作极易因工作表激活状态变化触发错误

修复后的完整代码：

Sub CopyVisibleSheetsAsValuesAndText()
    Dim xWs As Worksheet
    Dim xWb As Workbook
    Dim newWs As Worksheet
    
    ' 赋值为当前运行宏的工作簿，可根据需求修改为指定工作簿
    Set xWb = ThisWorkbook
    
    For Each xWs In xWb.Worksheets
        If xWs.Visible = xlSheetVisible Then
            ' 复制工作表到新工作簿，并获取新工作表对象
            xWs.Copy
            Set newWs = ActiveSheet
            
            ' 直接操作新工作表的已使用区域，避免Select操作
            With newWs.UsedRange
                ' 粘贴值，覆盖公式等，保留纯内容
                .Copy
                .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                ' 设置单元格为文本格式
                .NumberFormat = "@"
            End With
            
            Application.CutCopyMode = False
        End If
    Next xWs
End Sub

关键优化点：

• 给xWb明确赋值，确保遍历目标正确
• 复制工作表后直接获取新工作表对象newWs，摆脱对激活状态的依赖
• 使用UsedRange替代全选Cells，仅处理有内容的区域，提升运行效率
• 用With语句简化对象操作，避免重复引用

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