Excel 2010 VBA 入门 062 跨表数据查询

最新推荐文章于 2025-10-15 11:55:35 发布
原创 最新推荐文章于 2025-10-15 11:55:35 发布 · 4.1k 阅读 · 18 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍了如何使用Excel 2010 VBA进行跨表数据查询。通过示例展示了在工作簿中创建'数据表'和'数据查询'表，然后在VBA中实现根据关键字在'数据表'中查找并实现连续查找功能，利用Find方法和全局变量跟踪查找位置，确保无误查。

目录

示例

实现代码

跨表操作单元格

连续查找功能

示例

    如图所示，该工作簿中建立“数据表”和“数据查询”表分别用于存储客户信息以及客户信息的查询。现希望在数据查询表的关键字栏中输入某个关键字，并在“数据表”中的各列对该关键字进行查找，然后希望能随着按钮“查找下一个”的单击不断显示下一条满足条件的记录。如何用VBA完成？

客户名称 单位地址 联系人 联系电话
石家庄伊克塞尔有限公司 石家庄市中山路52号 程建华 XXX-XXXXXXXX
太原伊克塞尔有限公司 太原市中山路76号 李国敏 XXX-XXXXXXXX
沈阳伊克塞尔有限公司 沈阳市中山路27号 袁志刚 XXX-XXXXXXXX
长春伊克塞尔有限公司 长春市中山路56号 周汉林 XXX-XXXXXXXX
哈尔滨伊克塞尔有限公司 哈尔滨市中山路6号 骈永富
最低0.47元/天 解锁文章
vba实现不同表间关联查找
liuxf196921的专栏
05-11 1499
Option Explicit Sub buttonClick() Call otherSheetSerch(ThisWorkbook.Worksheets("合同管理"), ThisWorkbook.Worksheets("Sheet1"), 1, 1, 1, 1, 2, 2) End Sub '不同表间关联查找：表workSheet1的keyColumn1与workSheet2的keyColumn2关联，在workSheet2中找到srcColumn列，写入workSheet1的destCol..
文科生也能学会的Excel VBA 宏编程入门（四）——VBA实现vLookup
liucc09的博客
03-30 6143
任务介绍 这一次我们通过VBA编程来实现类似vLookup的功能。当然，你可能要问，既然vLookup能搞定为什么还要用VBA再实现一遍。如果仅仅是使用vLookup这一单一功能当然没必要非得来个VBA编程，但如果你要实现的功能比较复杂就不再适合串联使用一大堆Excel公式了，这个时候用VBA编程会更容易，也不容易出错。 程序基本思路 我们要处理的Excel文件如上图所示。A列和B列分别是姓名和...
利用VBA代码从一个表格检索另一个表格并且复制找到的内容
02-24
Excel表格，想以其中某一列为索引，查找另一个表格中同样索引的行，找到该行的某个内容复制到原来的表格指定的位置中。还可以删除原有表格中重复的内容。应用场景非常多，比如：利用学生学号和考场分配表查找学生座位号；利用字典表查找需要更新的项目；对某个表格以某列进行排序等等。相信学习这段代码可以有很多的启发。
Excel VLookUp函数：3分钟学会跨表精准查找
最新发布
wohule0609的博客
10-15 1961
本篇论文详细介绍了vlookup函数的具体用法和一些常见的报错和解决方案，帮助大家更好的使用vlookup函数
[神马]VBA查找匹配项
MiKiJT的博客
04-21 1892
为了一顿小龙虾，不惜花了一下午时间。 Sub 小龙虾() Dim sheetCnt As Integer, zongbiaorow As Integer, biaorow As Integer, i As Integer, j As Integer, k As Integer, p As Integer Dim s As String, target As String Dim ww As Range sheetname = ActiveWindow.ActiveSheet.Name '当前表格名
跨表批量查找匹配数据-转载（略有改动）
weixin_34175509的博客
02-20 1538
1.=MATCH(B2,[2.xlsx]Sheet1!$A$2:$A$4,0) MATCH函数含义：返回指定数值在指定数组区域中的位置 语法：MATCH(lookup_value, lookup_array, match_type) lookup_value：需要在数据表（lookup_array）中查找的值。可以为数值（数字、文本或逻辑值）或对数字、文本或逻辑值的单元格引用。可以包含通...
Excel 2010 VBA 入门 063 跨表数据录入
复行数十步
04-20 2564
目录 示例 实现代码 ListObject对象 ListObject对象的表示方法 1．序号表示法 2．名称表示法 ListColumn对象 向ListObject中添加新数据 使用VBA添加ListObject对象 Excel中数据存储的结构 (1)用输入界面的表格或者汇总形式的表格直接代替数据库存储。 (2)使用多维表（交叉表）记录数据。 示例 如图所示，该表为某公司供应商信息录入表以及供应商数据表。现希望在“数据输入”表中输入各个数据，然后添加至“数据表”中，如何用..
Excel VBA编程入门教程-视频课程资源网盘链接提取码下载 .txt
03-16
### Excel VBA编程入门教程知识点概述 #### 一、VBA简介与背景 - **定义**: VBA（Visual Basic for Applications）是一种事件驱动的编程语言，由微软开发，主要用于自动化Microsoft Office应用程序，如Excel和Word...
Excel2010VBA入门与提高.pdf
07-23
《Excel 2010 VBA入门与提高》着重于Excel VBA 的基础知识和技巧，通过153 个实例为读者展示应用VBA 解决实际问题的思路和方法，并展示了常规VBA 数据处理的要点，帮助读者学会解决实际问题的思考方式。阅读《Excel ...
<<Excel 2010 VBA入门与提高》光盘示例
07-19
《Excel 2010 VBA入门与提高》是一本专为初学者和进阶者设计的编程指南，主要关注Microsoft Excel中的Visual Basic for Applications（VBA）编程语言。VBA是Excel内置的一种脚本语言，它允许用户自定义工作簿、工作...
利用VRV检查WPS软件的安装率
dawn0718的专栏
10-26 1030
　　VRV是一款非常好的国产安全软件，做得还是比较精细，但也有一点小瑕疵，比如在检查WPS软件的安装上有时候不准，这个问题很让人犯愁。 　　我的做法： 　　①　如果正确安装了WPS，但是却被扫描没有安装，就进行下面的操作。 　　打开C:\Windows\SysWOW64这个目录，并找到EdpUninstallSoftware.crc这个文件，删除它。重启计算机。 　　②　如果上述操作无法提取到WPS的安装，就卸载WPS，重新启动再安装WPS。 　　③　如果上述措施还是不行，就在磁盘上搜索uninst
VBA学习笔记本(二)——两个表格数据匹配_DEMO
04-13
VBA学习笔记本(二)——两个表格数据匹配_DEMO 将excel中两个工作表中，数据进行一键同步的通用方法
VBA实现EXCEL多表格多条件查询
04-16
VBA实现EXCEL多表格多条件查询 For i = 1 To Workbooks.Count For Each c In Sheets(i).UsedRange If c.Value >= 150 And c.Value <= 160 Then c1 = c1 + c.Value n = n + 1 End If ‘更多条件…… Next Next
VBA 跨文件 批量 模糊查询数据 脚本分享
12-06
VBA是Office软件所支持的，可以自动处理重复，复杂的流程的脚本。该脚本涉及使用VBA打开另一个excel,并获取数据；使用模糊查询算法获取数据；流程控制语句If、While、Set、With等语句。对于学习和相关用途十分有帮助哦。。
Excel VBA 字典 集合 查找 代码
06-06
字典与集合的比较 字典的用法和特点 字典的实例代码
VBA+实现数据快速匹配
05-26
此工具用于数据匹配，其使用方法特别简单，与vlookup函数相似，但其匹配效率比vlookup函数要高，特别是处理超过10W级的数据，填好相对应的参数后点击按钮，基本在30S内可以完成匹配，此外，此工具可实现一行匹配多行，大大提高了匹配效率。
excel vba 实现跨表单(sheet) 搜索 - 显示搜索行记录搜索历史
weixin_33967071的博客
05-27 487
　　前两天，一个朋友问我，有没有办法在excel里实现一个表单里是原始数据，在另一个表单里显示搜索到的行，搜索关键词可用~分隔开，并把搜索历史记录下来？ 　　我想了想，用vba实现肯定可以啊，但是我又在想，有没有可能excel自身的功能就可以实现了呢，但是后来没有发现excel自带这种功能。于是思考自己用vba给实现吧。 　　于是我打开我的电脑，结果发现我的office版本是wps，根本就没有vb...
SQL语句：一张表和另一张表的多重匹配查询
weixin_30386713的博客
06-04 986
1、两个表结构如下图 2、如何查询成如下图所示 3、SQL语句是： 1 select id,name=stuff(( 2 select ','+t2.name 3 from a t1 4 join b t2 on charindex(','+convert(varchar(5),t2.id)+',',','+t1.name+',')>0 5 where ...
excel跨表查询数据
weixin_33744141的博客
11-06 530
环境：公司部分部门进行商品盘点，店铺经理要求不经过系统进行盘点，全程采用excel表格处理所示： 左图为总表，右图为首饰部门录入的数据 需求：找出盘点差异（即首饰部商品数量是否和对应的货号数量相同） 分析：通过首饰货号（唯一）查找总表对应的库存数量，和实际盘点到的数量进行对比，找出差异 知识点：通过货号查询总表库存数量+判断查询到的库存数量是否和实际数量有差异 通过货...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ngbshzhn

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值