Blue的博客

2007年2月6日

Excel轻松合并

摘要： Private Sub CommandButton1_Click()　　'统计要合并的工作表的数量（循环次数）　　For i = 2 To Sheets.Count　　Worksheets(i).Select　　'选择各工作表中的数据区域并复制　　irow = Worksheets(i).[B65536].End(xlUp).Row　　ActiveSheet.Range('A2:AA' &... 阅读全文

posted @ 2007-02-06 12:54 Blueeyes 阅读(796) 评论(0) 推荐(0) 编辑