我如何循环上述代码

Question

Sub CalculateWFR()
        'select 1st sheet
        Worksheets(1).Activate
        'select range A:W
        Worksheets(1).Cells.Select
        Columns("A:W").Select
        'copy paste sheet programare in results
        Sheets("Programare").Range("A:W").Copy Destination:=Sheets("Result").Range("A:W")
        'compare values from column U with column V and put +/-/= if value from U2 is higher,smaller or equals value from column V2
        Dim X As Integer Dim y As Integer
        X = Worksheets("Result").Range("U2").Value
        y = Worksheets("Result").Range("V2").Value
        If X > y Then
            Worksheets("Result").Range("X2") = "+"
        ElseIf X < y Then
            Worksheets("Result").Range("X2") = "-"
        ElseIf X = y Then
            Worksheets("Result").Range("X2") = "="
        End If
    End Sub

我正在尝试在X列上循环上述代码，该代码具有超过1000行。也没有空白的空间。我该怎么做？

Answer 1

@zerk建议尝试弄清楚这是如何工作的。根本不需要循环和选择。尝试将其放入X列中，然后Google如何通过VBA将该公式放置。

Sub test()
    Sheets("Programare").Range("A:W").Copy Destination:=Sheets("Result").Range("A:W")
    Sheets("Result").Range("X2:X1000").Formula = "=IF(U2>V2,""+"",IF(V2>U2,""-"",IF(U2=V2,""="","""")))"
End Sub