求助大神for循环i=1 to n,当n=1，怎么办？

晴朗的

renkangjizhen 发表于 2020-3-7 13:55
带了！而且经过试验了！

能受累再传一下吗？我下载了好几遍了 ，里面没有代码呢

renkangjizhen

Sub重命名()
Dim sht As Worksheet, m%, n%
For Each sht In ThisWorkbook.Sheets
If sht.Name <> "汇总" Then
If IsNumeric(sht.Name) Then
      m = sht.Name
      n = 0
   Else
        n = n + 1
        sht.Name = m & "&#8226;" & n
    End If
  End If
Next
End Sub
Sub 恢复工作表名称()
Dim arr, ar, sht As Worksheet，i%
arr = Array("汇总", "1", "a", "b", "c", "d", "2", "e")
i = -1
For Each sht In ThisWorkbook.Sheets
i = i + 1
sht.Name = arr(i)
Next
End Sub