Excel hücrelerinde her X karakterde belirli karakterler nasıl eklenir veya yerleştirilir

Excel'de, metin dizelerinde her birkaç pozisyonda tire gibi ayırıcılar veya belirli karakterler eklemek, manuel olarak yapılırsa sıkıcı bir görev olabilir. Örneğin, birden fazla hücrede her dört karakterden sonra tire eklemek etkili bir yaklaşıma ihtiyaç duyar. Bu makale iki basit çözüm sunar: VBA kodu kullanmak veya Kutools for Excel'deki Metin Ekle yardımcı programını kullanarak karakterleri sabit aralıklarla sorunsuz bir şekilde eklemek.

VBA kodu ile hücreye her x karakterde belirli bir karakter ekleme

Kutools for Excel ile hücreye her x karakterde belirli bir karakter ekleme

VBA kodu ile hücreye her x karakterde belirli bir karakter ekleme

Her dört karakterden sonra hücrelere belirli bir karakter eklemek için aşağıdaki VBA kodunu uygulayabilirsiniz, lütfen şu adımları izleyin:

1. Excel'de ALT + F11 tuşlarına basın, bu Microsoft Visual Basic for Applications penceresini açar.

2. Ekle Insert > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Hücreye her x karakterde belirli bir karakter ekleme

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. Bir uyarı kutusu belirecek ve size metin dizelerine belirli bir karakter eklemek istediğiniz veri aralığını seçmenizi isteyecektir. Aşağıdaki ekran görüntüsüne bakın:

4. Tamam'a tıklayın, ardından gelen uyarı kutusunda eklemek istediğiniz karakter sayısını girin, aşağıdaki ekran görüntüsüne bakın:

5. Devam ederek Tamam'a tıklayın ve ardından gelen uyarı kutusunda metne eklemek istediğiniz belirli karakteri girin, aşağıdaki ekran görüntüsüne bakın:

6. Tamam düğmesine tıklayın ve sonuçları çıkarmak istediğiniz hücreyi uyarı kutusunda seçin, aşağıdaki ekran görüntüsüne bakın:

7. Son olarak, Tamam'a tıklayın. Belirtilen karakter artık her dört karakterden sonra her metin dizisine eklenecektir. Aşağıdaki ekran görüntüsüne bakın:

Kutools for Excel ile hücreye her x karakterde belirli bir karakter ekleme

VBA kodu Excel başlangıç seviyesinde olanlar için zorlayıcı olabilir. İşte daha kolay bir alternatif: Kutools for Excel. Metin Ekle özelliğini kullanarak, hücre değerlerinin başına, sonuna veya belirli konumlara hızlıca belirli metin veya karakterler ekleyebilirsiniz.

1. Belirli bir karakter eklemek istediğiniz veri aralığını seçin.

2. Ardından Kutools > Metin > Metin Ekle'ye tıklayın, aşağıdaki ekran görüntüsüne bakın:

3. Metin Ekle iletişim kutusunda, eklemek istediğiniz karakteri Metin alanına belirtin. Konum bölümünde, Belirt'i seçin ve karakterin eklenmesi gereken konumları girin. Sağdaki bölmede sonucu önizleyebilirsiniz. Aşağıdaki ekran görüntüsüne bakın:

İpucu: Burada Belirt'in metin kutusuna 4,8,12 yazıyorum, bu da metin dizisinin 4., 8. ve 12. karakterlerinden sonra belirli metni eklemek anlamına gelir.

4. Ardından Tamam veya Uygula düğmesine tıklayın, belirtilen karakter belirli konumlara hücre değerlerine eklenmiş olacaktır.

Bu Metin Ekle yardımcı programı hakkında daha fazla bilgi için tıklayın.

Demo: Kutools for Excel ile hücreye her x karakterde belirli bir karakter ekleme