发布网友 发布时间:2022-04-26 09:31
我来回答
共2个回答
热心网友 时间:2022-06-26 20:12
如图所示
热心网友 时间:2022-06-26 20:13
Sub 增加表()For i = 1 To [a65536].End(3).RowWorksheets.Add after:=Sheets(Sheets.Count)ActiveSheet.Name = Cells(i, 1)NextEnd Sub