MS Excel

Vy tam chcete zistiť aj koľko je zobrazených stĺpcov?
cntCol = .SpecialCells(xlCellTypeVisible).Columns.Count
Teda hrozí, že niektoré budú skryté? Teda môže nastať, že budete chcieť spojiť do poľa nielen nesúvislé riadky, ale môže to byť ešte aj v nesúvislých stĺpcoch?citovat

Skústecitovat

Nie. Výsledok obsahuje samostatné podoblasti, a niektoré vlastnosti toho celku sa nedajú prečítať tak, že budete mať uvedený spoločný počet. Musíte si prejsť každú podoblasť zvlášť, a prečítať jej samostatné vlastnosti. Vy keď sa hneď pokúsite zistiť danú vlastnosť, dostanete odpoveď z prvej podoblasti. Preto Vás mýli, že to má 1 riadok. Nemá.

Nemusíte načítať celé dátové pole. Mne to tak prišlo jednoduchšie. Môžete načítať pre každú podoblasť jej vlastné dáta, a korigovať posun vo výslednom poli. Podľa mňa je zvolený postup jednoduchší a rýchlejší. Načítať obrovské množstvo údajov naraz je rýchlejšie, ako načítať veľké množstvo malých podoblastí.

EDIT:
Reakcia na EDIT:
Práveže Vy si musíte zistiť pre každú podoblasť jej veľkosť
rngArea.Rows.Count
viď prvý odstavec.

Zabudol som na konci zmazať definíciu, ktorú som nepoužil
Set wsData = Nothing

Inak celé sa to dá ľahko prerobiť na funkciu, ktorá Vám vráti pole hodnôt. To ma napadlo, keď ste písal, že stĺpce budú variabilné. Vstupným parametrom by bola iba adresa hlavičky.citovat