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
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)
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
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.