VBA循环到最后一列，并将列中的值增加1

Sub IncreaseValuesInLastColumn()
    Dim lastColumn As Long
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取最后一列的列号
    lastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 获取最后一列的最后一行的行号
    lastRow = Cells(Rows.Count, lastColumn).End(xlUp).Row
    
    ' 循环遍历最后一列的每个单元格，并将其值增加1
    For i = 1 To lastRow
        Cells(i, lastColumn).Value = Cells(i, lastColumn).Value + 1
    Next i
End Sub