工作小作业-多表合并

多个excel表格，字段都一样，内容数据不同，利用VBA实现数据合并到一张表格

Sub text1()
Application.ScreenUpdating = False
Dim x As Integer, y As Integer
Dim wb As Workbook, wbb As Workbook
f = Dir(ThisWorkbook.Path & "\*" & ".xls")
'07以上EXCEL文件为xlsx
If f = ThisWorkbook.Name Then
'以防第一个目录文件是作汇总的文件，用以过滤
f = Dir
'f转为下个目录下的文件名
End If
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)x = wb.Worksheets(1).[a65536].End(xlUp).Rowwb.Worksheets(1).Rows("1:" & x).Copy ThisWorkbook.Sheets("sheet1").[a65536].End(xlUp)
'为取字段行，把第一个打开的文件字段行包括数据复制出来，再往下循环其他表wb.Close
f = Dir
Do While f <> ""
If f <> ThisWorkbook.Name Then
Set wbb = Workbooks.Open(ThisWorkbook.Path & "\" & f)y = wbb.Worksheets(1).[a65536].End(xlUp).Rowwbb.Worksheets(1).Rows("2:" & y).Copy ThisWorkbook.Sheets("sheet1").[a65536].End(xlUp).Offset(1)'开始循环取其他表格字段行以外数据wbb.Close
End If
f = Dir
'这句要放end if 后面，目录取完最后会为空"".
Loop
Application.ScreenUpdating = True
End Sub

利用VBA实现多个EXCEL表格合并相关推荐

Python对比VBA实现excel表格合并与拆分
1.Excel表格合并我们在日常工作中经常会导出一些数据,但是这些数据较大可能是按照某个分类形成的单独表格,比如每一天的数据,每个品牌的数据等. 但是,我们在进行数据分析的时候可能往往需要对这些数据 ...
利用VBA编程实现从EXCEL表到AUTOCAD表转换
一.前言 Microsoft Excel 软件具有十分强大的制表.表格计算等功能,是普通人员常用的制表工具.可以通过其内嵌的VBA语言可以控制Microsoft Excel 的整个操作过程. Auto ...
excel如何把多张表合并成一个表_如何快速把多个excel表格合并成一个excel表
如何快速把多个excel表格合并成一个excel表呢? 首先,我们需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel文件. 用microsoft excel打开新建的e ...
excel合并多个工作表_快速将多个Excel表格合并成一个Excel表格
之前在微信群内有朋友问我如何快速将多个Excel表格合并成一个Excel表格,当时没有讲解清楚,今天专门来告诉大家如何快速合并Excel表格到一个工作表中. 在合并表格中,不外乎以下两种情况: 将多个 ...
excel表格合并程序
excel表格合并程序(自行打包成EXE使用) import tkinter as tk from tkinter import filedialog from datetime import dat ...
Python实现excel表格合并
使用Python实现excel表格合并(程序打包:pyinstaller -F ***.py): 一个excel文件的多sheet合并文件夹下多个Excel文件的合并(单个文件的多sheet也会自动 ...
html excel 在线编辑,利用js实现在线编辑excel表格代码
特效描述:利用js实现在线编辑 excel 表格代码.利用js实现在线编辑excel表格代码代码结构 1. 引入CSS 2. 引入JS 3. HTML代码 function load(){ x ...
Java 利用hutool工具实现导出excel并合并单元格
Java 利用hutool工具实现导出excel并合并单元格 controller层调用service,就一个核心方法,没错就下面这个代码就能实现了.前提是项目里面要引用hutool包.把我这个复制到 ...
select vba 网页翻页_通过VBA程序来实现Excel表格翻页的方法
在查看拥有较多数据的Excel工作表时,可以通过按"PageUp"或"PageDown"键(或拖动程序窗口左侧滚动条上的滑块)来进行翻页操作.实际上,用户还可以 ...

利用VBA实现多个EXCEL表格合并

工作小作业-多表合并

利用VBA实现多个EXCEL表格合并相关推荐

最新文章

热门文章