Aynı içerikli kolonları birleştirme ile tek veri kolonu haline getirme

[nurum99]

A A B
SINIF1 ALİ 10
SINIF2 ALİ 10

gibi bir tabloda B sutundaki aynı degerleri birleştirme yapmak istiyorum 1. ve 2ncı satırlar sabit kalıcak

yani yinelenen degerleri birleştirip tek satır yapmak istiyorum;

şu şekilde

A A B
SINIF1 ALİ 10
SINIF2 ALİ

burdaki B kolonudaki satırlar birleştirilmiş olarak görünücek

yardımcı olabilir misiniz

cok araştırdım bulamadım

şimdiden teşekkür ederim

 

[nurum99]

a

 

[YUSUF44]

Foruma hoş geldiniz.

Örnek dosya paylaşmanızı ve nasıl bir sonuç istediğinizi dosyada göstermenizi tavsiye ederim.

 

[nurum99]

cok teşekürler yusuf bey

bu şekilde istiyorum

 

[YUSUF44]

Excel dosyası olarak paylaşırsanız aynı dosyayı oluşturmaya uğraşmak yerine çözüm bulmak için uğraşırız.

Bir de verileriniz hep bu şekilde mi yani B sütununda birbirini takip eden aynı verilerin birleştirilmesi mi gerekiyor? Örneğin B6 hücresi ALİ olsaydı ne olacaktı? Son olarak son halini aynı yerde mi istiyorsunuz yoksa görüntüdeki gibi başka bir yerde mi oluşturulacak?

 

[nurum99]

Merhabalar dosya olarak nasıl eklicem bilemedim.

Mantıgını ögrensem yeter formül vs varsa

ilgili dosyayı aşagıdaki linkte paylaştım

teşekürler

iyi çalışmalar dilerim

ÖRNEK.xlsx

Görüntüle ve Yandex.Disk'ten indir

disk.yandex.com.tr

 

[YUSUF44]

Öncelikle şunu belirteyim sizin yapacağınız işlem hücre birleştirme olduğu için formülle yapılamaz. bu işlem için makro gereklidir. Makro bilginiz ne kadar bilmiyorum. Aşağıdaki kodlar mevcut verilerinizi bulundukları yerde belirttiğiniz şekilde birleştirme yapıyor:

Sub birlestir()
son = Cells(Rows.Count, "B").End(3).Row
For i = 1 To son
    For j = i + 1 To son + 1
        If Cells(j, "B") <> Cells(i, "B") And Cells(j, "C") <> Cells(i, "C") Then
            Application.DisplayAlerts = False
                Range(Cells(i, "C"), Cells(j - 1, "C")).Merge
                i = j - 1
                j = son
            Application.DisplayAlerts = True
        End If
    Next
Next
Range("C1:C" & son).VerticalAlignment = xlCenter
Range("C1:C" & son).HorizontalAlignment = xlCenter
End Sub

 

[nurum99]

cok teşekürler cok sagolun