如何利用ExcelVBA解决棘手的数据提取问题
发布时间：2022-01-18 08:56:16
今天同事问了个我一个数据提取的问题。他的需求是这样的:
他有1个工作簿，里面有100个工作表。他希望把每个工作表里的第6行的b6:i6数据复制到一起，
也就是说他要把工作表里的第6行，汇总在一起。比如这样：
他说如果你没办法，那他只能手动来复制100个工作表，提取这数据了。
我想了下说，我用VBA编程试试。
差不多10分钟折腾，我把代码搞定了。
Public Sub tiqu()’指定行遍历工作表提取
Application.ScreenUpdating = False
Dim LastRow As Integer
Dim sh As Worksheet
Set sh = Worksheets.Add ‘新建工作表
Set sh = ActiveSheet’为当前工作表
sh.Name = "sheet1"
Sheets(3).Range("b5:i5").Copy Destination:=Sheets("sheet1").Range("b1") ‘表头
Sheets(3).Range("a6:i6").Copy Destination:=Sheets("sheet1").Range("a2") ‘复制
For i = 4 To Sheets.Count ‘遍历工作表
LastRow = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row ‘判定最后非空行
Sheets(i).Range("a6:i6").Copy Destination:=Sheets("sheet1").Range("a" & LastRow).Offset(1, 0) ‘复制到特定非空行的下一行
Next
MsgBox "处理完毕"
Application.ScreenUpdating = True
End Sub
他按alt+F11,把代码贴入模块，点运行就行了。就是要他的结果。
我来解释下我的思路原理：我的解决方案。遍历工作表，提取每个工作表的第6行，复制到sheet1里的A2开始，难点1是偏移，用offset。难点2，判断非空的最后一行，用en那个100个工作表，1分钟内运行完。如果复制粘贴100次，大家试下就知道要多久了，起码我肯定你的手已经废掉了，哈哈。
哈哈，本贴结束.
0
投稿猜你喜欢
- Excel怎么提取工作表名称作为标题，Excel表格中的工作表名称想要直接放到表格中当标题使用，其实可以通过使用CELL公式来提取工作表名称
相信使用ppt的用户应该不少，最近很多用户想把ppt转pdf格式，那你知道ppt怎么转pdf格式的吗？接下来我们一起往下看看ppt转pdf格- 草图大师如何快速建模？草图大师拥有最基本的建模工具，还包含了专业人员所需的特殊功能，能够快速地创建、观察和修改三维建模。那要怎么进行快速的建
- win10系统更新的文件在哪里？电脑系统每次更新都会有相应的更新文件，很多win10用户都想知道电脑更新文件存在哪里，其实这个很好找的，下面
- ROUND函数的功能是计算某个数字按指定位数取整后的数字；ROUNDDOWN函数的功能是向靠近零值的方向向下（绝对值减小的方向）舍入数字；R
- 第一步：我们首先需要将准备截取的窗口不要设置为最小化，然后打开Word2010文档页面，单击“插入”选项卡。 第二
- 在我们平常使用打印机时，如果开启了打印机共享，那么其他用户只需要添加一下网络打印机，就可以直接打印东西了。那么mac如何连接共享打印机？其实
- 怎样限制别人在word中修改自己的文章，其实就是该文档只能是只读的方式，我们可以给文档加一个限制权限就可以了，那么在word中怎么限制用户进
- hypertrm.exe是微软Microsoft Windows超级终端相关程序进程文件： hypertrm or hypertrm.exe
- WPS表格软件的最新版本集成了强大的函数功能和数据处理功能,在计算机办公领域内,基本胜任常用数据统计管理的办公任务。我们通常都会用区间法来进
- win10系统进入安全模式以后，一般是没办法创建新账户的，该怎么办呢？今天我们就来看啊可能Win10在安全模式下创建新账户的详细教程，需要的
- 虽然使用无限流量套餐的用户越来越多，但根据 Apple 的调查显示，绝大多数 iPhone 和 iPad 用户还是会密切关注自己的蜂窝网络数
- 4 月 7 日消息 苹果昨天更新了 Apple Music for Artists 应用，进行了一些小的 bug 修复和改进，但也有一个值得
- 电脑中高端内存和低端内存有何区别?内存的性能对计算机的影响非常大，我们在购买电脑时通常都会先问内存的大小等相关问题，可见内存对于电脑的重要性
- Win10打不开jpg图片怎么办？ 电脑上打不开图片的话就很麻烦，我平时都是使用电脑自带的看图软件查看图片，如果突然打不开图片的话一般就是图
- 咱们在 操纵WPS演示文稿 停止 建造PPT幻灯片的 历程 傍边， 增加 林林总总的元素、图片、 笔墨是必 不成少的，创意的幻灯片元素 能够
- 许多上班族们在使用完U盘后，都会忘记把U盘拔下，到下班后就冲冲忙忙的回家了，等回到家后才想起自己的U盘还在公司的电脑上，从而导致了不必要的麻
- 首先，选择好要设置的单元格，之后，执行菜单操作：“格式”→“单元格”，弹出对话框。在对话框中选择“数字”选项卡，然后，在分类里面找到“自定义
- 电脑连接局域网路由器难免会遇到IP冲突，导致网络无法连接的问题，在前面教程中也介绍过windows系统提示错误IP地址网络冲突分析与解决，虽
- 在Excel中录入好数据以后经常需要把Excel表导入到SQL中里去，具体如何导入呢?接下来是小编为大家带来的excel表导入sql数据库的
