Excell her 10 satırda aynı formülü yapıştırma

[mstfscl]

Bir siteden program yardımıyla veri çektim ama bu veriler sütun yerine satır olarak indiği için satırdaki verileri sütuna çevirmek istedim.
Her sayfadan 10 veri çektiğim için satırları sütuna çevir kısayolu işime yaramıyor.
Bu yüzden =A2 , =A3 , =A4 yazarak satırları sütuna çevirdim.
Asıl sorum şu bu yazdıklarımı her 10 satırda bir nasıl yazdırabilirim.Elimle aşağı doğru çektiğimde formüller kayıyor 1.satırdan başlayacağına 2.satırdan başlıyor bazılarında.

 

[halit3]

Makrolu çözüm

Sub deneme()

Range(Cells(1, 4), Cells(Rows.Count, 13)).ClearContents
k = 0
sat = 1
For j = 1 To Cells(Rows.Count, 1).End(3).Row Step 10
For i = 4 To 13
k = k + 1
Cells(sat, i).Value = Cells(k, 1).Value
Next i
sat = sat + 10
Next j

End Sub

 

[çıtır]

E1 Hücresine kopyalayınız.N1 Hücresine kadar sağa ve yeterince aşağı kopyalayınız.

=EĞER(MOD(SATIR();10)=1;KAYDIR($A$1;TAMSAYI(SATIR($A1)/10,1)*10+SÜTUN(A$1)-1;);"")

 

[Asri]

Alternatif;

Formülü B1 e yapıştırıp sağa doğru 10 sütun çekin.
Formülün sonundaki $A1 i her sütunda bir arttırın

İlk satırda oluşan formülleri son satıra kadar kopyalayın.

İngilizce Formül;
=IF(OR(MOD(ROW($A1);10)=0;ROW()=1);$A1;"")

Türkçe Formül;
=EĞER(YADA(MOD(SATIR($A1);10)=0;SATIR()=1);$A1;"")