Wyszukaj adresy komórek z największym utargiem

Otrzymałeś z działu kontrolingu wykaz obrotów osiągniętych w poszczególnych oddziałach firmy. Aby wykonać analizę tych danych, potrzebujesz wyznaczyć adresy komórek, w których znajduje się największy utarg. Porównywanie kolumn jedna po drugiej, w wykazie składającym się z kilkudziesięciu wierszy, to strata co najmniej 30 minut. Jeśli chcesz oszczędzić czas i sprawić, aby to Excel wykonał za Ciebie tą żmudną pracę, stwórz swoją własną funkcję VBA.

Rys. 1. Przykładowy wykaz obrotów

Aby odnaleźć adresy komórek, w których znajduje się największy utarg, wykonaj następujące czynności:

1. Otwórz Edytor VBA, wciskając kombinację klawiszy lewy Alt + F11.

2. Wstaw nowy moduł poleceniem Insert/Module, a następnie wprowadź poniższy kod:

Function SzukajMax(Zakres As Range) As String
Dim maks As Double
Dim cell As Range
maks = Application.WorksheetFunction.Max(Zakres)
SzukajMax = ""
For Each cell In Zakres
If cell.Value = maks Then
SzukajMax = SzukajMax & ";" & cell.Address(0, 0)
End If
Next
SzukajMax = Right$(SzukajMax, Len(SzukajMax) - 1)
End Function

3. Zapisz i zamknij Edytor VBA.

4. Wstaw nowy wiersz ponad zestawieniem, zaznaczając komórką A1 i wybierając polecenie Wstaw/Wiersze.

5. Do komórki A1 wpisz tekst: Maksymalny:

6. Zaznacz komórkę B1 i z menu Wstaw wybierz polecenie Funkcja (możesz także kliknąć ikonę obok paska formuły).

7. Wybierz z listy kategorię Użytkownika, zaznacz funkcję SzukajMax i zatwierdź OK. Otworzy się okno dialogowe Argumenty funkcji.

8. Zaznacz w arkuszu zakres komórek, który ma zostać przeszukany i zatwierdź OK.

W przykładzie największy utarg wyniósł 3 195 zł i wartość ta widniała w trzech komórkach.