作者：乔山办公网日期：
返回目录：excel表格制作
sub tt
for i= 5 to sheets.count
rw=sheets(i).range("a65536").end(xlup).row
n=sheets(4).range("a65536").end(xlup).row+1
sheets(i).rows("2:" & rw).copy sheets(4).range("a" & n)
rw=nothing
n=nothing
next
end sub
这个不用VBA就能解决，但我想，没必要分5个工作簿，这个功能太简单了，我能做到选择年级进行筛选，这个筛选不是什么向下的箭头什么的，是你点击一个单元格就能选择年级，选择完年级就能看到相应的，如果你要给别人发过去不同年级的，同时不想让别人看到你的总表，那么我给你提供几个方案，建立登陆系统，只有你有权限查看更改总表，或者利用公文包进行网络共享，在一个就算分开工作簿也没必要用VBA，直接外联工作簿就行，非常简单，首先，你需要建立一个新的工作簿可以命名为一年级，打开这个新建立的，点击A1单元格输入“=”，然后打开你的总表，点击A1这样，一年级的A1就等于e79fa5e98193e78988e69d83331总表A1了，拖拉全部都是了，用查找替换功能将公式变成半绝对引用，设置密码加锁，然后再一年级工作簿建立一个一年级工作表，建立查找公式组，这样，就完成了一年级的建立，当然，公式变种方式非常非常多，大概就这个思路，但你想在打开状态提示更新信息到时需要VBA，例如你可以写一个重新计算所有公式的一个VBA代码，然后再在工作簿添加关闭自动保存代码就行了，只要你关闭了他就自动保存了，再打开会提示你要不要更新，点击更新就更新，不点击就会保留状态，点击按钮或者再打开就会得到更新提示或更新
总结：换一种思路，一样很方便，建议用VBA实现一些既简单又恶心的功能，例如保存了，例如重新计算公式了（虽然EXCEL自带计算按钮）
'6个工作知簿的道名字分别版是权1~6
Sub YgB()
Dim i,arr
for i=1 to 6
WorkBooks.Open(i)
arr=ThisWorkBook.Sheets(1).Columns(i)
ActiveSheet.Columns(1)=arr
ActiveWorkBook.Close savechange:=True
next i
End Sub
我记得回答个这问题，怎么没有了呢，再来一次。见附件