Soru Sütundan Satıra değiştirmek

[gizena]

Arkadaşlar merhaba elimde 6450 sütun veri var ama bunların tek bir sütunu tekrar eden veriler. Örnek olarak, A sütunundaki değerler alt alta 1 1 1 2 2 2 2 diye gidiyor ama B sütunundaki değerleri değişiyor.
Ben bu A sütunundaki değerleri tek değer yani 1 2 yapıp B sütunundaki değerleri de B C D sütunlarına nasıl dönüştürebilirim

 

[Muzaffer Ali]

Merhaba.

1.Verilerinizin olduğu sayfanın 1. satırında mutlaka başlık olmalıdır. Veriler 2. satırdan başlamalıdır.

2.Verilerinizin bulunduğu sayfa adını sağ tıklatın, "Kod Görüntüle" seçin
açılan sayfaya aşağıdaki kodları yapıştırın.

Sub Test()
    Dim Bak As Range
    Dim syfYeni As Worksheet
    Dim syfEski As Worksheet
    Dim Bul As Integer
    Dim Kolon As Integer
    Kolon = 2
    Set syfEski = ActiveSheet
    Set syfYeni = Worksheets.Add
    
    syfEski.Range("A:A").Copy syfYeni.Range("A1")
    syfYeni.Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
    For Each Bak In syfEski.Range("A2:A" & syfEski.Cells(Rows.Count, "A").End(xlUp).Row)
        Bul = syfYeni.Range("A:A").Find(what:=Bak.Text, LookAt:=xlWhole, MatchCase:=xlValues).Row
        Do While syfYeni.Cells(Bul, Kolon) <> ""
            Kolon = 1 + Kolon
        Loop
        syfYeni.Cells(Bul, Kolon) = Bak(1, 2).Text
    Next
    MsgBox "Tamamlandı."
End Sub

Bu kodlardan herhangi bir satır seçiliyken F5 tuşuna basın(Kodları çalıştırın).

İşlem tamam.

 

[gizena]

dalgalikur
Öncelikle ilgin için çok teşekkür ederim ama bir hata alıyorum "Run-time Error '91'; Object variable or With block variable not set" ardından yeni bir sayfada A sütunundaki değerlerin tekrarları silinip benzersiz değerler kalıyor ve, B sütunundaki değerler B C D E satırlarına geçmiyor. Ben Şöyle olmasını istiyorum;

 

[Muzaffer Ali]

Kodlarda herhangi bir sorun yok.
Muhtemelen başka bir sorun olmalı.

Örnek dosya ekte inceleyiniz.

Gezina.xlsm dosyasını indir - download

Gezina.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[gizena]

Biraz inceledim benim tablomdaki "6,04E-171" verisi yüzünden bu hatayı veriyor yani kod sorunsuz çalıştı teşekkür ederim

 

[Muzaffer Ali]

Rica ederim. İyi çalışmalar.