多表汇总每个公司的地址、纳税人识别号和开户行及账号
点击上方蓝字「Excel不加班」关注，看下一篇
恭喜下面3个粉丝：帘卷西风、微笑莞然、筱亚，获得书籍，加卢子微信chenxilu2019，发送姓名，电话，地址。
为了活跃气氛，在文末点亮“在看”+评论区留言，我会从中抽取3名粉丝，每人赠送一本《Excel效率手册 早做完，不加班》。
早期卢子写过一篇文章，是用公式做的，现在学VBA了，就得尝试用VBA来解决函数的问题。
明细表，格式一模一样，现在要将每个明细表的地址、纳税人识别号和开户行及账号提取到汇总表。
汇总表，根据公司名称查找到相关的信息。
说到查找，很多人的第一反应就是VLOOKUP函数，其实查找家族人才济济。在汇总表的B2输入公式，下拉和右拉。
=INDIRECT($A2&"!"&ADDRESS(COLUMN(B1),4,4))
上面是公式的解决方法，来看VBA怎么解决的？
思路：
将金石这个表的D2:D4，选择性粘贴，转置到汇总的B2。同理，金土、金沙也是这样处理。
相当于录制一个转置的宏，加一个循环语句就搞定。分表的内容有合并单元格，录制出来会有问题，这里直接用汇总表这个没合并单元格的录制宏。
Step 01 录制一个选择性粘贴，转置的宏。
Step 02查看刚刚录制的宏代码。
PasteSpecial就是选择性粘贴的意思。
Transpose:=True就是转置的意思。
中间那些可以暂时不用管，删除掉，这样代码看起来就整洁很多。
Range("D2:D4").Select
Selection.Copy
这2句的意思就是先选择单元格D2:D4，然后对选择的区域进行复制，可以简化成Range("D2:D4").Copy。
同理，对下面那2句也进行简化Range("B7").PasteSpecial Transpose:=True。
最后，嵌套循环语句，还有添加工作表名称，代码就完成了。
Sub 汇总()
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(i).Range("D2:D4").Copy
Sheets(1).Range("B" & i).PasteSpecial Transpose:=True
Next
End Sub
运行代码确认效果。
VBA学起来并没有想象中那么难，只要你跟对人。
就像这个读者所说的，跟错人，一开始学习那些乱七八糟的概念，不要说是你，即便是我看着都想睡觉。学VBA要从工作上经常接触到的表格学起，想着如何将表格变得更智能，更容易操作，要从这个观点出发才能学好。
链接：
https://pan.baidu.com/s/1oM81JLelyvbykTmRBY4RNQ
提取码：e8ds
VIP888元，一次报名，所有视频课程，终生免费学，提供一年在线答疑服务。
报名后加卢子微信chenxilu2019，发送报名截图邀请进群。
说一说，当初遇到什么坑，让你误以为这辈子永远学不会VBA？
作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）
请把「Excel不加班」推荐给你的朋友
无需打赏，请点在看↓↓↓