Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何在Excel VBA中比较单元格位置?_Excel_Vba - Fatal编程技术网

如何在Excel VBA中比较单元格位置?

如何在Excel VBA中比较单元格位置?,excel,vba,Excel,Vba,好的,基本上我想确定某个字符串的行位置是否低于另一个字符串的行位置。如果是,我需要将值设置为零。我已经尝试了很多不同的方法,但似乎我不能用这种方法比较范围。有没有其他方法来获取单元格位置,以便进行比较 If i < 56 Then If Rng4(j) < Rng5(i + 1) Then Rng4(j).Activate X(i, j, 1) = ActiveCell.Offset(0, 1)

好的,基本上我想确定某个字符串的行位置是否低于另一个字符串的行位置。如果是,我需要将值设置为零。我已经尝试了很多不同的方法,但似乎我不能用这种方法比较范围。有没有其他方法来获取单元格位置,以便进行比较

    If i < 56 Then
        If Rng4(j) < Rng5(i + 1) Then
            Rng4(j).Activate
            X(i, j, 1) = ActiveCell.Offset(0, 1)
            X(i, j, 2) = ActiveCell.Offset(0, 2)
        Else
            X(i, j, 1) = 0
            X(i, j, 2) = 0
        End If
    End If
如果我<56那么
如果Rng4(j)
您需要比较范围的行属性

If i < 56 Then
    If Rng4(j).Row < Rng5(i + 1).Row Then
        Rng4(j).Activate
        X(i, j, 1) = ActiveCell.Offset(0, 1)
        X(i, j, 2) = ActiveCell.Offset(0, 2)
    Else
        X(i, j, 1) = 0
        X(i, j, 2) = 0
    End If
End If
如果我<56那么
如果Rng4(j).行
非常感谢您的快速回答:)您可能会发现我对这一切还相当陌生!