[已解决]，数据查询的问题，在线等···请老师帮忙！

666666666

表格的格式是一样的，就是数据位置不固定。
我想在O2位置输入工作表B2的关键字【西斯欧派】点击查询
就可以把数据提取到首页显示，也就是图片上这个位置显示。
请老师帮忙，谢谢！！！






查询.rar (23.89 KB, 下载次数: 37)

2011-10-4 12:05 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

80013025

2011-10-6 12:06

回复 666666666 的帖子

Sub 获取数据()
     Dim sh$, c, arr
     sh = Sheets(1).[N2]
     With Worksheets(sh).[J:Q]
         Set c = .Find("应付账款总额")
         arr = c.Offset(-1, -1).Resize(23, 5)
     End With
     Sheets(1).[N4].Resize(23, 5) = arr
End Sub

跳转到最佳答案楼层

studyexcel

{:031:}现在电脑上没装OFFICE

666666666

回复 studyexcel 的帖子

大侠！！！

Select

楼主的工作表弄得很好看，
如果先实现功能，再修饰，就好了。

开辆小富康

这一个不需要用VBA.
方法:
STEP1,将各工作表改名,改成B2单元格的名.比如"甲甲甲"这一表,改成"西斯欧派"
STEP2,在首页表中的P6单元格,输入公式:=OFFSET(INDIRECT($O$2&"!M5"),ROW(A1),COLUMN(A1))
STEP3,复制这个公式到下面各单元格.
STEP4,去除查询按钮(不需要它的)

80013025

回复 666666666 的帖子

Sub 获取数据()
     Dim sh$, c, arr
     sh = Sheets(1).[N2]
     With Worksheets(sh).[J:Q]
         Set c = .Find("应付账款总额")
         arr = c.Offset(-1, -1).Resize(23, 5)
     End With
     Sheets(1).[N4].Resize(23, 5) = arr
End Sub

666666666

回复 80013025 的帖子

盼了这么久，终于盼到大侠出现了。谢谢

80013025

回复 666666666 的帖子

大侠谈不上，我也是来学习的，呵呵。