Question

我有2列。第一个有一个奇数和偶数的列表，第二个是让我们说一个数字列表从60到180.我已经有一个工作公式 - 我认为它被称为数组 - 将搜索并选择最接近100的数字来自第二栏。

现在我需要的是搜索从第二列中选择最接近100的数字，基于相应的列（行/行）作为偶数。例如，如果它选择104并且第1列中的数字是11，则它将重新选择下一个最接近的数字为100，直到它找到相应的数字为偶数。相应的数字不是固定值，而且根据其他计算也是可变的。

Answer 1

<强> UPDATE1：

注意到你想使用“INT（）”所以我已经在下面的公式中应用了它。

我不确定你是如何做你当前的公式，但这里有一个例子，如何让第2列中的数字最接近或等于100，并在第1列的左边有一个偶数。我为概念证明添加了一些漏洞（比如显示单元格地址）。

查看MOD 2的数字是否均匀，看是否为0。
将列转储到数组中以便快速循环
就像设置几个If then gates

Sub Test()

Dim col1 As Variant, col2 As Variant
Dim i As Long, max As Long
Dim maxCell As String

col1 = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
col2 = Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row).Value

For i = 1 To UBound(col2, 1)
    If Len(col1(i, 1)) <> 0 And Int(col1(i, 1)) Mod 2 = 0 Then
        If col2(i, 1) <= 100 Then
            If col2(i, 1) > max Then
                max = col2(i, 1)
                maxCell = Cells(i, 1).Address
            End If
        End If
    End If
Next

MsgBox "Max: " & max & " found at cell " & maxCell

End Sub

请注意，如果您有2次出现最接近（或等于）的数字，这将使您第一次出现。您只需将> max更改为>= max

即可对其进行调整

甚至价值选择Excel 2007

1 个答案: