vba 遍历所有sht，并把sht中的内容以value的形式复制到新的workbook

在VBA中，遍历Excel工作簿的所有工作表（Sheets），并将每个工作表的内容作为值复制到一个新的工作簿中，你可以使用以下步骤：

1. 首先，打开你需要操作的工作簿和新工作簿。
2. 使用`Worksheets`集合来访问所有的工作表。例如，`ActiveWorkbook.Worksheets`将返回当前活动工作簿的所有工作表。
3. 然后，对于每一个工作表，可以使用`For Each`循环来迭代它们。在循环内部，可以获取每个工作表的数据，并复制到新的工作簿中。
4. 使用`Range.Copy`方法来复制数据，然后选择新工作簿的新位置来粘贴。

下面是一个简单的示例代码，假设目标新工作簿已经打开了，并且命名为`NewWorkbook`，`DestinationSheet`是你想将数据插入的目标工作表：

Sub CopyAllSheets()
    Dim ws As Worksheet
    Dim srcWorkbook As Workbook
    Dim destWorkbook As Workbook
    Dim destSheet As Worksheet

    Set srcWorkbook = ActiveWorkbook ' 当前工作簿
    Set destWorkbook = ThisWorkbook.Sheets("NewWorkbook") ' 新工作簿
    Set destSheet = destWorkbook.Sheets("DestinationSheet") ' 目标工作表

    ' 遍历源工作簿中的所有工作表
    For Each ws In srcWorkbook.Worksheets
        ' 拷贝源工作表的整个范围到剪贴板
        ws.Range("A1").Copy
        
        ' 将数据粘贴到新工作簿的目标工作表对应的位置
        destSheet.Cells(ws.Rows.Count + 1, 1).PasteSpecial xlPasteValuesAndNumberFormats
        
        ' 清理剪贴板
        Application.CutCopyMode = False
    Next ws

    ' 关闭粘贴确认提示
    Application.DisplayAlerts = False

End Sub

记得替换`"NewWorkbook"`和`"DestinationSheet"`为实际的工作簿名和工作表名。