Excel多个表数据合并代码

要求:多个子表数据格式需一致

  1. 新建一个空文件夹,将需要合并的子表放在空文件夹中
  2. 在文件夹中新建一个空的excel文件
  3. 打开空的excel,右键Sheet1,点击查看代码 
  4. 将以下代码粘贴到代码框中

     1 Sub 合并当前目录下所有工作簿的全部工作表()
     2
     3 Dim MyPath, MyName, AWbName
     4
     5 Dim Wb As Workbook, WbN As String
     6
     7 Dim G As Long
     8
     9 Dim Num As Long
    10
    11 Dim BOX As String
    12
    13 Application.ScreenUpdating = False
    14
    15 MyPath = ActiveWorkbook.Path
    16
    17 MyName = Dir(MyPath & "\" & "*.xls")
    18
    19 AWbName = ActiveWorkbook.Name
    20
    21 Num = 0
    22
    23 Do While MyName <> ""
    24
    25 If MyName <> AWbName Then
    26
    27 Set Wb = Workbooks.Open(MyPath & "\" & MyName)
    28
    29 Num = Num + 1
    30
    31 With Workbooks(1).ActiveSheet
    32
    33 .Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
    34
    35 For G = 1 To Sheets.Count
    36
    37 Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
    38
    39 Next
    40
    41 WbN = WbN & Chr(13) & Wb.Name
    42
    43 Wb.Close False
    44
    45 End With
    46
    47 End If
    48
    49 MyName = Dir
    50
    51 Loop
    52
    53 Range("B1").Select
    54
    55 Application.ScreenUpdating = True
    56
    57 MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
    58
    59 End Sub
  5. 点击运行按钮或按F5运行
  6. 关闭窗口,查看Excel中合并的数据,删除重复的表头即可

原文地址:https://www.cnblogs.com/yachyu/p/10708345.html

时间: 2024-10-09 08:54:53

Excel多个表数据合并代码的相关文章

excel两张表数据匹配数据(VLOOKUP)

最近项目中需要跨项目导入数据,现整理Excel的一个小技能,记录如下. 第一步:我们打开一个excel表,创建数据如下. 第二步:我们把光标定位在需要展示数据的单元格中,如下图所示. 第三步:我们可以看到,单元格中显示出完整的VLOOKUP函数. 第四步:填写函数的相应的值 原文地址:https://www.cnblogs.com/mr-wuxiansheng/p/10201887.html

VB6实现Excel多工作簿数据合并

以前的同事,工作需要,让我帮忙完成多个工作簿的汇总. 我就用最熟悉的VB6写了一个Form应用程序,这是因为我不知道她目前的系统和Office情况,如果太高大上了,她不会部署安装.索性就简单粗暴地来个桌面App. App的操作效果: 程序源代码: Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long,

EXCEL VBA中写了个宏把本EXCEL中的表数据批量导出为csv格式的文件

Sub csv()    Dim Fs, myFile As Object    Dim myfileline As String 'txtfile的行数据    Dim sht As Worksheet        For Each sht In ThisWorkbook.Sheets        ns = sht.Cells(1, 8)        Set Fs = CreateObject("Scripting.FileSystemObject")   '建立filesyt

【Excel】+数据合并

1.&符号连接 excel中2列数据合并到一列,并且以逗号分隔:=a1&","&b1 2.ctrl+g excel中空白单元格,自动填充上一单元格的内容:https://jingyan.baidu.com/article/0eb457e50412d703f1a905d6.html 原文地址:https://www.cnblogs.com/danhuai/p/11152676.html

合并Excel工作薄中成绩表的VBA代码,非常适合教育一线的朋友_python

这时候还需要把各个工作表合并到一起来形成一个汇总表.这时候比较麻烦也比较容易出错,因为各个表的学号不一定都是一致的.对齐的.因为可能会有人缺考,有人会考号涂错等等.特奉献以下代码,用于合并学生成绩表或者其它类似的表都可以.本代码特点在于不需要使用SQL或者Access等大头软件,只需要Excel就可以执行,非常方便,速度也不慢.转载请勿清除广告. 没有合适的局域网管理软件吗?你的网管工具够灵活够高效吗?看看这个network management software. ' ============

Excel表数据导入Sql Server数据库中

Excel表数据导入Sql Server数据库的方法很多,这里只是介绍了其中一种: 1.首先,我们要先在test数据库中新建一个my_test表,该表具有三个字段tid int类型, tname nvarchar类型, tt nvarchar类型(注意:my_test表中的数据类型必须与Excel中相应字段的类型一致) 2. 我们用SELECT * FROM  OPENROWSET( 'Microsoft.Jet.OLEDB.4.0 ', 'Excel  5.0;DatabASE=[Excel表

如何使用 Python 对 Excel 做一份数据透视表

如何使用 Python 对 Excel 做一份数据透视表客户这边,其中有一张如同上图所示的数据汇总表,然而需求是,需要将这张表数据做一个数据透视表,最后通过数据透视表中的数据,填写至系统数据库.拿到需求,首先就想到肯定不能直接用设计器去操作 Excel,通过操作 Excel 去做数据透视表,那样,就得通过代码去完成了. 代码分享如下: import pandas as pdimport numpy as np def prvot():f = pd.read_excel(io='C:/file/t

python读取数据库表数据并写入excel

一个简单的使用python读取mysql数据并写入excel中实例 1.python连接mysql数据库 conn = pymysql.connect(user='root',host='127.0.0.1',port=3306,passwd='root',db='python',charset='utf8') #连接数据库 cur = conn.cursor() 2.读取mysql数据库中表数据 1 sql = 'select * from %s;' %table_name #需要写入exce

导出数据库任意表数据为EXCEL

public class ExportAsExcel { final Logger logger = LoggerFactory.getLogger(getClass()); static SimpleDateFormat dateFormat=new SimpleDateFormat("yyyy-MM-dd HH:mm:ss"); /** * 公共组件,导出Excel表格数据方法<p> * 使用方法: 数据为List<Object>类型,注意当中object的