Excel VBA初学者-运行时错误“9”下标超出范围

我正在尝试编写一个简单的宏，将日期格式mm/dd/yy更改为月份全名。这就是我在VBA中使用了几天的经验。我错过了这里的错误

Sub ChangeDate()

    Dim Last As Integer
    Last = Cells(Rows.Count, 1).End(xlUp).Row
    Dim Counter As Integer

    For Counter = 2 To Last
        Dim Month As String
        Month = Left(Worksheets("Sheet1").Cells(Counter, 2), 1)

        If Month = "7" Then
            Worksheets("Sheet1").Cells(Counter, 2).Value = "July"

        ElseIf Month = "8" Then
            Worksheets("Sheet1").Cells(Counter, 2).Value = "August"

        ElseIf Month = "9" Then
            Worksheets("Sheet1").Cells(Counter, 2).Value = "September"
        End If

    Next Counter

End Sub

尝试使用以下代码：

Sub ChangeDate()
    Dim Counter As Long
    Dim Last As Integer

    Worksheets("Sheet1").Select
    Last = Cells(Rows.Count, 1).End(xlUp).Row

    For Counter = 2 To Last
        Dim Month As String
        Month = Left(Worksheets("Sheet1").Cells(Counter, 1), 1)

        If Month = "7" Then
        Worksheets("Sheet1").Cells(Counter, 2).Value = "July"

        ElseIf Month = "8" Then
        Worksheets("Sheet1").Cells(Counter, 2).Value = "August"

        ElseIf Month = "9" Then
        Worksheets("Sheet1").Cells(Counter, 2).Value = "September"
        End If
    Next Counter
End Sub

此代码读取第1列中的日期，并将月份放入第2列。

---

建议使用用例语句而不是ElseIf。

将计数器声明为Long.worksheetsheets1.cellscenter，2.Value=formatworksheetsheets1.cellscenter，2.Value2，mmmm。。。或者只需更改工作表sheets1.rangeB2:B&last.numberformat=mmmm为什么需要使用代码？您可以使用MMM将格式单元格更改为自定义，以供将来参考，如果。。。如果。。。如果这是一个很好的选择案例语句的地方，则结束。