常用功能加载宏——多个工作表合并到一个工作表
时间:2022-07-22
本文章向大家介绍常用功能加载宏——多个工作表合并到一个工作表,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
把数据复制到一个工作簿后,一般我们还需要进行数据处理,而数据处理要在一个工作表才方便,所以把多个工作表的数据复制到一个工作表再进行数据处理也会经常碰到:
首先在customUI.xml中增加代码:
<button id="rbbtnMergeSht" label="合并工作表" onAction="rbbtnMergeSht" imageMso="TableInsert" />
回调函数:
Sub rbbtnMergeSht(control As IRibbonControl)
Call MShtWk.MergeSht
End Sub
函数实现:
Sub MergeSht()
Dim rngout As Range
On Error Resume Next
Set rngout = Application.InputBox("请选择输出单元格,输出单元格所在Sheet将不会被复制,但数据会覆盖。", Default:=ActiveCell.Address, Type:=8)
On Error GoTo 0
If rngout Is Nothing Then
Exit Sub
End If
Dim flagHead As Boolean '记录是否复制了标题
Dim rows As Long
Dim cols As Long
Dim sht As Worksheet
For Each sht In Worksheets
If sht.Name <> rngout.Parent.Name Then
With sht
'取消筛选
.AutoFilterMode = False
'按第一列定位,获取表格的最后所在的行
rows = .Cells(Cells.rows.Count, 1).End(xlUp).Row
If rows > 1 Then
'获取表格的列的范围
cols = .Cells(1, Cells.Columns.Count).End(xlToLeft).Column
'复制标题
If Not flagHead Then
.Range("A1").Resize(1, cols).Copy rngout
rngout.Offset(0, cols).Resize(1, 1).Value = "SheetName"
Set rngout = rngout.Offset(1, 0)
flagHead = True
End If
'复制数据
.Range("A2").Resize(rows - 1, cols).Copy rngout
'如果只需要复制数值:
' .Range("A2").Resize(rows - 1, cols).Copy
' rngout.PasteSpecial xlPasteValues
'如果需要,可以增加一列Sheet名称
rngout.Offset(0, cols).Resize(rows - 1, 1).Value = .Name
'输出单元格进行偏移
Set rngout = rngout.Offset(rows - 1, 0)
End If
End With
End If
Next
End Sub
- Ryu:网络时延探测应用
- box布局
- Event Loop
- 把图片变成字体,然后在引入到网页
- Flutter环境搭建
- java.net.ConnectException: Call From slaver1/192.168.19.128 to slaver1:8020 failed on connection exc
- 18/03/18 04:53:44 WARN TaskSchedulerImpl: Initial job has not accepted any resources; check your clu
- 技术干货 | Hadoop3.0稳定版安装攻略来啦!
- ios逆向工具MonkeyDev简介
- 自定义下拉列表
- 身份证号码验证算法
- 技术干货 | hive安装部署
- js图片的预加载功能
- 简单理解通过原型继承
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法