excel中 VBA实现 两sheet表间查询赋值应用示例

      有时我们在利用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("请输入要批量查询的身份证号地址区域&