请问一下以下代码那里错误了？

winony

Sub 复制工作表()
Dim i As Integer
For i = 1 To 10
Sheets("sheet1").Copy after:=Sheets(Sheets.Count)
  Select Case i
  Case i = 1
  Sheets(Sheets.Count).Name = "中国电子1"
  Case i = 2
  Sheets(Sheets.Count).Name = "中国电子2"
  Case i = 3
  Sheets(Sheets.Count).Name = "中国电子3"
  Case i = 4
  Sheets(Sheets.Count).Name = "中国电子4"
  Case i = 5
  Sheets(Sheets.Count).Name = "中国电子5"
  Case i = 6
  Sheets(Sheets.Count).Name = "中国电子6"
  Case i = 7
  Sheets(Sheets.Count).Name = "中国电子7"
  Case i = 8
  Sheets(Sheets.Count).Name = "中国电子8"
  Case i = 9
  Sheets(Sheets.Count).Name = "中国电子9"
  Case i = 10
  Sheets(Sheets.Count).Name = "中国电子10"
  End Select
Next i
End Sub

我想要实现的效果是复制工作表sheet1并按照自己的想法去定义工作表名称，但是为何代码不可以实现工作表名称的更改呢？求高手帮忙？

AVEL

1. Option Explicit
   
2. 
   
3. Sub 复制工作表()
   
4.     Dim i As Integer
   
5.     For i = 1 To 10
   
6.         Sheets("sheet1").Copy after:=Sheets(Sheets.Count)
   
7.         Select Case i
   
8.         Case 1
   
9.             Sheets(Sheets.Count).Name = "中国电子1"
   
10.         Case 2
    
11.             Sheets(Sheets.Count).Name = "中国电子2"
    
12.         Case 3
    
13.             Sheets(Sheets.Count).Name = "中国电子3"
    
14.         Case 4
    
15.             Sheets(Sheets.Count).Name = "中国电子4"
    
16.         Case 5
    
17.             Sheets(Sheets.Count).Name = "中国电子5"
    
18.         Case 6
    
19.             Sheets(Sheets.Count).Name = "中国电子6"
    
20.         Case 7
    
21.             Sheets(Sheets.Count).Name = "中国电子7"
    
22.         Case 8
    
23.             Sheets(Sheets.Count).Name = "中国电子8"
    
24.         Case 9
    
25.             Sheets(Sheets.Count).Name = "中国电子9"
    
26.         Case 10
    
27.             Sheets(Sheets.Count).Name = "中国电子10"
    
28.         End Select
    
29.     Next i
    
30. End Sub

复制代码

这样可以

xiaojun0301

   case i =1 改成 case 1 ......下面的一样

AVEL

其实简化成这样就可以完成你的要求了

1. Option Explicit
   
2. Sub 复制工作表()
   
3.     Dim i As Integer
   
4.     For i = 1 To 10
   
5.         Sheets("sheet1").Copy after:=Sheets(Sheets.Count)
   
6.         ActiveSheet.Name = "中国电子" & i
   
7.     Next i
   
8. End Sub

复制代码

xiaojun0301

AVEL 发表于 2012-8-19 05:22
其实简化成这样就可以完成你的要求了

佩服的五体投地，VBA总是学不好

AVEL

xiaojun0301 发表于 2012-8-19 05:33
佩服的五体投地，VBA总是学不好

多写 就好了。
实践最重要

winony

AVEL 发表于 2012-8-19 05:22
其实简化成这样就可以完成你的要求了

中国电子只是我虚拟的名称，实际操作的名称没有1234的规律的，呵呵。非常感谢您的支持！！！

winony

AVEL 发表于 2012-8-19 05:21
这样可以

非常感谢，解决问题啦。但是找不到鲜花在那里点。。。下次 补给你 可以把