excel批量创建sheet
Sub SheetAdd() Dim i As Long '定义一个长整型变量 Sheets.Add After:=Sheets(Sheets.Count), Count:=Sheets(1).Range("A" & Rows.Count).End(xlUp).Row - 1 '在现有Sheet后新建工作表,工作表数量等于Sheet(1)表A列非空单元格行数 For i = 2 To Sheets.Count Sheets(i).Name = Sheets(1).Cells(i, 1).Value '工作表名称设置为Sheet(1)A列单元格值 Next MsgBox "创建工作表完成!" End Sub
觉得本站还不错就打赏一下吧!
支付宝扫一扫打赏

微信扫一扫打赏
