求助关于如何用VBA生成新工作薄里工作表的问题

tanhong

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\book.xls"
通过另存为,在当前路径建新book工作簿

tanhong

要实现你提到的这些功能并不是很难.
思路:
1、新建一个工作簿
2、在新建工作簿中，建立新表。新建表个数：先得到你A1到AN个单元格个数，来决定新建表的个数，因为考虑到新建工作簿中一般都会有三个表，那就是N减3，也就是说要新建N-3个表
3、循环A1-AN区域取值并循环修改新建表的表名
4、在当前路径保存工作簿。就OK
你自己选按这个思路做做看