跟着教程做了一个动态新建删除表格，为什么纯数字，新建不了表格？

希望123456

列表里如果出现纯数字，就无法新增表，这是为什么呢？

wengjl

加一个cstr()函数

3190496160

win10环境下，微软office2010下测试没问题

半百

2楼正解，CStr(arr(i, 1))，或者在单元格中输入数字时在前边加个'(单撇号）。

zhangmings04

你这应该先清空除了动态数据表以外的表，再按单元格值名称新建表，有了空格也会有错误的，试了一下这样改好像可以的


Sub 动态新建删除工作表_按钮1_Click()
Application.DisplayAlerts = False
Dim ws As Worksheet
Set d = CreateObject("scripting.dictionary")

For Each ws In Worksheets
    If ws.Name <> "动态新建删除工作表" Then
      
         ws.Delete
     
    End If
Next
For Each ws In Worksheets
    d(ws.Name) = ""
Next
arr = Range("a2", Cells(Rows.Count, 1).End(xlUp))
For i = 1 To UBound(arr)
    If Len(arr(i, 1)) = 0 Then
   
    Else
       Worksheets.Add(after:=Sheets(Sheets.Count)).Name = arr(i, 1)
    End If
Next
Sheets("动态新建删除工作表").Activate
d.RemoveAll
For i = 1 To UBound(arr)
    d(arr(i, 1)) = ""
Next

Application.DisplayAlerts = True
End Sub