Satır atlayarak sıralama

[alperey333]

ACSEL
31,00 31,00 31,10 -0.96 30,80 31,40 31.07 16.501

ADANA
4,19 4,19 4,20 -0.24 4,04 4,21 4.19 90.729


ACSEL 31,00 31,00 31,10 -0.96 30,80 31,40 31.07 16.501
ADANA 4,19 4,19 4,20 -0.24 4,04 4,21 4.19 90.729

Veri sayısı 500 ün üzerinde. Bir formül yazıp aşağı doğru çekerek yapamadım. Örnek dosya ektedir. Teşekkürler.

 

[apocalyt]

bir modüle kopyalayıp deneyiniz..

Sub daylight()
Columns(1).Insert
For x = 2 To [b10000].End(3).Row Step 2
Cells(x, "b").Copy
Cells(x + 1, "a").PasteSpecial (xlPasteValuesAndNumberFormats)
Rows(x).Delete
x = x - 1
Next x
End Sub

 

[alperey333]

Emeğinize ve ilginize teşekkürler. Yine de merak ettiğimden soruyorum formüllerle çözüm var mı?

 

[apocalyt]

şöle bir çözüm olabilir..örneğin boş yeni bir sayfa açarsınız..a1 hücresinde

=DOLAYLI("Örnek!a"&SATIR(A1)*2) formülünü girip aşağıya çekin......b1 hücresine

=DOLAYLI("Örnek!a"&SATIR(A1)*2+1) formülünü girip aşağıya çekin..bu şeilde c ,d ve diğer

sütunlarada aynı formülü uygulayıp isediğiniz verileri elde edersiniz..