Tek bir hücrede birleştirme

[endersen]

A1 - A70 arasında cep telefon numaraları yazılı.

Bu telefon numaralarının arasına | işareti koyup tek bir hücrede birleştirmek istiyorum.

Örneğin şu şekilde olacak;

05321112233|05321112244|05321112255

Ben çok dolaylı bir şekilde bunları birleştiriyorum ve çok yorucu oluyor. Daha kolay bir formül var mı diye sormak istedim.


Teşekkürler

 

[Ömer]

Merhaba,

Makro kullanmanız gerekir.

Sub Birlestir()
    
    Dim i As Long
    
    Range("B1").ClearContents
    
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" Then
            Range("B1") = Range("B1") & "|" & Cells(i, "A")
        End If
    Next i
    
    Range("B1") = WorksheetFunction.Substitute(Range("B1"), "|", "", 1)
    
End Sub

.