在下图1所示的工作簿Data.xlsx的工作表Sheet1中，存储了要使用的数据。

图1

在下图2所示的工作簿GetData.xlsm中，根据c列的数据，查找上图1所示的工作簿Data.xlsx的e列是否有对应数据的单元格。

图2。

然后，将Data.xlsx中对应行的I列到k列的单元格中的数据复制到GetData.xlsm中对应的单元格中，如下图3所示。

图3。

在工作簿GetData.xlsm中，输入代码：

子副本数据()

关闭屏幕刷新。

申请。屏幕更新=假

声明一个变量。

暗淡最后一行一样长

将周数据调暗为工作表

调光范围

调暗声音范围

指定为存储数据的工作表。

设置工作簿。表(“表1”)

判断所选单元格是否在c列。

如果激活细胞。第3栏然后

MsgBox(“请在c列中选择一个单元格或单元格区域”。)

出口接头

其他

遍历选定的单元格。

对于每个rng In选择

在数据工作表中找到相应值所在的单元格。

设置rngFound=wksData。范围(“E:E”)。Find(rng，LookIn:=xlValues，lookat:=xlWhole)

如果找到了。

如果没有，那么什么都不是

将相关单元格的数据复制到当前工作表的相应单元格中。

rng。偏移量(0，4)。调整大小(1，3)。Value=rngFound。偏移量(0，4)。调整大小(1，3)。价值

如果…就会结束

下一个rng

如果…就会结束

打开屏幕刷新。

申请。屏幕更新=真

末端接头

在代码中，Find方法用于查找数据所在的单元格，Offset属性用于偏移到指定的单元格，Resize属性用于扩展单元格区域。

请注意，为了让代码正常运行，您应该打开两个工作簿。