Satır Sütun ve Değer Değişimi

[mrc83]

Merhabalar ekli dosyamda ;

103408 A02,A03,A04,A05,A06,A07,A08,A09,A10,A12,A18,A19

şeklinde A ve B sütunlarında değerler yazmaktadır. Bu değerleri ;

103408 A02
103408 A03
.
.
.
103408 A19

şeklinde iki sütun olacak biçimde yazmak istiyorum. " 103408 " yazan satırdan 12000 küsür tane var, kısa yoldan yapma şansım var mıdır ?

İyi çalışmalar, destekleriniz için teşekkür ederim.

 

[esahin1907]

Merhabalar ekli dosyamda ;

103408 A02,A03,A04,A05,A06,A07,A08,A09,A10,A12,A18,A19

şeklinde A ve B sütunlarında değerler yazmaktadır. Bu değerleri ;

103408 A02
103408 A03
.
.
.
103408 A19

şeklinde iki sütun olacak biçimde yazmak istiyorum. " 103408 " yazan satırdan 12000 küsür tane var, kısa yoldan yapma şansım var mıdır ?

İyi çalışmalar, destekleriniz için teşekkür ederim.

merhaba,
Metni sütunlara dönüştürüp yapabilirsiniz veya formülle.
ekte ben çalışma yaptım belki işinizi görür.

 

[MFA2000]

Merhaba,

Alternatif: Sol üst köşedeki hücre adresi gösterilen kutuya A1:A12000 yazıp enter' e basın, A sütunundaki 12000 hücre seçilmiştir; tanımlı olan A1 kutusuna seçimi bozmadan istediğiniz rakamı/değeri girin, ctrl+enter.

Hücrelere artarak giden değerler girmek isterseniz A1 kutusuna 1 yazıp, bu kez aynı hücre adresi kutusuna A2:A12000 → enter, A2 kutusuna =A1+1 → ctrl+enter.

İyi çalışmalar,

 

[veyselemre]

Sub Makro1()
    Sheets("Sheet1").Select
    al = [a1].CurrentRegion
    Sheets.Add
    Application.ScreenUpdating = False
    sat = 0: sut = 1
    For i = 1 To UBound(al)
        bol = Split(al(i, 2), ",")
        For Each elem In bol
            sat = sat + 1
            If sat > 65536 Then sut = sut + 2: sat = 1 'excel 2003 satır 65536 için
            Cells(sat, sut) = al(i, 1)
            Cells(sat, sut + 1) = elem
        Next elem
    Next i
    Application.ScreenUpdating = True
End Sub

 

[mrc83]

Verdiğiniz makro ile çözdüm çok teşekkürler,

İlgilenen diğer forum üyelerine de saygılar,

İyi günler.