在Excel VBA中同时递增两个变量

Sub IncrementVariables()
    Dim variable1 As Integer
    Dim variable2 As Integer
    Dim i As Integer
    
    variable1 = 1
    variable2 = 1
    
    For i = 1 To 10
        variable1 = variable1 + 1
        variable2 = variable2 + 1
        ' 可以在这里添加对变量的处理逻辑
        
        ' 输出变量的值
        Debug.Print "Variable1: " & variable1 & ", Variable2: " & variable2
    Next i
End Sub