excel工作表某列中的值从另一工作簿中获取数据
发布时间：2022-11-07 11:45:30
在下图1所示的工作簿Data.xlsx的工作表Sheet1中，存放着待使用的数据。
图1
在下图2所示的工作簿GetData.xlsm中，根据列C中的数据，在上图1的工作簿Data.xlsx的列E中查找是否存在相应数据的单元格。
图2
然后，将Data.xlsx中对应行的列I至列K单元格中的数据复制到GetData.xlsm相应的单元格中，如下图3所示。
图3
在工作簿GetData.xlsm中，输入代码：
Sub CopyData()
‘关闭屏幕刷新
Application.ScreenUpdating = False
‘声明变量
Dim LastRow As Long
Dim wksData As Worksheet
Dim rng As Range
Dim rngFound As Range
‘赋值为存储数据的工作表
Set wksData =Workbooks(“Data.xlsx”).Sheets(“Sheet1”)
‘判断所选单元格是否在列C中
If ActiveCell.Column<> 3 Then
MsgBox (“请选择列C中的单元格或单元格区域.”)
Exit Sub
Else
‘遍历所选的单元格
For Each rng In Selection
‘在数据工作表中查找相应的值所在的单元格
Set rngFound =wksData.Range(“E:E”).Find(rng, LookIn:=xlValues, lookat:=xlWhole)
‘如果找到
If Not rngFound Is Nothing Then
‘将相关单元格的数据复制到当前工作表相应单元格
rng.Offset(0,4).Resize(1, 3).Value = rngFound.Offset(0, 4).Resize(1, 3).Value
End If
Next rng
End If
‘打开屏幕刷新
Application.ScreenUpdating = True
End Sub
代码中，使用了Find方法来查找数据所在的单元格，使用Offset属性偏移到指定的单元格，使用Resize属性来扩展单元格区域。
注意，要使代码正常运行，应该将两个工作簿都打开。
0
投稿猜你喜欢
说起PPT，相信小伙伴们都不会觉得陌生。我们的日常生活中可以经常看到各种各样的PPT，比如教室上课使用的PPT，演讲比赛使用的PPT，汇报工- 微软自Win8开始就从系统中移除了Areo Glass特效，那么，win10系统中如何使用并打开毛玻璃特效呢？针对此问题，本文就为大家介绍w
- 如果已在某个Excel工作表中输入了数据，则可快速将该数据复制到其他工作表的相对应的单元格中，方法如下： 1.单击源工作表的标签，
- 几何画板作为一款专业且强大的几何绘图软件，无论是简单，还是复杂的几何图形，使用它都可以轻松绘制出来，如摩莱三角形这种特殊的几何图形，使用几何
- 第1步，打开Word2013文档窗口，依次单击“文件”→“新建”按钮。第2步，在打开的“新建”面板中，用户可以单击“书法字帖”等Word20
- 电脑使用时间久了，就容易堆积比较多的垃圾文件，导致电脑变得十分卡顿。而最近有位用户在清理电脑文件的时候，发现了系统中经常会出现一个叫thum
- 每个人都有只想自己一个人看到的那几张照片，在整个相册中如何把它隐藏起来呢？iOS 14中，苹果加入了“照片隐藏”这一非常实用的功能，相关操作
- win11安卓模拟器在哪里怎么打开？微软新出的win11系统，除了全新的个性化界面外，还提供了直接使用安卓模拟器的功能，那么小伙伴知道在哪里
- word表格，一般来说，当我们往单元格输入内容的时候，列会根据输入内容的多少，自动调整列的宽度，以吻合输入的字符数，同时，行的高度也会自动换
- 随着对游戏体验追求的提升，越来越多的玩家选择机械键盘，你可能听过青轴、茶轴、红轴、黑轴……但真正了解它们有什么区别吗？简单总结如下：青轴：是
- 本文将讲述如何在Excel中从给定单元格中的文本字符串中删除所有非字母数字字符。如何使用Excel 2013/2016中的用户定义函数或VB
- 在Word中，将选中多行文本向右平移的快捷键是：Tab键；向左平移的快捷键是：Shift + Tab键，其操作方法：1、选中需要平移的文本；
- 如何使用qq浏览器翻译网页?现在的浏览器有很多，qq浏览器就是其中的一款。qq浏览器可以浏览网页新闻，资讯等，但是大家知道，qq浏览器还可以
- 在这次全球规模的WannaCry勒索病毒事件中，Windows 7承受了超过98％的攻击，而古老的Windows XP虽然仍有庞大的用户基数
- 很多人只会插入表格或绘制表格，但是都是按部就班的表格体现方式，倘若遇见有大有小，不平行的表格，怎么办?新手不会，上网找怕麻烦，而且教程太乱没
- Ping是一个非常好用的网络指令，在遇到网络卡顿或者断网的情况下，网管通常第一句话就是让你ping一下。使用它可以让你快速检测电脑网络是否正
- win7播放器正在播放音乐突然就中断了不播了该怎么办？win7系统只要有其他声音就会停止播放音乐，这是怎么回事，想听音乐边干活该怎么做呢？下
- 用户不想要win10自带的便签软件，怎么卸载win10便签呢，一般打开win10中的应用和功能便可以卸载便签了，那么接下来我们一起看看win
- Win7电脑开机时屏幕突然出现蓝屏stop 0x000000ed错误问题，很可能是磁盘发生错误导致的，那么如何解决这个蓝屏问题呢？下面给大家
- 如何让win7系统开口说话呢？长时间面对电脑，会让人感到非常的烦躁，没意思。但如果让你的电脑开口说话的话，我想大家应该都很感兴趣吧！今天小编
