EXCEL 如何用宏创建表格副本: 工作簿共2个表格,sheet1,sheet2. 新建sheet2...
参考这个,我已经帮他解答好了,但需要适当修改一下,我现在没空
http://zhidao.baidu.com/question/351066200.html
------------------------------------
Sub AutoAddSheet()
Dim iMemberCount As Integer '定义变量,下同
Dim strSheetName As String
Dim strName As String
strSheetName = "": strName = "" '变量赋值初值为零
For iMemberCount = 1 To 300 Step 1 '循环控制300次,问题是要这么多表做什么,折腾啊。。呵呵
strName = ActiveWorkbook.Sheets("sheet1").Range("D" & Trim(Str(iMemberCount + 1))).Text
'取表1d列预设的字符作为后面的单元格的内容
strSheetName = ActiveWorkbook.Sheets("sheet1").Range("A" & Trim(Str(iMemberCount + 1))).Text
'取a列字符作为后面的表名
ActiveWorkbook.Sheets("sheet2").Copy after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
'在后面增加一个表,内容与表2同
ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Name = strSheetName
'修改新表名称
ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Range("B2") = strName
'修改新表单元格内容
Next...
4363