MS Excel

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.

Zaslat odpověď >

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

AL(11.6.2013 12:52)#013876

@Palooo: mno, s hlupákom by som v Tvojom prípade rozhodne neoperoval, každopádne, eLCHa aktuálne diktuje :)
@eLCHa: njn, učím sa :)citovat

Miroslav43(11.6.2013 12:57)#013877

elCHa - Taky se mi to moc nechce studovat, ale řekl bych že jde

Sub test2()
Dim rData As Range
Set rData = Sheets("concatenate").Cells(1, 1).CurrentRegion
Set rData = rData.Resize(rData.Rows.Count, rData.Columns.Count - 1)
Set rData = Sheets("Output").Range(rData.Address)

Dim lCalc As Long
rData.FormulaR1C1 = "=concatenate!RC1&""_""&concatenate!RC[1]"
rData.Value = rData.Value

Set rData = Nothing
End Sub

jen dodám, že jsem si stáhl poslední přílohu a dosáhl stejného výsledku jako v listu Output (jestli to je na zadání, to nevím ;) )

vďaka, funguje samostatne stĺpec A...citovat

Palooo(11.6.2013 13:03)#013879

ok, skus to .))

Příloha: zip

13879_macro_atributy_2.zip (13kB, staženo 16x)

citovat

Miroslav43(11.6.2013 13:10)#013880

ok, skus to .))
Příloha: file13879_macro_atributy_2.zip

keď dám spustiť - tak mi ukáže eror 1004citovat

Palooo(11.6.2013 13:13)#013881

teraz niesom na svojom pocitaci a mam tu aj stary Office

takze napisem tu len makro:

Sub test()
aRow = Sheets("concatenate").Cells(1, 1).CurrentRegion.Rows.Count

d = 1
For y = 1 To Sheets("concatenate").Cells(1, 1).CurrentRegion.Columns.Count
For Z = y To Sheets("concatenate").Cells(1, 1).CurrentRegion.Columns.Count
If y <> Z Then
Sheets("Output").Range(Cells(1, d), Cells(aRow, d)).FormulaR1C1 = "=concatenate!RC" & y & "&""_""&concatenate!RC" & Z
d = d + 1
End If
Next
Next
End Sub

to si potom prilep k dokumentucitovat

Miroslav43(11.6.2013 13:32)#013882

nie som istý či správne rozumiem,neviem kam to mám prilepiť, ja som to porovnal s tou predchádzajúcou prílohou a a oba texty makier mi pripadajú totožné, to ktoré mi ukazovalo chybu s týmto posledným čo si mi napísal,

ja kludne počkám až budeš na svojom pc a budeš mať na to čas, ako som minule písal, tieto makrá majú pre mňa cenu zlata, ušetria mi kopa času a práce, tie množstvá tabuliek čo ma čakajú sú šialené....

citovat

Palooo(11.6.2013 13:37)#013883

aha ja som si myslel ze nejde otvorit dokument :))

takze po precitani:
http://support.microsoft.com/kb/210684/sk

uz viem kde je chyba skus pustit makro v tedy ked budes mat selecnuty "Output"

... divne ze to vypisuje error ked tam je presne dany sheetcitovat

Miroslav43(11.6.2013 13:43)#013885

ano, teraz to funguje bezchybne.....

vďaka.citovat

Palooo(11.6.2013 13:45)#013886

je to rychlejsie?citovat

Miroslav43(11.6.2013 13:51)#013887

idem to otestovať na tých 180 stĺpcov, samozrejme dám vedieť ako to prebiehalo...citovat

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

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje