Avatar billede Chewie Novice
14. november 2008 - 16:46 Der er 13 kommentarer og
1 løsning

Sammenkør to kolonner

Hej XLer

Er der en der kan hjælpe mig med hvordan man sammenkøre to kolonner til en 3.

Eks

A1
A2
A3
-- og
B1
B2
B3
-- bliver til
A1 B1
A1 B2
A1 B3
A2 B1
A2 B2
A2 B3
A3 B1
A3 B2
A3 B3

en der kender en funktion eller makro der kan dette ?
Avatar billede lunddata Nybegynder
14. november 2008 - 17:07 #1
Er ikke helt med på hvad du mener, men hvis det du f.eks har stående i a1 skal flettes sammen med b1 kan du i c1 skrive =A1 & "    " &B1 og kopiere nedefter i kolonne C
Avatar billede Chewie Novice
14. november 2008 - 17:13 #2
Jeg har 50 ord i kolonne A og 50 ord i kolonne B - det skulle gerne give 2500 ord i kolonne C

fordi eks. A1 bliver kombineret med alle B´erne - det samme gør A2 osv. osv.
Avatar billede sleeper Nybegynder
14. november 2008 - 18:54 #3
det kan du med sammenkædning

=sammenkædning(a1;b2)
Avatar billede Chewie Novice
14. november 2008 - 19:16 #4
@sleeper - hvor fører jeg den ud i livet ?
Avatar billede sleeper Nybegynder
14. november 2008 - 19:40 #5
blot ved at kopiere min formel til c1
Avatar billede Chewie Novice
14. november 2008 - 19:47 #6
resultatet skulle efter min hoved regning gerne give 2500 rækker i kolonne C - men hvis jeg kopier din formel der-ned-af - bliver de blanke efter linje 50 (hvor ordne stopper)

?
Avatar billede sleeper Nybegynder
14. november 2008 - 19:56 #7
Det er fordi jeg misforstod hvad du havde brug for.

Jeg tænker lige over en løsning
Avatar billede sleeper Nybegynder
14. november 2008 - 19:57 #8
Nej, der skal laves en macro til dette.

Jeg springer over.
Avatar billede kabbak Professor
14. november 2008 - 21:18 #9
Sub Makro1()
    Dim Data1 As Variant, Data2 As Variant, Data3 As Variant
    Dim I As Long, J As Long, X As Long
    Data1 = Range("A1:A" & Range("A65536").End(xlUp).Row)
    Data2 = Range("B1:B" & Range("B65536").End(xlUp).Row)
    ReDim Data3(UBound(Data1) * UBound(Data2))
    X = 0
    For I = 1 To UBound(Data1)
        For J = 1 To UBound(Data2)
            Data3(X) = Data1(I, 1) & " " & Data2(J, 1)
            X = X + 1
        Next
    Next
    Range("C1:C" & UBound(Data3)) = WorksheetFunction.Transpose(Data3)
End Sub
Avatar billede Chewie Novice
14. november 2008 - 21:27 #10
@kabbak - du er guds gave til excel, mange tak

@alle - smid et svar
Avatar billede sleeper Nybegynder
14. november 2008 - 21:38 #11
Point går til Kabbak, det var ham der løste dit spørgsmål
Avatar billede Chewie Novice
14. november 2008 - 21:51 #12
@sleeper - størsteparten vil også falde på kabbak, men jeg giver gerne lidt til de der forsøgte at hjælpe også :)
Avatar billede kabbak Professor
14. november 2008 - 22:04 #13
et svar ;-))
Avatar billede sleeper Nybegynder
16. november 2008 - 13:28 #14
Et svar :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester