想把所有Sheet并在一个Sheet里面，该如何操做？

tpc008 · 发表于 2011-4-21 17:51

想把所有Sheet并在一个Sheet里面，该如何操做？请教各位老师及学友！谢谢！

FUBU.rar (11.98 KB, 下载次数: 24)

raohongying · 发表于 2011-4-21 20:01

是不是全部加到sheet1中？？
Sub 添加()
  For Each Sheet In Worksheets  '在所有的sheet工作表中循环
i = Sheet1.[c63655].End(xlUp).Row + 1 '提取sheet1中最后一行后面的空白行
If Sheet.Name <> "Sheet 1" Then '取消对sheet 1表格中的数据提取
   Sheet.UsedRange.Copy '表格中所有应用单元格复制
   Sheet1.Range("b" & i).Select '选择sheet1中应复制位置第一个单元格
   ActiveSheet.Paste '粘贴
   Sheet1.[a1].Select '取消粘贴后群单元格的选定
End If
  Next Sheet
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 想把所有Sheet并在一个Sheet里面，该如何操做？