Sub AutoInputValNewExcel() Dim sh1, sh2 As Worksheet Dim ws1, ws2 As Workbook ) ) ).Sheets() iRows = sh1.UsedRange.Rows.Count If i > ws2.Sheets.Count Then ws1.Sheets().Copy After:=ws2.Sheets(ws2.Sheets.Count) End If Set sh2 = ws2.Sheets(i) sh2.Name =
二. Excel 工作表(Sheet)的操作1. Excel 添加工作表(Sheet) 方法名 参数 参数值 说明 Add Before 工作表名称 在指定的工作表前面插入新的工作表 After 工作表名称 在指定的工作表后插入新的工作表 Count 数值 要添加的工作表数量 Type 类型 '在当前活跃工作表的前面插入一张新的工作表 Sub addSheet() Worksheets.Add End Sub '在工作表sheet2前面插入一张新的工作表 Sub addSheet() Works