有时我们在利用Excel处理大量数据信息时，可能会关连到两个或者更多个sheet，有时遇到下面的场景利用Excel本身提供的函数可能很难实现我们的效果。如下场景：
有表Sheet1（单位名称，身份证号）下面简称A表，Sheet2（序号，单位名称，出生年月，身份证号，职务...）以下简称B表
其中A的单位名称列全部为空，现在要求根据A中身份证号信息从B中查询出对应员工的单位名称，并将信息填写到A表对应单位名称列中。
如果是手工查询太浪费时间，所以想写个宏来帮助实现自动查询的功能。由于初次接触VBA,昨天从网上想查些资料做参考，结查都不太理想，后来在前辈的参考资料中获得启发，终于写出了这个宏，下面是相关宏代码。
希望这篇文章对以后有类以需求的朋友能够提供一个参考。由于是刚刚接触VBA，现在只是能够完成功能，至于运行效率，代码结构等方面都没能做出优化。
相关代码如下：
'定义全局变量
Dim currentSheet As String
Dim myDataSource As String
Sub 批量查询单位()
'设置当前工作
currentSheet = "宏测试"
'设置查询的数据源
myDataSource = "shili"
'将输入数据包含字母的转换为小写
idCardCode = InputBox("请输入要批量查询的身份证号地址区域&
最后
以上就是务实小蝴蝶最近收集整理的关于excel中 VBA实现 两sheet表间查询赋值应用示例的全部内容，更多相关excel中内容请搜索靠谱客的其他文章。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复