Este código VBA (Macro) ajudará você a destacar automaticamente o & Valores mínimos na planilha ativa.
No lugar do uso de Intervalos de Dados Codificados, o código faz um loop através de quaisquer colunas usadas e as ajusta para ter diferentes comprimentos.
Além disso, eu suponho cabeçalhos na Folha ativa.
Private Sub Worksheet_Activate()
Dim Myrng As Range
Dim rng As Range
Dim lCol As Long
Dim lLastRow As Long
ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNone
With ActiveSheet
For lCol = 2 To .UsedRange.Columns.Count
lLastRow = .Cells(.Rows.Count, lCol).End(xlUp).Row
Set rng = .Range(.Cells(2, lCol), .Cells(lLastRow, lCol))
For Each Myrng In rng
If Myrng.value = Application.WorksheetFunction.Max(rng) Then
Myrng.Interior.ColorIndex = 6
End If
If Myrng.value = Application.WorksheetFunction.Min(rng) Then
Myrng.Interior.ColorIndex = 10
End If
Next
Next lCol
End With
End Sub
Como funciona:
- Copiar & Cole este código VBA como módulo padrão com a folha.
- O código destacará Max & Valores mínimos em cada coluna para o intervalo usado na planilha assim que você ativar (no clique do mouse na guia Planilha).
- Ajuste a cor de fundo conforme necessário.