< návrat zpět

MS Excel


Téma: Funkcia =CONCATENATE(A1;"_";B1) rss

Zaslal/a 7.6.2013 11:50

Dobrý deň,
Chcem poprosiť nejakého dobráka o pomoc.
Popis:
V liste „concatenate“ pomocou funkcie =CONCATENATE(A1;"_";B1) potrebujem vytvoriť všetky možné kombinácie dvojíc stĺpcov ktoré sú v tomto liste, a ktore sa kopírujú do do listu „vysledok“ tak ako idú.
Začína sa stĺpcom „D“ ktorý sa nakopíruje do stĺpca „A“
- Do stĺpca „B“ sa nakopíruje stĺpec „E“
- V bunke c1 už mám vloženú funkciu =CONCATENATE(A1;"_";B1)
- V stĺpci „C“ mi funkcia zlúči hodnoty stĺpcov (A1;"_";B1)
- Stĺpec „C“ sa vykopíruje do listu vysledok – stĺpca „A“
- Pokračuje ďalej – stĺpec „F“ sa nakopíruje do stĺpca „B“
- Zlúčené hodnoty z „C“ sa kopírujú do listu vysledek – stlpca „B“
- A takto zaradom sa urobia všetky možné kombinácie stĺpca „D“
-
- potom sa nakopíruje do stĺpca „A“ stĺpec „E“ a pokračuje obdobne všetkými možnými kombináciami pre tento stĺpec.
Nahral som na macro.
Keby toho bolo málo tak by mi stačilo nahraté macro, ale zošitov je viac ako 30, a počet stĺpcov a riadkov je rôzny,
Stĺpcov od niekoľkých desiatok až po stovky a riadkov od niekoľko desiatok tisíc po stotisíc.
Vo VBA sa nevyznám, odrástol som na ruštine a vtedy to také ešte nebolo. Viem si nahrať macro a potom ho opakovane používať – bohužial, nahraté macro nebere v potaz meniace sa počty riadkov a vytvorí zlúčené hodnoty
len toľkých riadkoch – pri akých bolo nahrané.
Konfigurácia : OS – Win 7 x64, Office 2013 cz x64.

Za akúkolvek pomoc vopred ďakujem.

Příloha: rar13754_macro_atributy_2.rar (16kB, staženo 29x)
Zaslat odpověď >

Strana:  « předchozí  1 2 3 4 5
#013917
avatar
9 stĺpec ? 5

vďaka, idem testovať, potom dám vedieť...

charašo...stlpcov 181 = 16290, riadkov - 8656, CPU -14 - 15 %, RAM - 4,4 GB,,,čas - 10 minút.

pc bez stresu - dá sa robiť ďalšie..

baľšoje spasíba... 5citovat
#013940
avatar
- ta posledna uprava nieje uplne krasna

malo by to trvat 5minut .))))

update: tak na nic co by to zrychlilo som neprisiel len krajsie zapisanie:
rData.Cells.Select
Selection.Copy
Selection.PasteSpecial xlPasteValues

mozes zapisat takto:
rData = rData.Value
citovat
#013999
avatar
vďaka, a môže sa to tu uzavrieť ako vyriešené.citovat

Strana:  « předchozí  1 2 3 4 5

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09