execl中如何把第一个表的内容汇总到第二个表 excel怎样从第一个工作表中筛选出第二个工作表的内容
在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。
按Alt+F11进入VBA代码编辑和调试界面。
根据下图提示，插入一个模块。
将下述代码粘贴到模块空白处：
Sub CombineSheetsCells()
Dim wsNewWorksheet As Worksheet
Dim cel As Range
Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Variant
Dim TitleRow, TitleColumn As Range
Dim Num As Integer
Dim DataRows As Long
DataRows = 1
Dim TitleArr()
Dim Choice
Dim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$
Dim n, i
n = 1
i = 1
Application.DisplayAlerts = False
Worksheets("合并汇总表").Delete
Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))
wsNewWorksheet.Name = "合并汇总表"
MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")
If MyFileName = "False" Then
MsgBox "没有选择文件！请重新选择一个被合并文件！", vbInformation, "取消"
Else
Workbooks.Open Filename:=MyFileName
Num = ActiveWorkbook.Sheets.Count
MyName = ActiveWorkbook.Name
Set DataSource = Application.InputBox(prompt:="请选择要合并的数据区域：", Type:=8)
AddressAll = DataSource.Address
ActiveWorkbook.ActiveSheet.Range(AddressAll).Select
SourceDataRows = Selection.Rows.Count
SourceDataColumns = Selection.Columns.Count
Application.ScreenUpdating = False
Application.EnableEvents = False
For i = 1 To Num
ActiveWorkbook.Sheets(i).Activate
ActiveWorkbook.Sheets(i).Range(AddressAll).Select
Selection.Copy
ActiveSheetName = ActiveWorkbook.ActiveSheet.Name
Workbooks(ThisWorkbook.Name).Activate
ActiveWorkbook.Sheets("合并汇总表").Select
ActiveWorkbook.Sheets("合并汇总表").Range("A" & DataRows).Value = ActiveSheetName
ActiveWorkbook.Sheets("合并汇总表").Range(Cells(DataRows, 2), Cells(DataRows, 2)).Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
DataRows = DataRows + SourceDataRows
Workbooks(MyName).Activate
Next i
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
Workbooks(MyName).Close
End Sub
在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。
点击“首页”工作表中插入的按钮，根据提示，浏览到原始数据工作簿。
下一步，用鼠标选择要合并的数据范围。
注意：每个工作表数据可能不一样，比如说有的是10行数据，有的是30行数据。在这里我们可以用鼠标选择任意工作表的一个较大范围，比如说A1:D100，保证比最多行数的工作表数据还多就可以，一会再删除空行。
点击确定按钮，待代码运行完毕后，所有的数据就都合并到了“合并汇总表”中。
注意：
1）A列的文本说明右侧的数据来自于原始数据表的哪个工作表；
2）数据之间会有一些空行，下面通过筛选删除。
选中全部数据区域，执行自动筛选。然后选择其中一个字段，选择“空白”和标题内容。
然后将筛选出来的无用行鼠标右键删除，再删除A列整列即可，完成效果如下图：
参考来源：http://jingyan.baidu.com/article/64d05a027d3c08de55f73b88.html
Excel中如何使一个工作表的数据引用到另一个表上？~
1、首先我们需要在同一个excel表格中，添加两个工作表，完成以下步骤。
2、完成以上步骤后，在第二个表格中引用后数据出现的位置输入，如下图所示。
3、完成上面步骤后，回车就出现了引用后的编号，完成以下步骤，进行设定表格。
4、完成上面步骤后，同样的道理,在相应的位置输入:=被引用表！B2。
5、完成以上步骤后，点击回车,就出现了引用的姓名，如下图所示。
6、完成以上步骤后，按照如上方法进行操作，最后就可以完成引用后的表格。
VLOOKUP(lookup_value,table_array,col_index_num,[range_lookup])
简单解释一下，我举个例子，有一张表格，上面有三个人的分数和排名，然后比如说你的目的是想看小明考了多少分和排第几名，用Vlookup的方式，lookup_value是说参考的那个数值，而且是唯一的参考数值，"小明"就是你要参考的那个数值，table_array就是你要看你在哪个范围内寻找结果，col_index_num是选择第几列，第一列就是你的参考数据可以找到对应信息的那列，如果数据出现在第二列就写个2，可以看到分数是在第二列，排名在第三列，range_lookup是false或者true，false代表精确查找。结果就可以出来了，小明的分数是85，排名是3。如果基础数据有两个叫小明的，一般Vlookup只能找出第一个的对应数值。Vlookup是查找列的，对应的Hlookup是查找行的。
你试试看~
xecl表格里黏贴链接后很长一串,怎么才能把链接按表格大小弄小一点_百度...
答：1，设置链接所在单元格格式，对齐-填充 2，将链接列隐藏，然后用公式设置超链接替代，比如链接所在列为C列，在D2中输入=hyperlink(链接所在单元格,"点击查看");，然后填充公式，隐藏C列即可，此时点击D列中的点击查看，一样超链接跳转
