Makro ma znajdować pierwsza wolna komórke w kolumnie A:

Sub AAA()

Dim rngToSearch As Range

Dim
  • 5
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

@efem: Używasz funkcji FindNext, która ponawia ostatnie wyszukiwanie, zatem funkcja da odpowiedni rezultat, tylko jeśli ostatnie wyszukiwanie było "puste". W innym przypadku znajdzie kolejną komórkę, która pasuje do ostatniego wyszukiwania
  • Odpowiedz
@efem: To zadziała, ale przy dużych obszarach danych będzie działać bardzo wolno, poza tym wywali się jak nie będzie pustych. Spróbuj z tym:

'wyszukanie ostatniego niepustego

LastNonBlankRow =
  • Odpowiedz