Belli aralıklarla satırları kopyalama ve yapıştırma

[Serdarrk]

Merhaba,

Ekteki dosyada bulunan Sayfa1 'deki verileri, Sayfa2'deki gibi arada bir boşluk ile yan yana getirmem gerekiyor. Her 241 satırda bir , 241 satırı alıp en baştaki verinin yanına bir boşluk bırakarak devam ettirecek bir çözüm rica ediyorum.

http://www.dosya.tc/server12/lrg00h/orneki.xls.html

 

[Serdarrk]

Yapılamayacak bir şey mi?

 

[Serdarrk]

Sub splitRows()

   Dim i As Long, j As Long
   
   j = 1
   For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Step 241
      Range("A" & i).Resize(241, 3).Copy Sheets("Sayfa2").Cells(1, j)
      j = j + 4
   Next i
End Sub