Excel VBA - Výběr dat

[Piskotak]

Dobrý den,

chci se zeptat, jestli se dají vybrat data od prázdného řádku k prázdnému řádku. Dokážu vybrat data takto Range("A1:C10").Select. Ale to se nedá opakovat, protože je různý počet hodnot. Potřeboval bych vybrat data od A2 do C11 a potom od A13 do C30, s tím aby to bylo proměnné, protože další tabulka má zase jiný počet hodnot.

[Reklama]

[Grimm]

Oblast mužeš vybrat ručně myší přes InputBox.
Využít CurrentRegion.
Nebo hledat poslední obsazený řádek přes ....End(xlDown).Row

[elninoslov]

Kód: Vybrat vše

Sub VyberPostupneOblasti()
Dim RNG As Range
    On Error Resume Next
    For Each RNG In Range("A:A").SpecialCells(xlConstants).Areas
        RNG.Resize(, 3).Select
        MsgBox "Vybraná oblasť " & RNG.Address
        '... niečo, čo sa má diať s oblasťou
        'Výber oblasti je možný aj pomocou indexu .Areas(1), .Areas(2, ...)
    Next RNG
End Sub