【excel+vba】如何查找某个表格里的数据并且将相关内容复制到新的表格中去？

比如我前面有个“汇总表”，里面有所有的数据。现在我想实现的功能是我在“查询表”里面输入一些学校的名字，然后点击一个命令按钮。在“结果表”里面就会自动显示出与这个学校有关的数据。

对着一个类似功能的代码研究了许久，看不懂╮(╯▽╰)╭实在是VB废~~只能求助大神们了~~~

举报该问题

推荐答案 2015-01-28

用一些查找函数是可以实现的，如：vlookup()、match（）+indirect（）组合、index（）、offset（）、、
VBA代码可以先录制一个，就是先到汇总表，输入标题和学校名（分位于一列两行），然后开始录制，激活汇总表（就是点击打开汇总表），然后用筛选-高级筛选，筛选出对应数据，然后复制到查询表相应位置，结束宏录制

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/veWtXXeze7jWOWBOee.html

相似回答

[Excel+VBA]如何查找某个表格里的数据并将相关数据复制到另一个表中...答：同时按CTRL SHFIT 回车键出现结果，下拉公式第3列同理 VBA的要依次循环包含了编号或挖方的数据 或设置步长 复制到 sheet1表 Sub 编号()Dim i, n n = 2 For i = 1 To Sheets("三角网原始数据").Range("a65536").End(xlUp).Row Step 6 n = n + 1 Cells(n, "a") = Shee...

vba将一个excel的数据复制到另一个excel中vba把一个表格内容复制到另外...答：Public Sub Copy()Range(\"A1:C10\").Select '复制的区域,自行修改 Selection.Copy '复制 Workbooks(2).Activate'激活第二个BOOK Range(\"A1\").Select'区域,自行修改 ActiveSheet.Paste'粘贴 End Sub

如何将Excel表中编辑—查找后的多项内容复制到新建的表格上答：用万能的vba可以实现。举例说明。有一牛奶站，根据送奶的记录数据做成每天根据每个客户的送奶履历表。代码如下：Sub 送奶履历表()Const mYbook = "送奶履历表"Dim MPATH As String Dim I, J As Integer Dim K1, K2 As Integer 'K1记录报表的行号，K2记录报表的列号 MPATH = ActiveWorkbook.Path...

vba 检索excel中的数据并自动填写到另一个excel中相应的表格里。答：求一个excel2007的VBA程序语言，主要完成以下任务：检索excel中的数据，然后把符合要求的数据自动写入word文档表格中，如下图，将日期、最大值、最小值按格式写入word表格中

如何用VBA去实现EXCEL的表中找到符合条件的单元格,然后再整行复制到...答：Row y = y + 1 .Range(x & ":" & x).Copy Destination:=Sheets(3).Range("A" & y)End If Next End With End If Application.ScreenUpdating = True End Sub 这个代码的功能是在表1的A列输入数值，自动查找表二中对应A列数值然后事先复制到表三。欢迎到Excel Home论坛学习、交流”。

Excel中如何将一个表格的数据复制到另一个表上答：我们表格中选择“插入—函数”命令，在对应的“选择函数”中选择“VLOOKUP”就可以把一个表格导入另一个表格数据了。下面我就分享一下具体查看方法：（电脑型号：联想拯救者刃7000K，系统版本：win10，Excel 2019 MSO 16.0）1、下图是一个Excel工作薄中的两张表，分别为Sheet1和Sheet2，下面分别以表1...

求助EXCEL使用VBA批量打开一系列表格文件并复制里面的数据到另一个表 ...答：'假设所有报表文件中的数据都在 Sheet1Set sht = ActiveSheet '保存当前工作表对象fn = Dir(ThisWorkbook.Path & "\报表-*.xls", vbReadOnly) '打开第一个报表文件Do While fn <> "" '开始循环 Set wb = Workbooks.Open(fn) '以只读模式打开报表文件 '取得报表文件中的日期字符串 ...

怎么把excel表格里的数据复制到新表格里去?答：1. 首先第一步打开电脑中的一个Excel文档，也就是小编下图所示的工作簿1。2. 第二步点击最上方【+】号选项，新建【工作簿2】。根据下图所示，在工作簿2中输入类似工作簿1的数据，姓名的顺序是不一样的。选中【B1】单元格，然后输入【vl】后点击跳出的【VLOOKUP】函数。3. 第三步鼠标左键双击B1...

如何将一个Excel表格中的指定的表格中的内容复制到另外一个Excel表格...答：设两个文件都打开，如果只是要内容，可以简单就一句话 Sub xcopy()Workbooks("book2.xls").Worksheets("sheet1").Range("A1").Value = Workbooks("book1.xls").Worksheets("sheet1").Range("A1").Value End Sub

大家正在搜