Question

我想找到excel范围内的最小值和最大值
仅在有色黄色单元格中，不会考虑没有颜色的单元格来查找最大值和最小值**
有色单元的范围是A：A **

我已经制作了这段代码，但它只返回D5和E5单元格中的空单元格。

有人知道我在这里缺少什么吗？

非常感谢

修改

我进行了调试，所有变量都为空，除了amarelosMin和i_max以外都有值2 - 我不明白为什么。

我在A：A中的范围值从1到20，黄色值是2,3,4和5.如果代码是正确的，它应该给我2和5，具有最小值和最大值。

Dim amarelosMin As Range
Dim vAmarelosmMin As Variant
ReDim vAmarelosmMin(Range("A1:A3").Rows.count - 1)
For Each amarelosMin In ActiveSheet.Range("A:A")
If amarelosMin.Interior.ColorIndex = 6 Then

    i_min = LBound(vAmarelosmMin)
    i_max = UBound(vAmarelosmMin)

    Max = vAmarelosmMin(i_min)
    Min = vAmarelosmMin(i_min)
    For i = i_min + 1 To i_max
        If vAmarelosmMin(i) > Max Then
            Max = vAmarelosmMin(i)
        ElseIf vAmarelosmMin(i) < Min Then
            Min = vAmarelosmMin(i)
        End If
    Next

End If
Next amarelosMin
ActiveSheet.Range("C5") = "Minimo dos valores a amarelo"
ActiveSheet.Range("D5") = Min
ActiveSheet.Range("E5") = Max

Answer 1

您的问题是您的变体数组是不必要的，并且在循环时实际上并不存储任何值。

您可以将代码简化为此范围循环，该循环也仅查看A列的已使用部分，而不是每个单元格

Sub Recut
Dim amarelosMin As Range
Dim dbMin As Double
Dim dbMax As Double

dbMin = Application.Max(Range("A:A"))
dbMax = Application.Min(Range("A:A"))

For Each amarelosMin In Range([a1], Cells(Rows.Count, "A").End(xlUp))
    If amarelosMin.Interior.ColorIndex = 6 Then
        If amarelosMin.Value < dbMin Then
            dbMin = amarelosMin.Value
        Else
            If amarelosMin.Value > dbMax Then dbMax = amarelosMin.Value
        End If
    End If
Next amarelosMin

ActiveSheet.Range("C5") = "Minimo dos valores a amarelo"
ActiveSheet.Range("D5") = dbMin
ActiveSheet.Range("E5") = dbMax
End Sub

Excel 2010 - Visual Basic用于查找彩色单元格中的最小值和最大值

1 个答案: