当选择带变量的工作表时，Excel 2007 VBA运行时错误

Question

我最近一直在回到VBA中，并且一直在测试变量中字符串添加工作表的概念。我已经能够成功添加工作表，并且我的代码的最后两行仅仅是选择变量的工作表名称，然后选择单元格A +存储在另一个变量中的行号码

In Sheet1中，列A，在A1开始，我有8个不同的名称列表，循环通过：

• 鲍勃
• 杰夫
• 最大
• 史蒂夫
• 罗西
• 皮帕
• 佩内洛普
• 罗布

我期待宏观结束对选定表“抢”与细胞A9，但是我得到一个运行时1004错误

我已经通过加强该代码，它正在选择正确的变量，但当它试图选择行A9，错误出现

我的代码如下：

Sub Add_worksheets() 

Dim sheetName As String 
Dim rownum As Integer 

rownum = 1 
Range("A" & rownum).Select 
sheetName = ActiveCell.Value 

Do Until Range("A" & rownum).Value = "" 
Range("A" & rownum).Select 
sheetName = CStr(ActiveCell.Value) 
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sheetName 
Sheets("sheet1").Select 
rownum = rownum + 1 
Loop 

Sheets(sheetName).Select 
Range("A" & rownum).Select 

End Sub 

任何帮助，将不胜感激

Answer 1

我也建议你添加if-else检查工作表名称存在。为什么你要select？我不支持的选择，因为你需要它，你可以试试这个：因为当你增加rownum它去10细胞，这意味着，SHEETNAME不再有名字，但空..

Dim sheetName As String 
Dim rownum As Integer 
Dim WS as WorkSheet 

rownum = 1 
sheetName = Range("A" & rownum).Value '-- remove select 


Do Until Range("A" & rownum).Value = "" 
Range("A" & rownum).Select 
sheetName = CStr(ActiveCell.Value) 
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sheetName 
Set WS = Sheets(sheetName) 
Sheets("sheet1").Select 
rownum = rownum + 1 
Loop 

rownum = rownum - 1 '-- here 
WS.Activate 
Range("A" & rownum).Value = rownum 

，或者您可能只需使用一个数组做表的创建，然后选择片后....而不是去来回第一页......地名..

Sub addSheets() 
Dim rowNum as Integer 
Dim Ws as WorkSheet 
Dim vArray as Variant 

'-- creates one dimensional array 
vArray = WorkSheetFunction.Transpoe(Sheets(1).Range("A1:A9")) 

For rownum = Lbound(vArray) to Ubound(vArray) 
    If IsEmpty(vArray(rowNum)) Then 
     On Error Resume Next 
     Set Ws = Sheets(vArray(rowNum)) 
     If Err.Number <> 0 Then '--no such sheet, so add it 
     Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = vArray(rowNum) 
     Set Ws = Sheets(vArray(rowNum)) 
     End If 
    End IF 
Next rownum 

Ws.Activate 
Ws.Range("A1").offset(rownum).value = rownum 
End Sub