Excel VBA初学者-获取运行时错误'9'下标超出范围

Question

我正在尝试编写一个简单的宏，以将日期格式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

Answer 1

尝试使用以下代码：

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列中显示月份。使用Case语句代替ElseIf是一个很好的建议。