Veri'nin Başına ve sonuna karakter ekleme

[kotto]

Merhaba Arkadaşlar,

Ekteki dosyada p1002203 şeklinde görünen ve liste şeklinde uzayan verilerim mevcut. Ben bu veri lerin başına . ve sonuna a eklemek istiyorum.

Yani işlem uygulandıktan sonra C sütünündaki verilerimin tamamının .p1002203a olarak görüntülenmesini sağlamaya çalışıyorum. Ancak başaramadım.

Konu ile ilgili yardımlarınızı rica ediyorum.

Teşekkürler.

 

[Ömer]

Merhaba Arkadaşlar,
Yani işlem uygulandıktan sonra C sütünündaki verilerimin tamamının .p1002203a olarak görüntülenmesini sağlamaya çalışıyorum. Ancak başaramadım.

Merhaba,

Sub Ekle()
    
    Dim i As Long
    
    Application.ScreenUpdating = False
 
    For i = 2 To Cells(Rows.Count, "C").End(xlUp).Row
        If Left(Cells(i, "C"), 1) <> "." Then
            Cells(i, "C") = "." & Cells(i, "C")
        End If
        If Right(Cells(i, "C"), 1) <> "a" Then
            Cells(i, "C") = Cells(i, "C") & "a"
        End If
    Next i
    
    Application.ScreenUpdating = True
     
End Sub

İstediğiniz bu mu?

.

 

[kotto]

Eline koluna emeğine sağlık. Çok teşekkür ederim.

 

[oziser]

ben de teşekkür ederim çok yardımcı oldu