Excel Hücrelerinde Her X Karakterden Sonra Karakter Ekleme – Kolay Yöntemler

Excel'de ürün kodları, seri numaraları, telefon numaraları, kimlik numaraları veya uzun metin dizeleri üzerinde çalışırken, belirli bir karakter sayısından sonra her seferinde aynı ayırıcı karakteri eklemeniz gerekebilir. Örneğin, ABCDEF123456’yı ABC-DEF-123-456 biçimine dönüştürmek ya da uzun sayıları daha okunabilir hale getirmek için her 4 haneye bir boşluk eklemek isteyebilirsiniz.
Excel bu işlem için doğrudan yerleşik bir düğme sunmaz, ancak birkaç kolay yöntemle bunu zahmetsizce gerçekleştirebilirsiniz. Bu makalede, Excel hücrelerinde her X karakterden sonra belirli bir karakter eklemek için kullanabileceğiniz pratik yolları sizinle paylaşacağız.

Excel'de Her X Karakterden Sonra Karakter Ekleme

• Yöntem 1: Formül ile (Excel 365, Excel 2021 ve sonraki sürümler)
• Yöntem 2: VBA kodu ile
• Yöntem 3: Kullanıcı Tanımlı İşlev ile
• Yöntem 4: Kutools for Excel ile

Önemli Notlar ve Sınırlamalar

Sonuç

Excel'de Her X Karakterden Sonra Karakter Ekleme

Aşağıdaki yöntemler, Excel’de her belirtilen karakter sayısından sonra belirli karakterleri hızlıca eklemenizi sağlayarak uzun metinleri, kimlikleri, ürün kodlarını veya sayı dizelerini sabit aralıklarla kolayca ayırmanıza ve içeriği daha standart, okunaklı hale getirmenize olanak tanır.

Yöntem 1: Formül ile Her X Karakterden Sonra Karakter Ekleme

Excel 365 veya Excel 2021 kullanıyorsanız, metni sabit uzunluktaki gruplara bölmek ve ardından belirtilen bir karakterle birleştirmek için dinamik dizi formülünden yararlanabilirsiniz.

Boş bir hücreye aşağıdaki formülü girin:

=TEXTJOIN("-",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/4,0),,1,4),4))

Ardından Enter tuşuna basın. Formülü diğer hücrelere doldurmak için doldurma tutamacını aşağı doğru sürükleyin.

Formülü özelleştirme

Karakteri ve aralığı ihtiyacınıza göre özelleştirebilirsiniz.

=TEXTJOIN(" ",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/4,0),,1,4),4))

=TEXTJOIN("/",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/2,0),,1,2),2))

=TEXTJOIN($B$1,TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/$C$1,0),,1,$C$1),$C$1))

Avantajlar ve dezavantajlar

Yöntem 2: VBA kodu ile Her X Karakterden Sonra Karakter Ekleme

Birden fazla hücrede, her sabit karakter sayısından sonra belirli bir karakter ekleyip sonucu doğrudan almak istiyorsanız VBA harika bir seçenektir.

1. Excel'de ALT + F11 tuşlarına basılı tutun; Microsoft Visual Basic for Applications penceresi açılacaktır.
2. Ekle > Modül’e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
    xValue = Rng.Value
    outValue = ""
    For index = 1 To VBA.Len(xValue)
        If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
            outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
        Else
            outValue = outValue + VBA.Mid(xValue, index, 1)
        End If
    Next
    OutRng.Cells(xNum, 1).Value = outValue
    xNum = xNum + 1
Next
End Sub

3. Bu kodu çalıştırmak için F5 tuşuna basın. Metin dizelerine belirli bir karakter eklemek istediğiniz Veri Aralığı’nı seçmenizi isteyen bir iletişim kutusu görünecektir. Aşağıdaki ekran görüntüsüne göz atın:
   
4. Ardından Tamamdüğmesine tıklayın; aşağıdaki iletişim kutusunda, belirli karakteri her kaç karakterden sonra eklemek istediğinizi girin, ekran görüntüsüne bakın:
   
5. Devam etmek için Tamamdüğmesine tıklayın; ardından gelen iletişim kutusunda, metne eklemek istediğiniz belirli karakteri girin, ekran görüntüsüne bakın:
   
6. Tıklayın Tamamdüğmesine ve sonuçların çıktısını almak istediğiniz hücreyi iletişim kutusundan seçin, ekran görüntüsüne bakın:
   
7. Son olarak, Tamam düğmesine tıklayın. Excel, belirtilen karakteri her X karakterden sonra ekleyecek ve sonuçları seçilen Liste Yerleştirme Alanı’na yerleştirecektir.
   

Avantajlar ve dezavantajlar

Yöntem 3: Kullanıcı Tanımlı İşlev ile Her X Karakterden Sonra Karakter Ekleme

Kullanıcı Tanımlı İşlev (UDF), VBA ile kendi Excel işlevinizi oluşturmanızı sağlar. İşlevi ekledikten sonra, onu normal bir çalışma sayfası formülü gibi kullanabilirsiniz.

1. VBA düzenleyicisini açmak için Alt + F11 tuşlarına basın.
2. Ekle > Modül seçeneğine tıklayın. Aşağıdaki kodu modüle kopyalayıp yapıştırın.

Function InsertEveryX(TextStr As String, InsertChar As String, IntervalNum As Long) As String
    Dim i As Long
    Dim ResultStr As String
    If IntervalNum <= 0 Then
        InsertEveryX = TextStr
        Exit Function
    End If
    For i = 1 To Len(TextStr) Step IntervalNum
        ResultStr = ResultStr & Mid(TextStr, i, IntervalNum) & InsertChar
    Next i
    If Len(ResultStr) > 0 Then
        ResultStr = Left(ResultStr, Len(ResultStr) - Len(InsertChar))
    End If
    InsertEveryX = ResultStr
End Function

3. VBA düzenleyicisini kapatın ve çalışma sayfasına dönün. Aşağıdaki formülü kullanın:

=InsertEveryX(A2,"-",4)

Ardından formülü diğer hücrelere uygulamak için doldurma tutamacını aşağıya doğru sürükleyin.

Avantajlar ve dezavantajlar

Yöntem 4: Kutools for Excel ile Her X Karakterden Sonra Karakter Ekleme

Karmaşık formüller veya VBA kodu kullanmak istemiyorsanız, Kutools for Excel hücre metnine karakter eklemek için çok daha kolay bir çözüm sunar. Metin Araçları ile belirli karakterleri sabit konumlara hızla ekleyebilir ya da metin işleme işlemlerini birden fazla hücreye aynı anda uygulayabilirsiniz.

1. Karakter eklemek istediğiniz hücreleri seçin. Ardından Kutools > Metin > Metin Ekle menüsünü tıklayın.
   
2. Metin Ekleiletişim kutusunda:
   1. Eklenecek karakteri girin; örneğin -, / veya boşluk karakterini Metin kutusuna girin.
   2. Altında Ekleme Konumu bölümünde, Belirtilen konumdan sonra seçeneğini belirleyin ve karakterin eklenmesi gereken konumları girin.
   3. Tamam’a tıklayın.
      

Artık belirtilen karakter, hücre değerlerine belirtilen aralıklarla eklenmiştir.

Önemli Notlar ve Sınırlamalar

=IF(A2="","",TEXTJOIN("-",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/4,0),,1,4),4)))

Sonuç

Excel'de her X karakterden sonra bir karakter eklemek, uzun metin dizelerini daha okunaklı, biçimlendirilebilir ve yönetilebilir hale getirir. Excel 365 veya Excel 2021 kullanıcıları için formül yöntemi esnek ve dinamik bir çözümdür. Aynı anda birçok hücreyi işlemek gerekiyorsa, görevi verimli şekilde tamamlamanıza VBA yardımcı olabilir. Yeniden kullanılabilir özel bir formüle ihtiyacınız varsa, Kullanıcı Tanımlı Bir İşlev (UDF) mükemmel bir seçimdir. Basit, görsel ve kod gerektirmeyen bir yöntem arayan kullanıcılar ise bu tür metin biçimlendirme görevlerini çok daha hızlı gerçekleştirmek için Kutools for Excel'i tercih edebilir.

Genel olarak, dinamik sonuçlar için formüller kullanın; daha fazla kontrole ihtiyacınız olduğunda VBA veya UDF’leri tercih edin; en kolay iş akışını ve daha az manuel adım arıyorsanız Kutools’u seçin.