把excel的sheel复制到不同文件下的excel表中

你可以按照以下步骤将一个 Excel 文件的 sheet 复制到不同的 Excel 文件中：

1. 打开源 Excel 文件，选择你要复制的 sheet。
2. 右键点击 sheet 的标签，选择“移动或复制”选项。
3. 在“移动或复制”对话框中，选择“新工作簿”选项，并勾选“复制”复选框。
4. 点击“确定”按钮，将复制的 sheet 存储为新的 Excel 文件。
5. 重复步骤1-4，将同一个 sheet 复制到不同的 Excel 文件中。

你也可以使用 VBA 宏实现自动化操作。下面是一个简单的示例代码：

Sub CopySheetToFiles()
    Dim wbSource As Workbook
    Dim wsToCopy As Worksheet
    Dim strFilePath As String
    Dim strFileName As String
    Dim wbTarget As Workbook
    
    Set wbSource = ThisWorkbook
    Set wsToCopy = wbSource.Sheets("Sheet1")
    strFilePath = "C:\Users\user\Desktop\"
    
    ' Loop through all files in the folder
    strFileName = Dir(strFilePath & "*.xlsx")
    Do While Len(strFileName) > 0
        ' Open the target workbook
        Set wbTarget = Workbooks.Open(strFilePath & strFileName)
        ' Copy the sheet to the target workbook
        wsToCopy.Copy After:=wbTarget.Sheets(wbTarget.Sheets.Count)
        ' Close and save the target workbook
        wbTarget.Close SaveChanges:=True
        ' Get the next file name
        strFileName = Dir
    Loop
    
    ' Close the source workbook
    wbSource.Close SaveChanges:=False
End Sub

在这个示例中，我们首先定义了源 Excel 文件和要复制的 sheet，然后指定了目标文件夹的路径。然后我们使用 Dir 函数循环遍历目标文件夹中的所有 Excel 文件，打开每个文件，将 sheet 复制到该文件中，然后保存并关闭该文件。最后，我们关闭源 Excel 文件。你可以根据自己的需要调整代码。