Excel 宏什么都不做？

Question

这是我的第一个 excel 宏(也是第一次使用 VBScript)，所以它很可能是错误的，但我正在尝试浏览我的工作簿中的每个工作表，并将工作表重命名为工作表“A2”单元格的值值(value)。顾名思义，当我运行该函数时，它什么也没做。但是它正在运行。这是我的代码:

Sub RenameSheets()

   Dim WS_Count As Integer
   Dim I As Integer

   ' Set WS_Count equal to the number of worksheets in the active
   ' workbook.
   WS_Count = ActiveWorkbook.Worksheets.Count

   ' Begin the loop.
   For I = 1 To WS_Count

      ActiveSheet.Name = ActiveSheet.Range("A2").Value

   Next I

End Sub

Answer 1

Sub RenameSheets()

Dim WS_Count As Integer
Dim I As Integer

WS_Count = ActiveWorkbook.Worksheets.Count

For I = 1 To WS_Count
Dim WS As Worksheet
Set WS = ActiveWorkbook.Worksheets(I)

'Worksheet names can not be null
If Len(WS.Cells(2, 1)) > 0 Then

    WS.Name = WS.Cells(2, 1)

End If

Next I

End Sub