VBA如何在新建的workbook中增加sheet

VBA代码可以通过记录宏来得到。

举例说明。

第一步：按开发工具-录制宏。如图：

第二步：新建工作簿-插入新的工作表。

第三步：按停止录制按钮。如图：

这样就得到了刚才新建工作簿，插入新表的代码。如下所示：

Sub Macro5()

'

' Macro5 Macro

'

'

  Workbooks.Add

  Sheets.Add After:=Sheets(Sheets.Count)

End Sub

单击淘宝C店1工作表标签，按住Shift键，再单击最后一个工作表标签，此时每个淘宝C店工作表均处于选中状态。再在淘宝C店1工作表中的A2单元格，输入下面公式，按Ctrl+Shift+Enter，再向右复制H2然后向下复制填充。公式填充完成后，单击总表标签即可。

=INDEX(总表!A:A,SMALL(IF(总表!$A$2:$A$1000=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,99),ROW($2:$1000),4^8),ROW(A1)))&""

---