多个excel合并到一个excel的不同sheet中

Sub Books2Sheets()
    '定义对话框变量
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    '新建一个工作簿
    Dim newwb As Workbook
    Set newwb = Workbooks.Add
    
    With fd
        If .Show = -1 Then
            '定义单个文件变量
            Dim vrtSelectedItem As Variant
            
            '定义循环变量
            Dim i As Integer
            i = 1
            
            '开始文件检索
            For Each vrtSelectedItem In .SelectedItems
                '打开被合并工作簿
                Dim tempwb As Workbook
                Set tempwb = Workbooks.Open(vrtSelectedItem)
                
                '复制工作表
                tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)
                
                '把新工作簿的工作表名字改成被复制工作簿文件名,这儿应用于xls文件,即Excel97-2003的文件,如果是Excel2007,需要改成xlsx
                newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
                
                '关闭被合并工作簿
                tempwb.Close SaveChanges:=False
                
                i = i + 1
            Next vrtSelectedItem
        End If
    End With
    
    Set fd = Nothing
End Sub

### 回答1: 将多个单独的Excel文件合并一个Excel不同sheet的方法如下: 1. 首先,打开要合并Excel文件,并确保每个单独的文件只包含一个sheet,并且这些sheet的数据结构相同。 2. 在目标Excel文件,创建与要合并的单独文件数量相同的sheet,每个sheet的名称可以与单独文件的名称相同,方便识别。 3. 确保目标Excel文件的每个sheet都是空的,没有任何数据。 4. 依次打开每个单独的Excel文件,在源文件的第一个sheet选择所有数据。 5. 复制所选数据(可以通过右键菜单的“复制”选项或使用快捷键Ctrl+C)。 6. 切换到目标Excel文件的对应sheet,将复制的数据粘贴到该sheet。 7. 重复步骤4-6,将每个单独Excel文件的数据依次粘贴到目标Excel文件的对应sheet。 8. 在目标Excel文件保存所做的更改,并确保合并后的数据已正确显示在每个sheet。 通过上述步骤,您可以将多个单独的Excel文件合并一个Excel不同sheet,而无需使用任何代码。 ### 回答2: 要将多个单独的Excel文件合并一个Excel文件的不同sheet,可以按照以下步骤操作,无需编写代码: 1. 首先,确保所有要合并Excel文件都在同一个文件夹,方便管理。 2. 打开一个新的Excel文件,作为最终合并的目标文件。 3. 在新的Excel文件的不同sheet,为每个要合并Excel文件分别创建一个sheet,以便分别存放不同的数据。 4. 分别打开每个要合并Excel文件。 5. 选择要合并的第一个Excel文件的第一个sheet的所有数据(包括表头)。 6. 按下Ctrl+C键,将选定的数据复制到剪贴板。 7. 切回到最终合并的目标文件,在对应的sheet选择单元格A1。 8. 按下Ctrl+V键,将剪贴板的数据粘贴到目标文件的对应sheet。 9. 重复步骤5-8,依次将所有要合并Excel文件的数据分别复制粘贴到目标文件的对应sheet。 10. 最后保存目标文件。 通过以上步骤,您可以将多个单独的Excel文件合并一个Excel文件的不同sheet,每个sheet对应一个合并Excel文件的数据。 ### 回答3: 要将多个单独的Excel文件合并一个Excel不同sheet,不需要编写代码,可以按照以下步骤操作: 1. 确保要合并的所有Excel文件位于同一文件夹。 2. 打开一个新的Excel工作簿。 3. 在新的Excel工作簿创建与要合并的文件数量相等的sheet,每个sheet代表一个单独的Excel文件。 4. 在每个sheet,分别点击“数据”选项卡的“来自文本”按钮。 5. 在打开的“导入文本向导”,选择要合并Excel文件所在的文件夹,并选合并的第一个Excel文件。 6. 确保“分隔符”选项框没有选任何选项,并点击“下一步”。 7. 在第二步,选择“分列数据类型”为“常规”,并点击“下一步”。 8. 在第三步,选择目标位置为当前打开的Excel工作簿的第一个sheet,点击“完成”。 9. 重复步骤4到步骤8,将要合并的所有Excel文件分别导入到每个sheet。 10. 最后,将每个sheet的数据联结到新的Excel工作簿的不同sheet。 11. 如果需要,可以对合并后的数据进行进一步的编辑和整理。
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值