Excel 用vba自动汇总实例

最新推荐文章于 2024-07-06 16:07:50 发布

uolian

最新推荐文章于 2024-07-06 16:07:50 发布

阅读量632

点赞数

分类专栏：电脑知识文章标签： excel wps

本文链接：https://blog.csdn.net/m0_52539320/article/details/129009525

版权

电脑知识专栏收录该内容

27 篇文章 0 订阅

订阅专栏

Excel 用vba自动汇总
需要安装 wps vba 开启插件
在WPS 开发工具选项宏安全性调到最低，用百度网盘（提取码：7896）下载解压后运行exe文件，安装成功后如下图。
PS：安装包来源于当易网下载。
在这里插入图片描述

Sub 工资表汇总()

Dim s As Integer
Dim row As Integer
s = ActiveWorkbook.Worksheets.Count
k = 1

 Sheets.Add after:=Sheets(s)

 Sheets(s + 1).Name = "工资表汇总"
 For i = 1 To s
 row = Sheets(i).Range("a65536").End(xlUp).row
 Sheets(i).Select
 Range(Cells(1, 1), Cells(row, 50)).Select
    Selection.Copy
 Sheets(s + 1).Select
 Sheets(s + 1).Range("A" & k).Select
 ActiveSheet.Paste
 k = k + row
 Next
 
End Sub