江苏龙网

  1. 首页 > 资讯 > 资讯 > >

教你一个新用法，OFFSET函数2个参数就可以多表引用( 三 )


文章图片


现在除了要汇总第2个表 ， 剩下的所有分表统统都要引用到汇总表 。

这时 ， 一个循环语句已经不够用 ， 那就再嵌套一个循环语句 ， 同一段代码可以多次循环 。

Sub 汇总()
Dim i, x As Integer
For x = 2 To Sheets.Count
For i = 1 To 6
Range("a" & x).Offset(0, i) = Sheets(x).Range("a36").Offset(0, i * 3)
Next
Next
End Sub

关于提取工作表名称 ， 前面几天已经说了好多次 ， 就不做解释 ， 直接提供代码 。

一段完整的代码就写好了 。

Sub 汇总()
Dim i, x As Integer
For x = 2 To Sheets.Count
For i = 1 To 6
Range("a" & x) = Sheets(x).Name
Range("a" & x).Offset(0, i) = Sheets(x).Range("a36").Offset(0, i * 3)
Next
Next
End Sub

这样一运行 ， 所有内容都提取到汇总表 。
教你一个新用法，OFFSET函数2个参数就可以多表引用
文章图片


为了能让你学好VBA ， 已经用了我认为最好的方法 ， 一边是送书鼓励 ， 一边是从实际案例出发尽可能通俗 。 可是 ， 感兴趣的人实在太少 。
教你一个新用法，OFFSET函数2个参数就可以多表引用
文章图片


今天 ， 文末特意开了打赏功能 ， 主要是测试有多少人真心想学习 。 如果有200人打赏就继续写VBA教程 ， 如果没有 ， VBA专题到此结束 ， 以后专门写学员答疑问题 ， 到时就不要怪卢子不教VBA哦 。

链接：
https://pan.baidu.com/s/13XcyskLeYE_drRT5o8fY7A


提取码：i41l

【教你一个新用法，OFFSET函数2个参数就可以多表引用】
VIP
888
元 ， 一次报名 ， 所有视频课程 ， 终生免费学 ， 提供一年在线答疑服务 。


教你一个新用法，OFFSET函数2个参数就可以多表引用
文章图片


报名后加卢子微信chenxilu2019
， 发送报名截图邀请进群 。

推荐：OFFSET从入门到进阶 ， 再也不怕这个函数了
上篇：多表汇总每个公司的地址、纳税人识别号和开户行及账号
教你一个新用法，OFFSET函数2个参数就可以多表引用
文章图片

每一篇文章都花费了大量精力 ， 每个人都希望自己写的文章得到认可 ， 这样才有动力一直坚持写下去 。

如果发出来的文章 ， 你还特意躲着不去看 ， 那写这种文章就失去了意义 ， 你的支持 ， 是我坚持的动力 。

认可卢子的 ， 今天请打赏支持 。

教你一个新用法，OFFSET函数2个参数就可以多表引用
文章图片


作者：卢子 ， 清华畅销书作者 ， 《Excel效率手册 早做完 ， 不加班》系列丛书创始人 ， 个人公众号：Excel不加班（ID：Excelbujiaban）


推荐阅读


上一篇：最高检:＂检访通＂上线 为群众提供实时自助查询服务

下一篇：郑爽很强势！粉丝集体抵制郑爽演新电影：请珍惜羽毛