Vba 如何循环上述代码？ 子计算wfr（） '选择第一页 工作表（1）。激活 '选择范围A:W 工作表（1）.Cells.Select 列（“A:W”）。选择 '复制粘贴工作表程序在结果中 工作表（“程序”）范围（“A:W”）。复制目标：=工作表（“结果”）。范围（“A:W”） '比较U列和V列的值，如果U2的值更高、更小或等于V2列的值，则将+/-/=放入 尺寸X为整数尺寸y为整数 X=工作表（“结果”）.范围（“U2”）.值 y=工作表（“结果”）.范围（“V2”）.值 如果X>y那么 工作表（“结果”）。范围（“X2”）=“+” 如果X

我试图在X列上循环上面的代码，该列有1000多行。也没有空格。我怎样才能做到这一点？

正如@Zerk所建议的，试着弄清楚这是如何工作的。 根本不需要循环和选择。 试着这样想，就像你们要把公式放在X列，然后谷歌如何通过VBA把公式放进去

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

---

正如@Zerk所建议的，试着弄清楚这是如何工作的。 根本不需要循环和选择。 试着这样想，就像你们要把公式放在X列，然后谷歌如何通过VBA把公式放进去

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

---

格式提示：将代码缩进至少4个空格，使其显示为一个代码块。请先尝试自己动手。格式提示：将代码缩进至少4个空格，使其显示为代码块。顶部为google结果（）。请先尝试自己做。