| Jak sprawdzić adres ostatniej niepustej komórki w podanym zakresie? |
|
Problem: Potrzebuję funkcji, która zwraca adres ostatniej niepustej komórki w danym zakresie. Rozwiązanie: Możesz skorzystać np. z takiej funkcji własnej. ![]() Function OstatniaNiepusta(rngZakres As Excel.Range, _ Optional iPorzadek As Integer = 1) As String 'Argument opcjonalny iPorzadek moze przybierac wartosci 1 lub 2 'dla 1 - szukamy wg ostatniego wiersza 'dla 2 - szukamy wg ostatniej kolumny Application.Volatile On Error Resume Next With rngZakres OstatniaNiepusta = .Find(What:="*", _ After:=.Cells(1), _ LookIn:=xlFormulas, _ LookAt:=xlPart, _ SearchDirection:=xlPrevious, _ SearchOrder:=iPorzadek).Address End With On Error GoTo 0 End Function |
|
| Zmieniony ( Czwartek, 01. Lipiec 2010 17:44 ) |
.jpg)