isimlerin önüne kesme işareti nasıl koyarım?

[bayer1]

arkadaşlar resimdeki gibi c sütunundaki isimlerin önüne kesme işaretini ( ' )nasıl koyarım acaba?(herhangi bir karakterde olabilir)

 

[Ömer]

Merhaba,

Formülle başka bir sütunda birleştirme yapıp sonra bu değerleri C sütununa değer oalrak yapıştırabilirsiniz.

="'"&C1

Gibi.

Yada direk olarak makro kullanabilirsiniz.

Sub Ekle()
    
    Dim i As Long, ek As String
    
    ek = "[COLOR="Red"]'[/COLOR]"
    
    For i = 1 To Cells(Rows.Count, "C").End(xlUp).Row
        If Left(Cells(i, "C"), Len(ek)) <> ek Then
            Cells(i, "C") = ek & Cells(i, "C")
        End If
    Next i
        
End Sub

.