V
主页
京东 11.11 红包
【vba知识 技巧分享】汇总 表头不同,顺序不同的多个工作表
发布人
Sub test() '定义两个整形的变量,用于循环的时候计数 Dim i As Integer Dim sheetNo As Integer '把工作簿内的所有sheet名称存放在数组中 sheetNum = ThisWorkbook.Sheets.Count ReDim sheetarr(1 To sheetNum) For i = 1 To sheetNum sheetarr(i) = ThisWorkbook.Sheets(i).Name Next i '新建工作表,名字 叫 汇总 Set sumws = ThisWorkbook.Sheets.Add() sumws.Name = "汇总" '定义工作表变量,方面后面编写 Dim ws As Worksheet For sheetNo = 1 To sheetNum '建立循环,遍历每个工作表 '按数组中的顺序将工作表放入变量中 Set ws = ThisWorkbook.Sheets(sheetarr(sheetNo)) '获得工作表中最大的行、列数 rowsNum = ws.UsedRange.Rows.Count coluNum = ws.Range("a1").CurrentRegion.Columns.Count sumcolu = sumws.Range("a1").CurrentRegion.Columns.Count '汇总表要从下一行开始,要+1 maxH = sumws.Range("a1").CurrentRegion.Rows.Count + 1 For i = 1 To coluNum '查找表头,如果没有找到,添加 Do '先查找表头,tmp 是find返回值,其实是返回的range Set tmp = sumws.Range(Cells(1, 1), Cells(1, sumcolu)).Find(ws.Cells(1, i)) If tmp Is Nothing Then '没有找到,添加表头 '因为excel中都是从1开始的,单元格为空和有1个的时候,都返回1,所以 If sumws.Cells(1, 1).Value = "" Then sumws.Cells(1, sumcolu) = ws.Cells(1, i) Else sumws.Cells(1, sumcolu + 1) = ws.Cells(1, i) sumcolu = sumcolu + 1 End If End If Loop While tmp Is Nothing ws.Range(ws.Cells(2, i), ws.Cells(ws.UsedRange.Rows.Count, i)).Copy sumws.Range(Cells(maxH, tmp.Column), Cells(maxH, tmp.Column)).PasteSpecial Paste:=xlPasteValues Next i Next sheetNo End Sub
打开封面
下载高清视频
观看高清视频
视频下载器
【vba 技巧分享】VBA如何获取文件夹下所有excel文件数据
【vba知识 技巧分享】用vba排序
【vba技巧】只需20行代码就能实现多表汇总
【vba知识 技巧分享 - 6】vba中6种循环语句横向比较
【VBA知识 技巧分享】只需10行代码自动生成工资条
【VBA技巧分享】VBA实现多表汇总并自动修改格式
按部门不同把数据分成不同的工作表
【vba知识 技巧分享 5】UsedRange 和 CurrentRegion 的区别
还有必要学习vba吗?
一键删除空行
批量生成 任意格式 文件夹,只需10行代码
vba查找方法如何使用
vlookup联合vstact从多个数据表中筛选数据
【excel vba系列 -001】vba中常用的“对象”
用VBA任意调整列的顺序
vba实现分栏打印
自定义添加工作表函数,如果工作表存在,就清空数据,如果不存在就新建一个
【excel wps 技巧分享】为单元格“命名”
学会这几个快捷键,效率提高10倍
带你学习Access组合框--获取数据
【班级管理系统】(课程设计参考)-Access数据库系统设计制作实例 设计报告 原文件 VBA代码
手指扎到刺,你千万别拿针硬挑,教你一招,让刺自动退出来
Access新式图表如约更新了
为什么数据分析师一定需要成本思维?
当下经济环境不景气,适不适合换工作?大冰老师连麦以过来人身份聊一聊!
Excel变态版俄罗斯方块 完全玩不动
if 公式 终结者
彻底祛魅了!其实事业单位面试根本没有大家想象中那么难……
业务汇报技巧:目标未达成还受重用!
WPS本地对在线和多维表实现上传下载jsa+airscript
211文科生在成都工作三年是如何“成长”的?
一个公式轻松判断 身份证号码 是否正确
textsplit函数,数据整理的天花板
辛苦写的论文被学院老师看上了,通讯和一作都保不住了,该怎么办?
带你学习Access组合框--组合框的设置
年薪20w和年薪100w在找工作时一定是有很大区别的
高手的每一次晋升,都是布局已久的预谋!
Excel VBA:动态匹配数据-文件下载见评论区链接
沉浸式体验Excel VBA俄罗斯方块游戏编程
双非二本校招上岸国企,目前双休,朝九晚五,月入4000+!!!