精华内容
下载资源
问答
  • excel多个sheet合并的简单代码,测试可用,请注意阅读文档
  • 多个Excel合并为1个Excel多个Sheet     1. 将需要合并的Excel放入1个文件夹内   2. 在新建的文件夹内,新建1个Excel——>右击Sheet1——>点击“查看代码”   3. 贴入代码 // VB Sub 合并Excel() Dim File...


    1. 将需要合并的Excel放入1个文件夹内
    2. 在新建的文件夹内,新建1个Excel——>右击Sheet1——>点击“查看代码”
    3. 贴入代码
    
    Sub 合并Excel()
    Dim FileOpen
    Dim X As Integer
    Application.ScreenUpdating = False
    FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并Excel")
    X = 1
    While X <= UBound(FileOpen)
    Workbooks.Open Filename:=FileOpen(X)
    Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    X = X + 1
    Wend
    ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub
    errhadler:
    MsgBox Err.Description
    End Sub
    
    
    4. 运行代码

    在这里插入图片描述

    5. 弹出框—>全选—>需要合并的Excel

    在这里插入图片描述

    最后删除Sheet1 ,保存文件。

    参考博文:
    1.https://www.jianshu.com/p/c8ae6852f1da

    展开全文
  • 一个excel中有多个sheet,如何将多个sheet合并成同一个sheet(那几个sheet数据格式一致,比如说第一行的表头一致) 先准备数据(一个excel里有多个需要合并的sheet) ①需要合并的sheet ②每个sheet里的表头(一致的数据...

    一个excel中有多个sheet,如何将多个sheet合并成同一个sheet(那几个sheet数据格式一致,比如说第一行的表头一致)

    先准备数据(一个excel里有多个需要合并的sheet)

    ①需要合并的sheet
    在这里插入图片描述
    ②每个sheet里的表头(一致的数据格式)
    在这里插入图片描述

    Python代码,直接将代码放入.py文件并运行即可(只需修改需要合并的excel所在目录,以及指定合并后的数据放在哪个excel表里哪个sheet,需要修改的地方有三个,我都已经指出来了)

    # -*- coding: UTF-8 -*-
    #导入所需模块,没有的话,就在控制台 pip install 一一安装
    import xlrd
    import pandas as pd
    from  pandas import DataFrame
    from openpyxl import load_workbook
    
    excel_name = '1111.xlsx'  #修改地方一:所要合并sheet的excel所在位置,可以写绝对位置,我这里写的是相对位置,我把要处理的excel和.py文件放在了一起
    wb = xlrd.open_workbook(excel_name)
    sheets = wb.sheet_names() # 获取workbook中所有的表格
    # 循环遍历所有sheet
    alldata = DataFrame()
    for i in range(len(sheets)):
        df = pd.read_excel(excel_name, sheet_name=i, index=False, encoding='utf8')
        alldata = alldata.append(df)
        
    #指定合并后的数据放在哪个excel里
    writer = pd.ExcelWriter('1111.xlsx',engin='openpyxl') #修改地方二:合并后的数据要放在哪个excel里,我直接放在原excel表里了
    book = load_workbook(writer.path)
    writer.book = book
    
    #指定合并后的数据放在哪个sheet里
    alldata.to_excel(excel_writer=writer,sheet_name="ALLDATA")#修改地方三:合并后的数据放在名为ALLDATA的sheet表里,这个名字自定义的,指定的excel里没有这个sheet的话,会自动创建的
    writer.save()
    writer.close()
    print('处理完成!')
    

    保存后结果

    在这里插入图片描述

    展开全文
  • 在这2个sheet中,我最下面的小计和第一行的不需要,怎么用vba实现 Dim m As Integer Dim n As Integer Dim o As Integer For m = 2 To 3 n = Sheets(m).[a65536].End(xlUp).Row o = Sheets(1)....
  • 网上搜到的合并Excel的教程大多都是合并多个文件到一个sheet,本文是将多个Excel文件的第一个sheet合并为一个Excel文件中的多个sheet 将要合并的Excel放在同一个文件夹下面,新建一个Excel文件 2. 打开新建的...
    
    
    1. 将要合并的Excel放在同一个文件夹下面,新建一个Excel文件

    在这里插入图片描述
    2. 打开新建的Excel,按Alt+F11进入宏计算界面

    在这里插入图片描述
    点击插入 -> 模块

    在这里插入图片描述
    3. 将以下代码粘贴进去

    '功能:把多个excel工作簿的第一个sh eet工作表合并到一个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, ".xlsx", "")
    '关闭被合并工作簿
    tempwb.Close SaveChanges:=False
    i = i + 1
    Next vrtSelectedItem
    End If
    End With
    Set fd = Nothing
    End Sub
    
    • 以上代码是将原Excel的文件名作为合并后的sheet名,但是实际操作中sheet名的限制要远多于Excel文件名(长度、特殊符号等)
    • 下面代码是将合并后的Excel中的多个sheet按照1、2、3依次命名
    '功能:把多个excel工作簿的第一个sh eet工作表合并到一个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)
    '下面这一行中将tempwb.Name修改为i
    newwb.Worksheets(i).Name = VBA.Replace(i, ".xlsx", "")
    '关闭被合并工作簿
    tempwb.Close SaveChanges:=False
    i = i + 1
    Next vrtSelectedItem
    End If
    End With
    Set fd = Nothing
    End Sub
    
    1. 点击运行 -> 运行子过程/用户窗体,运行代码。首先弹出窗口选择要合并的文件

    在这里插入图片描述
    选择文件后会出现窗口的多次打开关闭,代码运行完后在任务栏有一个打开的Excel文件就是合并后的文件

    • 合并完一次后,最开始新建的那个Excel文件除了代码外不会有其他的修改,可以保存为xlsm文件,下次直接打开进入宏运行即可
    展开全文
  • import xlrd import xlwt import xlsxwriter #打开excel表格 def openexcel(fname): fh=xlrd.open_workbook(fname) ...#获取excel中所有的sheet def getSheet(fh): return fh.sheets() #获取sheet数 def getSh...
    import xlrd
    import xlwt
    import xlsxwriter
    #打开excel表格
    def openexcel(fname):
        fh=xlrd.open_workbook(fname)
        return fh
    #获取excel中所有的sheet
    def getSheet(fh):
        return fh.sheets()
    #获取sheet数
    def getSheetNum(fh):
        res=0
        sh=fh.sheets()
        for sheet in sh:
            res+=1
        return res
    #获取每个sheet的行数
    def getNrow(fh,i):
        table=fh.sheets()[i]
        return table.nrows
    #获取每行的元素
    def getncols(fh,i):
        table=fh.sheets()[i]
        num=table.nrows
        data=[]
        for i in range(num):
            rdata=table.row_values(i)
            data.append(rdata)
        return data
    if __name__=='__main__':
    #表头数组(根据具体情况选择是否使用)
        excelhead=["学号","姓名","成绩"]
    # 表格所在位置
        filelocation="/Users/apple/Desktop/python/Excel/"
    #表格的后缀即形式
        fileform="xlsx"
    #合并后的表格存放的位置
        filedestination="/Users/apple/Desktop/python/Excel/result.xlsx"
    #从文件夹中读取有多少个文件需要合并
    #首先查找默认文件夹下有多少文档需要整合
        import os
        filearray1=os.listdir(filelocation)
        print(filearray1)
        fileNumber=len(filearray1)-1
        filearray=[]
        for i in range(0,fileNumber):
            fway=filelocation+filearray1[i+1]
            filearray.append(fway)
        print("在"+filelocation+"中有"+str(fileNumber)+"个"+fileform+"文件")
    #读取数据:rvalue第一重为文件名,第二重为sheet,第三重为行元素,第四重为每个单元格元素
        rvalue = [None]*fileNumber
        for k in range(fileNumber):
            fh=openexcel(filearray[k])
            num=getSheetNum(fh)
            rvalue[k]=["sheet"]*num
            for i in range(0,num):
                rvalue[k][i]=getncols(fh,i)
    #存储数据:四层for循环赋值,由内到外:单元格->行->文件->sheet
        import xlrd
        import xlwt
        import xlsxwriter
        res=xlsxwriter.Workbook(filedestination)
        fh=openexcel(filearray[0])  
        for w in range(getSheetNum(fh)):
            ws=res.add_worksheet("sheet"+str(w+1))
            q=-1
            for k in range(fileNumber):
                for i in range(len(rvalue[k][w])):
                    q+=1
                    for j in range(len(rvalue[k][w][i])):
                        if rvalue[k][w][i][j]:
                            x=rvalue[k][w][i][j]
                            ws.write(q,j,x)                    
        res.close()
        print("合并成功,合并后的文件所在位置:"+filedestination)
    
    展开全文
  • Excel合并多个sheet表格

    2017-11-04 14:23:40
    %多个excel合并多个sheet %1、在合并数据的文件夹中新建excel,并重新命名 %2、打开此工作薄。 %3、%在EXCEl界面按Alt+F11打开VBA编辑器,插入新的模块(插入/模块), % 或者在任意一个sheet名称上点右键,选择...
  • '功能:把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表,新工作表的名称等于原工作簿的名称 Sub Books2Sheets() '定义对话框变量 Dim fd As FileDialog Set fd = Application....
  • 多个excel合并为一个excel多个sheet

    千次阅读 2019-04-08 18:24:42
    2.用excel打开工作表汇总,删除其余两个sheet,留下一个改名汇总(随意命名) 3.鼠标放在汇总sheet页,然后右键,点击查看代码(或者alt+F11--》工具栏选择视图--》代码窗口) 4.将以下代码复制到弹出窗口...
  • 代码如下 #第一步:调用pandas,numpy包 import pandas as pd import numpy as np #第二步:读取数据 iris = pd.read_excel('G:\\数据分析\\模拟数据\\jj1.xls',None,dtype={"证件号":np.str})#读入数据文件 keys = ...
  • 一、文件合并到同一文件多Sheet下: 1、在想要合并excel文件目录中新建一个excel文件。 2、右键新建excel中的sheet1选择“查看代码”,或者Alt+F11直接调出VBA操作界面。 3、运行以下代码(蓝色加粗倾斜字体为...
  • 对于一python快要死到新手村的新人来说,找一想要的功能太难了,这功能找了两天才找到适合的,今天分享给有需要的朋友! 直接上代码吧! import os, fnmatch import win32com.client as win32 import pandas ...
  • 参照了这篇文章,但是最后输出的时候代码报错,解决方案详细内容可见Python处理Excel遇到的“got invalid input value of type ‘xml.etree.ElementTree.Element‘>, exp”。 下面直接把自己最后修改好的代码附上 ...
  • 要求:多个子表数据格式需一致 新建一个空文件夹,将需要合并的子表放在空文件夹中 在文件夹中新建一个空的excel文件 打开空的excel,右键Sheet1,点击查看代码 将以下代码粘贴到代码框中 1 Sub 合并当前...
  • 代码: Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j)....
  • 事情是这样的,产品经理问将多个Excel合并为一个Excel文件,每个Excel为一个Sheet页。 python代码如下: import xlrd import xlsxwriter import os import sys # sourceFolde=r"C:\Users\xiaocai\Desktop\草稿\汇总...
  • 1 将需要合并的多个excel文件放在同一个文件夹中,新建一个空的...'功能:把多个excel工作簿的第一个sh eet工作表合并到一个excel工作簿的多个sheet工作表,新工作表的名称等于原工作簿的名称 Sub Books2Sheets() '...
  • 合并同一目录下多个EXCEL多个sheet到一个excel的一个sheet 1、把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel2、打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去 3...
  • 新建一个工作表,命名后保存到和与合并的N个文件同一个文件文件夹,按 alt + f11,...宏:多个文件表合到一个文件表的多个SHEET中 Sub CombineWorkbooks() Dim FilesToOpen, ft Dim x As Integer Application.S...
  • 按顺序合并多个sheet的多个excel文件。 在业务中,遇到要合并一个文件夹下多个包含同名、同顺序sheet的xlsx文件,通过python3,参考(copy大部分)代码: https://www.cnblogs.com/zlhuan/p/8011304.html 除此之外...
  • 1、将要合并Excel放在同一个...'功能:把多个excel工作簿的第一个sh eet工作表合并到一个excel工作簿的多个sheet工作表,新工作表的名称等于原工作簿的名称 Sub Books2Sheets() '定义对话框变量 Dim fd As Fi...
  • vba代码如下: Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name &amp;lt;&amp;gt; ActiveSheet.Name Then X = Range(&...
  • 功能:多个excel文件合并到一个文件中的多个sheet表中(即一个文件对应一个sheet表,且只合并每个源文件的第一个sheet表格) 步骤1:把多个excel文件放到同一个文件夹中 步骤2:在该文件夹中新建一个excel文件...
  • 将多个excel文件合并为:一个excel多个sheet页【方法技巧】 大家平时在进行excel表格文件处理时,经常碰到需要多个excel文件合并成一个excel表格文挡,并且每个文档都保存在一个单独的sheet工作表中,一个一个的...
  • excelsheet批量合并工作页的方法:1、看到这么数据页要合并,如果是复制粘贴的话,工作量就很大了。我们现在开始合并,首先要在最前页新建一工作表。如图:2、在新建的sheet表中“右键”,找到“查...
  • 把所需合并Excel文档放在同一文件夹中,再文件夹中新建一个Excel打开Excel,按ALT+F11,或 依次点工具,宏,VB编辑器,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。 Sub Com() Dim...
  • 1、合并Excel文件打开一Excel文件,Alt+F11,插入一模块,开始写代码 Sub CombineWorkbooks()Dim FilesToOpen, ftDim x As IntegerApplication.ScreenUpdating = FalseOn Error GoTo errhandlerFilesToOpen =...
  • 工作中遇到excel中有多个sheet上万条数据怎么办,哦可以复制粘贴,不,大神都不是这么干的只需要一串代码就搞定,让我们来看看吧!!! 第一步:打开我们需要的表格。可以看到我们这里是有多个sheet的数据需要合并的...
  • 优点是支持多个excel合并,支持多个规律的sheet插页合并,但如果多个sheet插页毫无规律,,,还没想到。 后续sheet的读取,只需要变更sheet参数名称,调用getexcel()函数就可以了。最后再用pd.concat([])方法完成...

空空如也

空空如也

1 2 3 4 5 ... 10
收藏数 188
精华内容 75
关键字:

excel多个sheet合并代码