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

时间:2013-03-18 19:26:43

标签: excel vba

好的,基本上我想确定某个字符串的行位置是否低于另一个字符串的行位置。如果是,我需要将值设置为零。我已经尝试了很多这方面的变化,但它似乎并不像我可以用这种方式比较范围。是否有另一种方法来获得细胞位置,以便我可以进行这种比较?

    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

1 个答案:

答案 0 :(得分:2)

您需要比较范围的Row属性

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