陆紫早期写过一篇文章,是用公式做的。既然他已经学会了VBA,他不得不试着用VBA来解决函数的问题。
在多个表中查找公司地址、纳税人识别号、银行和账号。
时间表,格式完全一样。现在,应该将每个明细表的地址、纳税人识别号、银行和帐号提取到汇总表中。
汇总表,根据公司名称查找相关信息。
说到搜索,很多人的第一反应是VLOOKUP功能。其实搜索家族里有很多有才华的人。在汇总表的B2中输入公式,并向右下拉。
=间接($A2 ‘!’地址(列(B1),4,4))
以上是公式的解法。让我们看看VBA是如何解决的。
想法:
选择性粘贴进士表D2:D4,转置到摘要B2。同样,金色的土壤和金色的沙滩也是如此。
相当于记录一个转置的宏,只需添加一个循环语句。表格内容有合并单元格,记录时会有问题。这里直接使用汇总表,即没有合并单元格的录制宏。
步骤01记录一个选择性粘贴和转置的宏。
步骤02检查刚刚记录的宏代码。
PasteSpecial表示选择性粘贴。
Transpose:=True表示转置。
中间的那些可以暂时忽略,删除,这样代码看起来整洁多了。
范围(‘ D2:D4 ‘)。挑选
选择。复制
这句话的意思是先选中单元格d23360d4,然后复制选中的区域,可以简化为range (‘d23360d4 ‘)。收到。
同样,简化以下两句话:range (‘b7 ‘)。paste specialized transition :=true。
最后,嵌套循环语句和工作表名称的添加完成了代码。
Sub()
将I标注为整数
对于i=2到张。数数
床单(一)。范围(‘ D2:D4 ‘)。复制
床单(1)。范围(‘ B’ i)。paste special transpose :=True
然后
末端接头
运行代码验证效果。
VBA没有你想象的那么难学,只要你跟对了人。
就像这位读者说的,跟错人,一开始学那些乱七八糟的概念。别说是你。连我看着都想睡觉。学习VBA,要从工作中经常接触到的表单开始,思考如何让表单更智能,更易操作。只有从这个角度出发,才能学好。
相关问答:相关问答:什么是开户行号?有什么意义呢?
每个银行都有自己的一个独立的行号,作为银行之间的识别标识,用来联行支付结算。
银行的开户行行号,一般是由一组十二位的数字组成的代码。
具体查询的话可以打银行客户电话查询。