摘要： 今天同事问了个我一个数据提取的问题。他的需求是这样的:
他有1个工作簿，里面有100个工作表。他希望把每个工作表里的第6行的b6:i6数据复制到一起，
也就是说他要把工作表里的第6行，汇总在一起。比如这样：
他说如果你没办法，那他只能手动来复制100个工作表，提取这数据了。
我想了下说，我用VBA编程试试。
差不多10分钟折腾，我把代码搞定了。
Public Sub tiqu()’指定行遍历工作表提取
Application.ScreenUpdating = False
Dim LastRow As Integer
Dim sh As Worksheet
Set sh = Worksheets.Add ‘新建工作表
如何隐藏Excel编辑栏
在Excel VBA中，如果需要隐藏Excel编辑栏以方便用户的操作体验，可通过VBA设置Excel编辑栏的显示状态隐藏Excel编辑栏。Excel2003可通过VBA宏隐藏Excel编辑栏。 隐藏Excel编辑栏的方法： 首先按“Alt F11”组合键，Excel2003打开代码编辑器，单击&
Set sh = ActiveSheet’为当前工作表
sh.Name = "sheet1"
Sheets(3).Range("b5:i5").Copy Destination:=Sheets("sheet1").Range("b1") ‘表头
Sheets(3).Range("a6:i6").Copy Destination:=Sheets("sheet1").Range("a2") ‘复制
For i = 4 To Sheets.Count ‘遍历工作表
LastRow = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row ‘判定最后非空行
Sheets(i).Range("a6:i6").Copy Destination:=Sheets("sheet1").Range("a" & LastRow).Offset(1, 0) ‘复制到特定非空行的下一行
Next
MsgBox "处理完毕"
Application.ScreenUpdating = True
End Sub
他按alt F11,把代码贴入模块，点运行就行了。就是要他的结果。
我来解释下我的思路原理：我的解决方案。遍历工作表，提取每个工作表的第6行，复制到sheet1里的A2开始，难点1是偏移，用offset。难点2，判断非空的最后一行，用en那个100个工作表，1分钟内运行完。如果复制粘贴100次，大家试下就知道要多久了，起码我肯定你的手已经废掉了，哈哈。
哈哈，本贴结束.
Excel数据源的多表合并和SQL查询图解教程
Excel多表合并和查询是一个应用很广泛的问题。下面是一个简单的例子，我们需要从两张数据表里，得出每个行业的股票波动率平均值。第一个数据表保存了股票和行业的对应关系，有两列，第一列为股票名，第二列为每只股票对应的行业。第二张表保存了各个股票在各个交易日的收盘价和前收盘价，有四列，第一列是股票名，第二列为交易日，第三列和
