Merge 2 ark til 1 ark

Et forlag:
I linje 1 i ark 3 skriver du: +Ark1!A1..X1
I linje 2 i ark 3 skriver du: +Ark2!A1..X1
I Ark 3 kopierer du herfter linje 1 og 2 til de næste 1000 rækker.

Nej den går ikke for så vil formlen i linie 3 være ændret til +ark1!A3..X3, og det er jo der problemet er.

Her kopieres fra Ark1 og Ark2 til Ark2, ret selv

Public Sub KopiAfRaekkerFra2Ark()
Sheets("Ark3").Rows(1).Value = Sheets("Ark1").Rows(1).Value
Sheets("Ark3").Rows(2).Value = Sheets("Ark2").Rows(1).Value
For I = 2 To 500
A = Sheets("Ark3").Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("Ark3").Rows(A).Value = Sheets("Ark1").Rows(I).Value
A = Sheets("Ark3").Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("Ark3").Rows(A).Value = Sheets("Ark2").Rows(I).Value
Next
End Sub

Det kan faktisk godt lade sig gøre uden makro.
Dog skal der lige laves et par hjælpekolonner.

1) I celle A1 på ark 3 skriver du følgende formel:
  =IF(MOD(ROW();2)=0;"Sheet2";"Sheet1")
  =HVIS(REST(RÆKKE();2)=0;"Ark2";"Ark1")  på dansk
 
2) Marker cellen og kopier den så langt ned du ønsker.
  Vi har nu angivet ark-referencen.

3) I celle B1 og B2 på ark 3 skriver du "1"
  I celle B3 på ark 3 skriver du følgende formel:
  =IF(B2=B1;B2+1;B2)
  =HVIS(B2=B1;B2+1;B2)  på dansk
  Formlen kopieres så langt ned, som formlen i kolonne A.
  Nu har vi også linie-referencen på plads.

4) I celle C1 på ark 3 kan du nu skrive følgende formel:
  =INDIRECT(A1&"!"&"A"&B1)
  =INDIREKTE(A1&"!"&"A"&B1)  på dansk
  Formlen kopieres ned.
  Nu skulle værdierne være hentet fra de respektive ark.

Når først du har værdierne over kan du altid indsætte indholdet som værdier og slette hjælpekolonnerne igen.

den kan faktisk være kortere

Public Sub KopiAfRaekkerFra2Ark()
A = 1
For I = 1 To 500
Sheets("Ark3").Rows(A).Value = Sheets("Ark1").Rows(I).Value
A = A + 1
Sheets("Ark3").Rows(A).Value = Sheets("Ark2").Rows(I).Value
A = A + 1
Next
End Sub

Hej kabbak.
Det ser rigtig godt ud.
Da ikke alle 500 rækker er udfyldt fra starten, kunne jeg ønske mig, at den testede på hvormange rækker der var udfyldt i ark 4 (ark 1 og 2 dannes på grundlag af ark 4)

A, bliver her den sidste række i A kolonnen på Ark4, der er data i

A = Sheets("Ark4").Range("A65536").End(xlUp).Row

kabak.
Ja det virker fint.
Tak for hjælpen.

et svar.

Tid til lukning

hej