2016-04-12 9 views
-3

Çok büyük verilerim var.Birçok satırı aynı anda nasıl kopyalamak istersiniz?

Birçok satırı aynı anda nasıl kopyalamak istersiniz? Her dört sıra için sistematik yaklaşımda, istediğim satırların tekrarlandığı

. lütfen, şekle bakın.

Yardımlarınız için şimdiden teşekkür ederiz. 'Binlerce satır' ile MANY ROWS

+0

[Neden Kanununun görüntüleri ve Numune Data] (http://meta.stackoverflow.com/questions/285551/285557 # 285557) ve [Kod ve/veya hataların ekran görüntülerini cesaretlendir] (http://meta.stackoverflow.com/questions/303812). – Jeeped

cevap

0

F2 koy ve tekrar ve aşağı kopyalayın:

=INDEX(A:A,(ROW(1:1)-1)*4+2) 

enter image description here

+0

çok teşekkürler, sihir – amer

+0

@ amer gibi çalışmayı tercih ederseniz, seçtiğiniz cevabın gri/yeşil onay işaretini tıklayarak doğru olarak işaretlemek için birini seçin. Sadece yapabileceğin bir şey. Soruyu kapatacak. –

0

gibi bir şey deneyin,

with worksheets("sheet1") 
    .range("a2:b2, a6:b6, a10:b10, a14:b14, a18:b18").copy _ 
     destination:=.range("f2") 
end with 

Alternatif olarak, bir döngü ile birlik oluşturabilir.

With Worksheets("sheet1") 
    Set rng = .Range("a2:b2") 
    For rw = 6 To .Cells(Rows.Count, 1).End(xlUp).Row Step 4 
     Set rng = Union(rng, .Cells(rw, 1).Resize(1, 2)) 
    Next rw 
    rng.Copy Destination:=.Range("f2") 
End With 
+0

çok teşekkürler cevabınız – amer