Alfanumerik kodlarda karakter değişimi

[yakup24]

Merhabalar;

Elimde binlerce kayıttan oluşan bir data var. Görevim bu datanın düzenlenmesi.
Yapmak istediğim aşağıdaki listede "DATA" sütunununun ilk satırındaki kodun başındaki "K" harfini kendisinden soran gelen harf olan "L" harfi ile değiştirmek.
Yardımcı olabilirmisiniz.

DATA OLMASI GEREKEN
K3102 L3102
E5893 F5893
M6084 N6084
G1880 H1880

 

[Ömer]

Merhaba,

Veriler A sütununda düşünüldü.

Sub Degis()
    
    Dim i As Long, d As Byte
    
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        d = Asc(Left(Cells(i, "A"), 1))
        If d < 255 Then
            Cells(i, "A") = Chr(d + 1) & Right(Cells(i, "A"), _
                Len(Cells(i, "A")) - 1)
        End If
    Next i
        
End Sub

.

 

[yakup24]

Ömer Bey Merhaba;
Bu kodla ne yapacağımı bilmiyorum. Sanırım benim seviyemin üzerinde kaldı.
Formülle yapabilirmiyim ?

 

[Ömer]

Veri A2 de ise aşağıdaki formülü B2 hücresine kopyalayın.

=DAMGA(KOD(SOLDAN(A2;1))+1)&SAĞDAN(A2;UZUNLUK(A2)-1)

.

 

[Erdem Akdemir]

Alternatif,

=DEĞİŞTİR(A2;1;1;DAMGA(KOD(SOLDAN(A2;1))+1))

 

[Emir Hüseyin Çoban]

Veri A2 de ise aşağıdaki formülü B2 hücresine kopyalayın.

=DAMGA(KOD(SOLDAN(A2;1))+1)&SAĞDAN(A2;UZUNLUK(A2)-1)

.

.

Çok ince bir nokta yakalamışsınız. Tebrikler...

.

 

[Ömer]

.

Çok ince bir nokta yakalamışsınız. Tebrikler...

.

Teşekkür ederim Hüseyin Bey.