EXCEL VBA复制工作表并重命名.

Frank.Zhao

下面是我录制的宏, 我想将工作薄(里面有data和RR两个工作表)中的工作表RR复制多份,并且工作表的命名分别是工作表data的G5/H5/L5...BA5的内容.并且每个工作表的D4单元格也分别是G5/H5/L5...BA5
请问用VBA有没有简单的方法
Sub TEST()
'
' TEST 宏
'
' 快捷键: Ctrl+Shift+A
'
    Sheets("RR").Select
    Sheets("RR").Copy After:=Sheets(4)
    Sheets("data").Select
   Range("G5").Select
    Selection.Copy
    Sheets("RR (2)").Select
   Range("D4").Select
    ActiveSheet.Paste
    Sheets("RR (2)").Select
    Sheets("RR (2)").Name = [D4]
   Sheets("RR").Select
    Sheets("RR").Copy After:=Sheets(4)
    Sheets("data").Select
   Range("H5").Select
    Selection.Copy
    Sheets("RR (2)").Select
   Range("D4").Select
    ActiveSheet.Paste
    Sheets("RR (2)").Select
    Sheets("RR (2)").Name = [D4]

End Sub

grf1973

1. Sub 分表()
   
2.     With Sheet1
   
3.         mc = .[iv5].End(xlToLeft).Column
   
4.         For i = 7 To mc
   
5.             xcolor = .Cells(5, i)
   
6.             Sheet2.Copy after:=Worksheets(Worksheets.Count)
   
7.             ActiveSheet.Name = xcolor
   
8.             ActiveSheet.[d4] = xcolor
   
9.         Next
   
10.         .Activate
    
11.     End With
    
12. End Sub
    
13. 
    
14. Sub 删除()
    
15.     Application.DisplayAlerts = False
    
16.     For Each sh In Worksheets
    
17.         If sh.Name <> "data" And sh.Name <> "RR" Then sh.Delete
    
18.     Next
    
19.     Application.DisplayAlerts = True
    
20. End Sub

复制代码

grf1973

详见附件。循环是必需的。代码“分表”里mc是指第5行有数据的最大列。

韵雪中庸

grf1973 发表于 2013-6-12 17:20
详见附件。循环是必需的。代码“分表”里mc是指第5行有数据的最大列。

如果改成一列中最大行，要怎么改