Tek Sutunu İkili Olarak İki sütuna yazdırma

[ekolman2003]

A sütununda Aşağıdaki veriler bulunmakta

F
1
B
5
C
7
D
8


BUNLARI aşağıdaki ŞEKilDE A VE B SUTUNUNA SIRALATMAK İSTİYORUM.YARDIMINIZI BEKLİYORUM
F 1
B 5
C 7
D 8
D 8

 

[turist]

Verilerinizin A2 hücresinden itibaren dizili olduğunu varsayarsak;
B2 hücresine:

=OFFSET($A$2;ROW()+ROW()-4;0)

C2 hücresine:

=OFFSET($A$2;ROW()+ROW()-3;0)

OFFSET=KAYDIR
ROW=SATIR

yazıp aşağıya kadar kopyalayın.
Daha sonra B ve C sütunlarını kopyalayıp A sütununa DEĞER olarak yapıştırın.(bu işlemden sonra C sütununu silin.)
A ve B sütunundaki Sıfır yazan hücreleri de silin.

 

[ekolman2003]

slm

üstadım çok teşekkür ederim ama hata veriyor nedense.bunu makro olarak nasıl ifade edebilriz?

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

Sub Emre()
    Dim i%, a%
    For i = 1 To Range("A65536").End(3).Row
        If IsNumeric(Cells(i, 1)) Then
            a = a + 1
           Cells(i, 1).Cut Cells(a, 2)
        End If
    Next i
    Columns(1).SpecialCells(4).Delete Shift:=xlUp
    i = Empty: a = Empty
End Sub