书籍文库  |  文档资料  |  最近更新  |  MAP  |  TAG  | 
注册
手机版
湖北快3走势
当前位置:湖北快3走势 > 电脑办公 > 办公软硬件 > 充分利用VBA,一键完成在多个EXCEL工作表中的批量大数据查询

今天湖北快三预测号:充分利用VBA,一键完成在多个EXCEL工作表中的批量大数据查询

分享人:大雪山 来源:互联网 时间:2018-07-10 阅读:0

湖北快3走势 www.xdcan.cn 在工作中经?;嵊玫揭恢峙坎檠那榭?,这种情况比较复杂,就是查询需要在不同的工作表中进行,这种情况是如何快速查到结果呢?在GO语言中有个函数RANGE(),可以遍历数组,切片,MAP,那么如何在EXCEL中实现此功能呢?是否有种方法可以在多个工作表中查询数据呢?有办法的,利用VBA.可以使这类的批量查询迎刃而解。 

首先上代码:(拷贝时最好要去掉前面的行号,此行号是位后面的解释代码方便而设置的)。

1  Sub KK()

2  Sheets('SHEET1').Select

3  I = 2

4  Do While Cells(I, 1) <> ''

5  Cells(I, 1).Select

6   TT = Cells(I, 1)

7   Cells(I, 2) = ''

8

9   Set FJX =Sheets('A').Range('A1:A' &Sheets('A').Range('A1').End(xlDown).Row).Find(TT,AFTER:=[A1], LOOKAT:=xlWhole)

10  If Not FJXIs Nothing Then Cells(I, 2) = Sheets('A').Cells(FJX.Row, 2)

11

12   Set FJX =Sheets('B').Range('A1:A' &Sheets('A').Range('A1').End(xlDown).Row).Find(TT, AFTER:=[A1],LOOKAT:=xlWhole)

13  If Not FJX Is Nothing Then Cells(I, 2) =Sheets('B').Cells(FJX.Row, 2)

14

15   Set FJX =Sheets('C').Range('A1:A' &Sheets('C').Range('A1').End(xlDown).Row).Find(TT,   AFTER:=[A1], LOOKAT:=xlWhole)

16  If Not FJX Is Nothing Then Cells(I, 2) =Sheets('C').Cells(FJX.Row, 2)

17

18  Set FJX =Sheets('D').Range('A1:A' & Sheets('D').Range('A1').End(xlDown).Row).Find(TT,AFTER:=[A1], LOOKAT:=xlWhole)

19  If Not FJX Is Nothing Then Cells(I, 2) =Sheets('D').Cells(FJX.Row, 2)

20  I = I 1

21  Set FJX = Nothing

22   Loop

23  End Sub

 

代码的截屏:

 


 代码的解释:

首先用到一个DO WHILE循环,将批量查询的数据的值一个一个的赋给“TT(6).

9行首先在工作表“A”中查询;注意此处用到之前文章中发表的《VBA 实战技巧篇:如何对不固定的连续区域进行选择,不清楚的朋友请参考.

如果没有查到则在第12行,实现在工作表“B”中查询;

如果还没有则在16行,实现在工作表“C”中查询;

还没有则在18行,实现在工作表“D”中查询。当查询到结果后,会把对应的值写道工作表sheet1的“B”列。上述就实现了批量数据的多工作表查询方法。

下面就视频演示一下此方法:

包括:

1 建立宏???/span>

2VBA编译器中拷贝代码

3 建立按钮连接宏

4查询演示



百度搜索“就爱阅读”,专业资料,生活学习,尽在就爱阅读网www.xdcan.cn,您的在线图书馆!

热点阅读

网友最爱

  • 消防车进商场——“小小消防员”的消防安全乐体验 2018-09-15
  • 傅抱石《琵琶行诗意》1.035亿元成交 2018-09-15
  • 醉人冬景 带你看遍世界各地雪中葡萄园葡萄园醉人 2018-09-01
  • 大陆首批台湾乘务员晋升乘务长 2018-09-01
  • 牵手中东,日照谱写“开放活市”新篇章 2018-08-30
  • 【大家谈】博鳌论坛释放中国改革开放新信号 2018-08-30
  • 点评:世界杯八大热门亮相完毕 西班牙巴西最有冠军相 2018-08-26
  • 钟汉良押题 明星都有哪些押题神预测 2018-08-18
  • 银保监会:6月22日前上报保险消费风险提示落实情况 2018-08-18
  • 外国摄影师实拍平壤居民生活(组图) 2018-08-05
  • 国务院办公厅印发《意见》 推进奶业振兴保障乳品质量安全 2018-08-05
  • 图解:第十九届中共中央组织结构图 2018-08-02
  • 特朗普让俄重返G7遭5国反对 唯独安倍表态我理解 2018-08-02
  • 主持人资料库――刘芳菲 2018-07-27
  • 成都市工商局:6批电线电缆商品抽检不合格 2018-07-27
  • 279| 12| 928| 893| 186| 949| 346| 722| 265| 694|