Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA - kopiowanie bardzo dużej ilości wierszy z kilkunastu skoroszytów

BlooQ 06 Kwi 2017 15:33 831 2
  • #1 06 Kwi 2017 15:33
    BlooQ
    Poziom 7  

    Kiedyś ktoś z tego forum obdarował mnie poniższym kodem.
    Wszystko działa ale dość wolno. Muszę skopiować zakres danych ok. 2500 wierszy z 60 skoroszytów do jednego. Jak mogę podrasować to makro ? Wiem że mogę przyrównać zakresy ale jak to zrobić gdy ilość skoroszytów w lokalizacji jest zmienna ?

    Kod: vbnet
    Zaloguj się, aby zobaczyć kod

    0 2
  • #2 08 Kwi 2017 16:10
    1487300
    Użytkownik usunął konto  
  • #3 20 Kwi 2017 04:06
    lanzul
    Poziom 23  

    BlooQ napisał:
    ...działa ale dość wolno. Muszę skopiować zakres danych ok. 2500 wierszy z 60 skoroszytów do jednego. Jak mogę podrasować to makro ?

    W pętli:
    Kod: vbscript
    Zaloguj się, aby zobaczyć kod

    nie należy kopiować, tylko przenosić dane z komórek 'dawcy' do zmiennej tablicowej, a następnie z tej zmiennej oddawać wartości do obszaru zdawczego 'biorcy', np.:
    Kod: vbscript
    Zaloguj się, aby zobaczyć kod


    Jeśli zakresy zdawczy i odbiorczy nie będą "równe" obszarowo, to pozostaje wpisanie i odpisanie danych z tablicy jakąś pętlą, np: For ... Next po uprzednim sprawdzeniu rozmiaru tablicy funkcją Ubound(zmienna_tablicowa, sprawdzany_indeks)

    0