06 2016 档案

批量创建 抽取数据
摘要：Sub aa() Dim i As Integer i = 2 Dim j As Integer For j = 1 To 18 i = 2 Worksheets.Add after:=Worksheets("sheet1") ActiveSheet.Name = CStr(j) ... 阅读全文

posted @ 2016-06-21 22:17 shortail 阅读(122) 评论(0) 推荐(0)