Simpel flytte macro - nr 2 - udvidet

Sub Makro1()
   
    Sheets("Ark1").Select
   
    For n = 1 To Int(Range("A" & Rows.Count). _
                        End(xlUp).Row + 1) / 2
        For i = 1 To 4
            Sheets("Ark2").Cells(n + 1, i).Value = _
            Sheets("Ark1").Cells(4 * n + i - 4, 1).Value
        Next
    Next
     
End Sub

Denne er beregnet for 4 kolonner.

Skal du ha flere eller færre,
er det bare og endre alle 4-tall
til ønsket antall kolonner.

Tak

Lægger du et svar

et svar