作者：乔山办公网日期：
返回目录：excel表格制作
Sub uu()
Sheets("Sheet1").Select
Range("b3:b8").Select
Selection.Copy
Sheets("Sheet2").Select
Range("a1").Select
ActiveSheet.Paste
End Sub
1 rang 改为 range
2 uu = rang("b3:b8").Value : Sub过程不能百有返回值度
3 Cells.Select ：这不知问什么意思，我改答成了回Range("a1").Select 选择粘贴起点。答
按ALT+F11打开VBA编辑窗口,在左边列表7a64e58685e5aeb9363栏右键选择插入模块,粘贴以下代码 然后返回工作表ALT+F8 选中,执行
Sub hb()
Application.ScreenUpdating = False
Dim EndrowHZ, ShtCount, EndRow, EndCol As Long
Sheets.Add
ActiveSheet.Name = "汇总"
ShtCount = Worksheets.Count
For n = 2 To ShtCount
Sheets(n).Activate
EndRow = [A65536].End(xlUp).Row
EndCol = [iv1].End(xlToLeft).Column
For i = 2 To EndRow
EndrowHZ = EndrowHZ + 1
For ii = 1 To EndCol
If EndrowHZ = 1 Then i = 1
Sheets("汇总").Cells(EndrowHZ, ii) = Cells(i, ii)
Next ii
Next i
Next
Sheets("汇总").Activate
Application.ScreenUpdating = True
End Sub
excel 中将一个工作表批量复制出很多个相同的工作表的方法可以采用下面的方法：
1、要复制的表是连在一起的就好办，在表名的地方，先点击最zhidao左边要复制的表，然后按住shift键，点击最右边要复制的表，然后在表名的地方单击右键，选择“移动或复制工作表”，其中工作簿的下拉框中可选版择“新工作簿”或现有打开的工作簿，确定复制的位置，最下面可勾上“建立副本”（如果不勾，将是移动表格），确定即可。
2、可以录制一个宏，然后在需要的时候执行这个宏就可以了。
3、编制单独的程序来实现，可以通过vb,vc或其它的高级语言通过编程来实现，会更文件地来完成这权样的功能。
参考Sheets(1).Cells(2, 1).CopyFromRecordset rs
其中rs为你结果集