MS Excel

Som zatiaľ len na mobile, tak zatiaľ len rada.
Musíte použiť najskôr cyklus
For Each ARE in Selection.EntireRow.Areas
A potom
For Each RIADOK in ARE.Rows
If Not RIADOK.Hidden Then
Alebo
...SpecialCells(xlCellTypeVisible)citovat

Ak ide len o počet riadkov, ktoré sú označené (v akomkoľvek stĺpci) a zároveň viditeľné, stačí
pocet = Intersect(Selection.Parent.Columns(1), Selection.EntireRow).Cells.Count
Ale o to asi nepôjde.

Čo myslíte pod pojmom "pole"? Skutočný VBA Array()? Alebo oblasť buniek? Čo znamená naplniť hodnotami? Akými? Konštantou? Každá je variabilná a počítaná? Zložitosť a týchlosť zápisu bude záležať na množstve vecí. Napr. či sú zapisované stĺpce pri sebe alebo ob-stĺpce, či sú medzi hodnotami vzorce a pod. Čo predstavuje "poleHodnot(idx,0)"?

Musíte to podstatne upresniť, ideálne pomocou anonymizovanej prílohy formou súboru Excelu, kde bude znázornené čo máte, a manuálne vytvorené aj to čo má po úprave vzniknúť + popis podmienok, výpočtov dopĺňaných hodnôt a pod. V prílohe ale musíte zachovať štruktúru a formáty. Ak je niekde vzorec, nechajte ho tam. Je to dôležité napr., ak chcete hromadne zapisovať do viacerých nesúvislých stĺpcov/riadkov, tak sa dá použiť namiesto niekoľkonásobných zápisov, jeden, kde sa aj prepíšu nemenené hodnoty tými istými. Kvôli rýchlosti. To ale nie je celkom možné, ak sú tam vzorce.citovat

No ja neviem. To aktualizujete iba tie hodnoty, ktoré sú označené Selectom ? A to pole je iba ako infolog a súvisí to nejako s témou "Vybrané řádky do pole"? Idete bunku po bunke, to je pomalé. Čo je slKonec? Dodajte anonymizované prílohy oboch súborov a pozriem na to, či to lepšie poberiem. Ale v stĺpcoch kde sú vzorce nechajte nejaké vzorce, tam kde sú hodnoty, nechajte hodnoty rovnakého typu. Stačí pár riadkov.citovat