数据加载中……

02 2007 档案

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 阅读(578) | 评论 (0) 编辑