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属性来扩展单元格区域。
注意,要使代码正常运行,应该将两个工作簿都打开。
猜你喜欢
- 本月初,苹果发布了 iOS 14.5.1,该版本提供了重要的安全性更新,然而一些升级到该版本的用户发现,iOS 14.5.1 会导致 iPh
- 在Excel中经常会制作许多表格,例如:已知某县8个月出生的人口数,现在要计算出这8个月的平均出生人口数,但人口数不可能为小数,所以这时就应
- 对称页边距是指设置双面文档的对称页面如图对称页边距中码2所示的页边距。例如书籍或杂志。在这种情况下,左侧页面的页边距是右侧页面页边距的镜像(
- 现在很多用户的电脑除了cpu上有核心显卡外还单独配置了独立显卡,通常win10系统下会默认使用核心显卡,只有在运行大型程序才会调用独立显卡,
- 不少win7系统用户选择升级到win10系统,但是对其性能缺少了解,有用户反馈点击win10底部任务栏无响应,这个情况通常是资源管理器运行异
- 数学生初中已初步学习了 word 文档的编辑、修饰等基本操作。多数学生能对 word 文档进行简单 的字体和段落设置。但有时候操作具有随意性
- excel2010打印每页都有表头的方法:每页打印表头步骤1:如图所示,是一个打印超过一页的excel表格,在表格的第一行是一个标题,我们使
- word目录没有页码该怎么办?今天,小编就教大家如何设置目录页码的方法!word设置目录页码的步骤如下:1.当你完成页眉页脚的设置后,进行页
- 我们在使用这款操作系统的过程中,有时候会因为一些误操作而对电脑的相关设置进行了不当改动,这时候可以进入高级启动模式,来对错误操作进行解决和恢
- word目录域怎么使用?word中的文章想要添加目录,之前我们介绍了很多方法,今天我们就阿里看看word目录项域设置目录的教程,需要的朋友可
- word两字之间空白没办法删除该怎么办呢?word文档打开发现两字之间有空白,但是删除的时候却发现没办法删除,该怎么办呢?下面我们来看看wo
- 说到制作流程图,一般人都会用PS、AI、CDR等软件,其实在word2007中也可以制作流程图,word功能强大,我们可以利用自选图形库提供
- 表格纵向打印的时候部分内容不能显示在同一页怎么办?我们可以在打印的时候将表格横向打印,那么在Excel中横向打印要怎么设置呢?1、点击文件下
- 有win10用户反映自己的电脑字体出现模糊且有锯齿的问题,无论是网页还是办公软件中,都有这种情况,体验感非常差。不要着急,小编下面就给大家分
- 这篇教程向大家介绍word表格中精确调节整体列宽和单元格列宽的操作方法,教程比较不错,对于不懂的朋友可以跟着教程一起来学习吧word表格中精
- 面向 iOS 平台的 Office Insider 项目成员,微软为 Word、Excel、PowerPoint 和 Office Mobi
- word软件中的字体默认显示宋体五号字,但是平常我们多不使用其默认字体,经常敲完字还要多次修改字体和字号。那么下面就由小编给大家分享下wor
- 每年新入学的一年级学生,都需要向上级教育部门上报一份包含身份证号、出生年月等内容的电子表格,以备建立全省统一的电子学籍档案。数百个新生,就得
- 准备工作:准备一份考生信息数据库,可以是Word创建的数据源,也可以像Excel工作簿、Access数据库、Query文件、Foxpro文件
- Excel2007及以上版本提供了许多漂亮的预定义表格样式,我们可以为数据表轻松快速地套用格式。如果预定义的表样式不能满足需要,还可以创建并