Excel'de hücrede belirli bir konuma metin ve sayı ekleme

Excel'de hücrelere metin veya sayı eklemek oldukça yaygın bir işlemdir. Örneğin, isimler arasına boşluk eklemek, hücrelere önek veya sonek eklemek, sosyal numaralara tire eklemek gibi. Bu eğitimde, Excel'de karşılaşabileceğiniz hemen hemen tüm ekleme senaryoları listelenmiş ve her biri için uygun yöntemler sunulmuştur.

Not

Bu eğitimde, yöntemleri açıklamak için bazı örnekler oluşturdum. Aşağıdaki VBA kodunu veya formülleri kullanırken referansları ihtiyacınıza göre değiştirebilirsiniz ya da yöntemleri denemek için örnek dosyaları doğrudan indirebilirsiniz.

Örnek dosyayı indirmek için tıklayın

Bu bölümde, aşağıdaki ekran görüntüsünde gösterildiği gibi, her hücrenin başına karakter eklemek için farklı yöntemler listelenmiştir:

1.1 Formül kullanarak hücrelerin başına ekle

Burada aşağıdaki üç formülden birini seçebilirsiniz:

Formül1 Birleştirme operatörü "&"

Birden fazla metni & karakteriyle birleştirin.

"metin"&hücre

Formül2 CONCATENATE fonksiyonu

CONCATENATE fonksiyonu, metinleri birleştirmek için kullanılır.

CONCATENATE("metin",hücre)

Formül3 CONCAT fonksiyonu

Bu, yalnızca Excel2019, Office365 ve Excel online'da bulunan yeni bir fonksiyondur.

CONCAT("metin",hücre)

Genel formüllerde: hücre, önek eklemek istediğiniz metnin hücre referansıdır ve metin, hücreye eklemek için kullanılan metindir.

Yukarıdaki örneği kullanarak, formül çubuğunda aşağıdaki formülleri kullanabilirsiniz:

"&"

=$E$3&B3 veya ="Iphone"&B3

CONCATENATE fonksiyonu

=CONCATENATE($E$3,B3) veya =CONCATENATE("Iphone",B3)

CONCAT fonksiyonu

=CONCAT($E$3,B3) veya =CONCAT("Iphone",B3)

Basın Enter sonucu almak için tuşuna basın, ardından otomatik doldurma tutamacını aşağıya sürükleyerek B3:B6 aralığındaki her hücreye metin ekleyin.

1.2 Flash Fill ile hücrelerin başına ekle

Excel2013 veya sonraki sürümlerdeyseniz, güçlü yeni özellik Flash Fill, yukarıda girdiğiniz hücrelere göre otomatik olarak doldurma yapabilir.

İlk orijinal verinin yanındaki bir hücreyi seçin, önek metniyle birlikte ilk veriyi manuel olarak aşağıdaki gibi yazın:

Ardından, alttaki hücreye geçip önek metniyle birlikte ikinci veriyi yazmaya devam edin. Yazarken gri renkte bir liste görüntülenecektir, Enter tuşuna basarak Flash Fill'in verileri otomatik olarak doldurmasını sağlayın.

Eğer önizleme listesi oluşmazsa, Giriş sekmesine gidin ve ardından Doldur > Flash Fill'e tıklayarak manuel olarak çalıştırın.

1.3 VBA kodu kullanarak hücrelerin başına ekle

VBA koduna aşinaysanız, burada bir aralıktaki her hücrenin başına metin eklemek için bir VBA kodu tanıtılmaktadır.

1. Önek metni eklemek istediğiniz hücre aralığını seçin, ardından Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Açılan pencerede, tıklayın Ekle > Modül yeni boş bir modül eklemek için.

3. Aşağıdaki VBA kodunu yeni modüle kopyalayıp yapıştırın.

VBA: Hücrelerin başına ekle

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub

4. Basın F5 tuşuna basın veya tıklayın Çalıştır düğmesine pencerede VBA kodunu etkinleştirmek için.

Artık seçili tüm hücrelerin başına "Iphone" metni eklendi.

Hücrelerin başına metin eklemenin yanı sıra, hücrelerin sonuna metin eklemek de yaygındır. Burada, her hücrenin sonuna birim ekleme örneği aşağıdaki ekran görüntüsünde gösterilmiştir:

2.1 Formül kullanarak hücrelerin sonuna ekle

Burada aşağıdaki üç formülden birini seçebilirsiniz:

Formül1 Birleştirme operatörü "&"

Birden fazla metni & karakteriyle birleştirin.

Hücre&"metin"

Formül2 CONCATENATE fonksiyonu

CONCATENATE fonksiyonu, metinleri birleştirmek için kullanılır.

CONCATENATE(hücre,"metin")

Formül3 CONCAT fonksiyonu

Bu, yalnızca Excel2019, Office365 ve Excel online'da bulunan yeni bir fonksiyondur.

CONCAT(hücre,"metin")

Genel formüllerde: hücre, sonek eklemek istediğiniz metnin hücre referansıdır ve metin, hücreye eklemek için kullanılan metindir.

Yukarıdaki örneği kullanarak, formül çubuğunda aşağıdaki formülleri kullanabilirsiniz:

"&"

=B3&$E$3 veya =B3&"Kg"

CONCATENATE fonksiyonu

=CONCATENATE(B3, $E$3) veya =CONCATENATE(B3, "Kg")

CONCAT fonksiyonu

=CONCAT(B3, $E$3) veya =CONCAT(B3, "Kg")

Basın Enter sonucu almak için tuşuna basın, ardından otomatik doldurma tutamacını aşağıya sürükleyerek B3:B6 aralığındaki her hücrenin sonuna metin ekleyin.

2.2 Flash Fill ile hücrelerin sonuna ekle

Excel2013 veya sonraki sürümlerdeyseniz, güçlü yeni özellik Flash Fill, yukarıda girdiğiniz hücrelere göre otomatik olarak doldurma yapabilir.

İlk orijinal verinin yanındaki bir hücreyi seçin, sonek metniyle birlikte ilk veriyi manuel olarak aşağıdaki gibi yazın:

Ardından, ilk sonucun altındaki hücreyi etkinleştirip tıklayın Veri > Flash Fill, böylece aktif hücre dahil tüm altındaki hücreler otomatik olarak doldurulacaktır.

2.3 VBA kodu kullanarak hücrelerin sonuna ekle

Burada, bir aralıktaki her hücrenin sonuna metin ekleyebilen bir VBA kodu bulunmaktadır.

1. Sonek metni eklemek istediğiniz hücre aralığını seçin, ardından Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Açılan pencerede, tıklayın Ekle > Modül yeni boş bir modül eklemek için.

3. Aşağıdaki VBA kodunu yeni modüle kopyalayıp yapıştırın.

VBA: Hücrelerin sonuna ekle

Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub

4. Basın F5 tuşuna basın veya tıklayın Çalıştır düğmesine pencerede VBA kodunu etkinleştirmek için.

Artık her hücrenin sonuna "Kg" metni eklendi.

Çoğunuz için, hücrelerin başına veya sonuna metin eklemek kolaydır, ancak hücrelerin ortasına metin eklemek biraz daha zor olabilir. Örneğin, aşağıdaki ekran görüntüsünde gösterildiği gibi, B3:B7 aralığındaki her hücrenin ikinci karakterinin sonuna iki nokta üst üste (:) gibi bir ayraç eklemek.

3.1 Formül ile metnin n. karakterinden sonra ekle

Bu işi halletmek için dört farklı formül sunulmuştur, birini seçip kullanabilirsiniz:

Formül1 LEFT ve RIGHT fonksiyonlarını birleştirme

LEFT(hücre, n) & "metin" & RIGHT(hücre, LEN(hücre) -n)

Formül2 CONCATENATE(CONCAT), RIGHT ve LEN fonksiyonlarını birleştirme

CONCATENATE(LEFT(hücre, n), "metin", RIGHT(hücre, LEN(hücre) -n))

Veya

CONCAT(LEFT(hücre, n), "metin", RIGHT(hücre, LEN(hücre) -n))

Formül3 DEĞİŞTİR fonksiyonu

DEĞİŞTİR(hücre, n+1,0, "metin")

Genel formüllerde: hücre, ortasına metin eklemek istediğiniz metnin hücre referansıdır; metin, hücreye eklemek için kullanılan metindir; n ise metin dizisinde hangi karakterden sonra metin eklemek istediğinizi belirten sayıdır.

Yukarıda bahsedilen işi çözmek için, aşağıdaki formülleri kullanabilirsiniz:

LEFT ve RIGHT fonksiyonlarını birleştirme

=LEFT(B3,2) & ":" & RIGHT(B3, LEN(B3) -2) veya =LEFT(B3,2) & $E$3 & RIGHT(B3, LEN(B3) -2)

CONCATENATE(CONCAT), RIGHT ve LEN fonksiyonlarını birleştirme

=CONCATENATE(LEFT(B3,2), ":", RIGHT(B3, LEN(B3) -2)) veya =CONCAT (LEFT(B3,2), ":", RIGHT(B3, LEN(B3) -2))

DEĞİŞTİR fonksiyonu

=DEĞİŞTİR(B3,2+1,0, ":") veya =DEĞİŞTİR(B3,2+1,0, $E$3)

Basın Enter sonucu almak için tuşuna basın, ardından otomatik doldurma tutamacını aşağıya sürükleyerek B3:B7 aralığındaki her hücrenin ikinci karakterinden sonra metin ekleyin.

3.2 Flash Fill ile metnin n. karakterinden sonra ekle

Excel2013 veya sonraki sürümlerdeyseniz, Flash Fill, yukarıda girdiğiniz hücrelere göre otomatik olarak doldurma yapabilir.

İlk orijinal verinin yanındaki bir hücreyi seçin, ikinci karakterden sonra iki nokta üst üste ile birlikte ilk veriyi manuel olarak aşağıdaki gibi yazın:

Ardından, ilk sonucun altındaki hücreyi etkinleştirip basın Ctrl + E tuşlarına basarak Flash Fill komutunu etkinleştirin, böylece aktif hücre dahil tüm altındaki hücreler otomatik olarak doldurulacaktır.

3.3 VBA kodu kullanarak metnin n. karakterinden sonra ekle

Bu işi yapmak için bir VBA kodu da kullanılabilir.

1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Açılan pencerede, tıklayın Ekle > Modül yeni boş bir modül eklemek için.

3. Aşağıdaki VBA kodunu yeni modüle kopyalayıp yapıştırın.

VBA: Hücrelerin ortasına ekle

Sub AddToMidduleOfString()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        Rng.Value = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
    Next
End Sub

4. Basın F5 tuşuna basın veya tıklayın Çalıştır düğmesine pencerede VBA kodunu etkinleştirmek için. Metin eklemek için hücreleri seçmenizi isteyen bir iletişim kutusu açılır.

5. Tıklayın TamamŞimdi B19:B23 aralığındaki her hücrenin ikinci karakterinden sonra ":" metni eklendi.

Formül ve VBA'dan yorulduysanız, güçlü ve kullanışlı bir araç olan Kutools for Excelkullanabilirsiniz, bu araç ile Metin Ekle özelliğinden faydalanabilirsiniz.

Bu Metin Ekle özelliği şunları yapabilir:

• İlk karakterden önce metin ekle
• Son karakterden sonra metin ekle
• Belirtilen konumlara metin ekle
• Genişletilmiş
  Büyük harflerden önce metin ekle
  Küçük harflerden önce metin ekle
  Büyük ve küçük harflerden önce metin ekle
  Sayılardan önce metin ekle

Metin eklemek istediğiniz hücreleri seçin, ardından Metin Ekle'yi uygulamak için tıklayın Kutools > Metin > Metin Ekle.

4.1 İlk karakterden önce veya son karakterden sonra metin ekle

İçinde Metin Ekle penceresinde, hücrelere eklemek istediğiniz metni Metin metin kutusuna yazın, ardından İlk karakterden önce seçeneğini işaretleyin Konum bölümünde.

Tıklayın Uygula veya Tamam eklemeyi tamamlamak için.

Son karakterden sonra metin eklemek için, hücrelere eklemek istediğiniz metni Metin metin kutusuna yazın, ardından Son karakterden sonra seçeneğini işaretleyin Konum bölümünde.

Tıklayın Uygula veya Tamam eklemeyi tamamlamak için.

4.2 Belirtilen konum(lar)a metin ekle

Bazen, hücrenin ortasına veya birden fazla konumuna metin eklemek isteyebilirsiniz. Örneğin, aşağıdaki ekran görüntüsünde gösterildiği gibi sosyal numaraların üçüncü ve yedinci rakamından sonra ayırıcı "-" eklemek:

İçinde Metin Ekle penceresinde, metni Metin metin kutusuna yazın ve Belirt seçeneğini işaretleyin, ardından konumları virgülle ayırarak metin kutusuna yazın ve tıklayın Tamam veya Uygula.

4.3 Metin Ekle aracının genişletilmiş kullanımı

Normal konumlara (baş, son ve belirtilen konum) metin eklemenin yanı sıra, Metin Ekle aracı ayrıca metni

• Büyük harflerden önce
• Küçük harflerden önce
• Büyük ve küçük harflerden önce
• Sayılardan önce

İçinde Metin Ekle penceresinde, metni Metin metin kutusuna yazın ve Gelişmiş seçeneğini işaretleyin, ardından aşağıdaki açılır menüden ihtiyacınıza göre işlemi seçin.

Metin Ekle özelliği dışında, Kutools for Excel'in Excel'de farklı işlerinizde size yardımcı olabilecek300'den fazla kullanışlı özelliği daha vardır, şimdi ücretsiz indirin.

Bu bölümde, Excel'de ilk görünen belirli metinden önce veya sonra metin eklemek için formüller sunulmaktadır.

5.1 İlk belirli metinden önce metin ekle

Örneğin, aşağıdaki ekran görüntüsünde gösterildiği gibi, hücrede ilk "price" metninden önce "(sale)" metni eklemek istiyorsunuz:

Excel'de, DEĞİŞTİR ve YERİNEKOY fonksiyonları bu işi çözebilir.

DEĞİŞTİR fonksiyonu

DEĞİŞTİR(hücre,BUL("bul_metni",hücre),0,"eklenecek_metni")

YERİNEKOY fonksiyonu

YERİNEKOY(hücre,"bul_metni","değiştirilecek_metni",1)

Bu durumda, yukarıdaki formülleri şu şekilde kullanın:

=DEĞİŞTİR(B4,BUL("price",B4),0,"(sale)")

Veya

=YERİNEKOY(B4,"price","(sale)price",1)

Bu durumda formül argümanları şunlardır:

Hücre: B4,

Bul_metni: price,

Eklenecek_metni: (sale),

Değiştirilecek_metni: (sale)price.

Basın Enter ilk ekleme sonucunu almak için tuşuna basın, ardından bu formüle ihtiyaç duyan hücrelere otomatik doldurma tutamacını sürükleyin.

5.2 İlk belirli metinden sonra metin ekle

Örneğin, aşağıdaki ekran görüntüsünde gösterildiği gibi, hücrede ilk iki nokta üst üste (:) karakterinden sonra para birimi simgesi "$" eklemek istiyorsunuz:

Excel'de, DEĞİŞTİR ve YERİNEKOY fonksiyonları bu işi çözebilir.

DEĞİŞTİR fonksiyonu

DEĞİŞTİR(hücre,BUL("bul_metni",hücre),bul_metni_uzunluğu,"değiştirilecek_metni")

YERİNEKOY fonksiyonu

YERİNEKOY(hücre,"bul_metni","değiştirilecek_metni")

Bu durumda, yukarıdaki formülleri şu şekilde kullanın:

=DEĞİŞTİR(B12,BUL(":",B12),1,":$")

Veya

=YERİNEKOY(B12,":",":$")

Bu durumda formül argümanları şunlardır:

Hücre: B12,

Bul_metni: :,

Değiştirilecek_metni: :$.

Bul_metni_uzunluğu:1

Basın Enter ilk ekleme sonucunu almak için tuşuna basın, ardından bu formüle ihtiyaç duyan hücrelere otomatik doldurma tutamacını sürükleyin.

Bu eğitim bölümünde, hücredeki her kelimenin başına veya sonuna karakter eklemek için üç farklı yöntem (formül, Bul ve Değiştir, VBA) tanıtılmaktadır.

Her kelimenin başına karakter ekle

Her kelimenin sonuna karakter ekle

6.1 Formül ile her kelimenin başına veya sonuna karakter(ler) ekle

YERİNEKOY fonksiyonu bu işi çözmek için kullanılabilir, genel formüller şunlardır:

Her kelimenin başına ekle

"karakter"&YERİNEKOY(metin, " "," karakter")

Her kelimenin sonuna ekle

YERİNEKOY(metin," ","karakter ")&"karakter"

B3:B6 listesindeki her kelimenin başına "+" eklemek için, aşağıdaki formülü kullanın:

="+"&YERİNEKOY(B3, " "," +")

Basın Enter ilk sonucu almak için tuşuna basın, ardından otomatik doldurma tutamacını aşağıya sürükleyerek tüm sonuçları alın.

B11:B14 listesindeki her kelimenin sonuna ($) eklemek için, aşağıdaki formülü kullanın:

=YERİNEKOY(B11," ","($) ")&"($)"

Basın Enter ilk sonucu almak için tuşuna basın, ardından otomatik doldurma tutamacını aşağıya sürükleyerek tüm sonuçları alın.

6.2 Bul ve Değiştir ile her kelimenin başına veya sonuna karakter(ler) ekle

İlk kelime hariç her kelimenin başına veya son kelime hariç her kelimenin sonuna karakter eklemek istiyorsanız, Excel'in yerleşik Bul ve Değiştir aracı bu işi halledebilir.

İlk kelime hariç her kelimenin başına ekle

Son kelime hariç her kelimenin sonuna ekle

1. Karakter eklemek istediğiniz hücreleri seçin, ardından Ctrl + H tuşlarına basarak Bul ve Değiştir penceresini açın.

2. Bulunacak metin kutusuna bir boşluk yazın, ardından Değiştirilecek metin kutusuna yeni karakterleri boşlukla birlikte yazın ve son olarak Tümünü Değiştir düğmesine tıklayın.

Her kelimenin başına veya sonuna karakter eklemek için iki VBA kodu sunulmuştur, aşağıdaki adımları izleyerek kodu çalıştırabilirsiniz.

1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Açılan pencerede, tıklayın Ekle > Modül yeni boş bir modül eklemek için.

3. Aşağıdaki VBA kodunu modüle kopyalayıp yapıştırın.

Her kelimenin başına ekle

Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
   
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = xInStr & Trim(xStr)
                Else
                    xValue = xValue & " " & xInStr & Trim(xStr)
                    End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

Her kelimenin sonuna ekle

Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
 
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
   
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
   
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = Trim(xStr) & xInStr
                Else
                    xValue = xValue & " " & Trim(xStr) & xInStr
                End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

4. Basın F5 kodu çalıştırmak için tuşa basın (veya tıklayabilirsiniz Çalıştır düğmesine ), ardışık hücreleri seçmenizi isteyen bir iletişim kutusu açılır, tıklayın Tamam.

5. İkinci açılan iletişim kutusunda, eklemek istediğiniz karakterleri yazın, tıklayın Tamam.

Ardından karakterler, her kelimenin başına veya sonuna eklenmiş olacaktır.

Bazen, her karakterin arasına metin eklemek isteyebilirsiniz. Bu bölümde iki senaryo listelenmiştir: biri her karakterin arasına metin eklemek, diğeri ise her sayının arasına boşluk eklemektir.

7.1 Kullanıcı Tanımlı fonksiyon ile her karakter/rakam arasına metin ekle

Bir dizideki her karakterin arasına karakter eklemek için Kullanıcı Tanımlı fonksiyon size yardımcı olabilir.

Bu durumda, her karakterin arasına bir boşluk ekliyoruz.

1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Açılan pencerede, tıklayın Ekle > Modül yeni boş bir modül eklemek için.

3. Aşağıdaki VBA kodunu modüle kopyalayıp yapıştırın.

Karakterler arasına metin ekle

Function AddText(Str As String) As String
    Dim i As Long
    For i = 1 To Len(Str)
        AddText = AddText & Mid(Str, i, 1) & " "
    Next i
    AddSpace = Trim(AddSpace)
End Function

4. Kodu kaydedip pencereyi kapatın, ardından sonucu yerleştirmek istediğiniz hücreye aşağıdaki formülü yazın.

=AddText(B3)

B3, karakterler arasına boşluk eklemek istediğiniz diziyi içeren hücredir.

5. Basın Enter sonucu almak için tuşa basın, ardından ihtiyacınıza göre diğer hücrelere otomatik doldurma tutamacını sürükleyin.

7.2 Formül ile her sayının arasına boşluk ekle

Bir dizinin rakamlarının arasına boşluk eklemek istiyorsanız, TEXT fonksiyonunu kullanabilirsiniz.

Burada B10:B12 aralığında8 haneli bir sayı listesi olduğunu varsayalım, sonucu yerleştirmek istediğiniz hücreyi seçin ve aşağıdaki formülü yazın:

=TEXT(B10,"# # # # # # # #")

Basın Enter tuşuna basın, ardından diğer hücrelere otomatik doldurma tutamacını sürükleyin.

Eğer sayıların uzunluğu5 ise, formül şu şekilde değişir: =TEXT(B10,"# # # # #")

Her kelimenin arasına karakter(ler) eklemek istiyorsanız, örneğin aşağıdaki ekran görüntüsünde gösterildiği gibi ad, ikinci ad ve soyad arasına boşluk eklemek için, Kullanıcı Tanımlı fonksiyon kullanabilirsiniz.

1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Açılan pencerede, Ekle > Modül'e tıklayarak yeni boş bir modül ekleyin.

3. Aşağıdaki VBA kodunu modüle kopyalayıp yapıştırın.

Kelimeler arasına karakter ekle

Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddCharacters = xOut
End Function

4. Kodu kaydedip pencereyi kapatın, ardından sonucu yerleştirmek istediğiniz hücreye aşağıdaki formülü yazın.

=AddCharacters(B3)

B3, kelimeler arasına boşluk eklemek istediğiniz diziyi içeren hücredir.

5. Basın Enter sonucu almak için tuşa basın, ardından ihtiyacınıza göre diğer hücrelere otomatik doldurma tutamacını sürükleyin.

Aşağıdaki ekran görüntüsünde gösterildiği gibi, metinler ve sayılar arasına belirli karakter(ler) eklemek için burada iki yöntem sunulmuştur.

9.1 Formül ile metinler ve sayılar arasına karakter ekle

Eğer metinler sayıların önündeyse, genel formül şudur:

TRIM(REPLACE(metin,MİN(BUL({1,2,3,4,5,6,7,8,9,0},metin&"1234567890")),0,"-"))

Yukarıdaki durumu örnek alarak, aşağıdaki formülü kullanın:

=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))

Basın Enter ilk sonucu almak için tuşa basın, ardından diğer hücrelere otomatik doldurma tutamacını sürükleyin.

Eğer sayılar metinlerin önündeyse, genel formül şudur:

LEFT(metin,SUM(LEN(metin)-LEN(SUBSTITUTE(metin,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT(metin,LEN(B13)- SUM(LEN(metin)-LEN(SUBSTITUTE(metin, {0,1,2,3,4,5,6,7,8,9}, ""))))

Yukarıdaki durumu örnek alarak, aşağıdaki formülü kullanın:

=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT(B13,LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13, {0,1,2,3,4,5,6,7,8,9}, ""))))

Basın Enter ilk sonucu almak için tuşa basın, ardından diğer hücrelere otomatik doldurma tutamacını sürükleyin.

9.2 Flash Fill ile metinler ve sayılar arasına karakter ekle

Excel2013 veya sonraki sürümlerdeyseniz, Flash Fill ile de metinler ve sayılar arasına karakter(ler) ekleyebilirsiniz.

Orijinal verinin yanına, metinler ve sayılar arasına karakter(ler) eklenmiş yeni veriyi yazın. Ardından Enter tuşuna basarak ilk sonucun altındaki hücreye geçin.

Ve basın Ctrl + E tuşlarına basarak Flash Fill'i etkinleştirin.

Genişletilmiş

Bu eğitimde, günlük yaşamda veya işte karşılaşabileceğimiz bazı metin ekleme senaryoları da listelenmiştir.

Bazen, aşağıdaki ekran görüntüsünde gösterildiği gibi, bir dizi telefon numarasına veya sosyal numaraya tire gibi ayraçlar eklemeniz gerekebilir. Yüzlerce numara varsa, elle yazmak zahmetli olur. Bu bölümde, bu işi hızlıca çözmek için üç pratik yöntem tanıtılmıştır.

10.1 Formül ile sayılara tire ekle

Aşağıda, sayılara hızlıca tire ekleyebileceğiniz iki formül verilmiştir. B3 hücresindeki üçüncü ve altıncı rakamdan sonra tire eklemek için aşağıdaki formülleri kullanın:

DEĞİŞTİR fonksiyonu

=DEĞİŞTİR(DEĞİŞTİR(B3,4,0,"-"),8,0,"-")

TEXT fonksiyonu

=TEXT(B3,"???-???-??? ")

Basın Enter ilk sonucu almak için tuşa basın, ardından diğer hücrelere otomatik doldurma tutamacını sürükleyin.

10.2 Hücre biçimini ayarlar ile sayılara tire ekle

Orijinal hücrelerdeki sayılara doğrudan tire eklemek için, Hücre biçimini ayarlar özelliğini kullanabilirsiniz.

1. Tire eklemek istediğiniz sayıları seçin, ardından Ctrl + 1 tuşlarına basarak Hücre biçimini ayarlar penceresini açın.

2. Hücre biçimini ayarlar penceresinde, Sayı sekmesi altında, Kategori bölümünden Özel'i seçin.

3. Sağdaki Tür bölümüne yazın ###-###-### metin kutusuna, ardından tıklayın Tamam.

Artık seçili sayılara tire eklendi.

10.3 Kutools for Excel'in Metin Ekle aracı ile telefon numarasına tire ekle

Excel'de Kutools for Excel yüklüyse, Metin Ekle özelliği de size yardımcı olabilir.

1. Tire eklemek istediğiniz sayıları içeren hücreleri seçin, tıklayın Kutools > Metin > Metin Ekle.

2. İçinde Metin Ekle penceresinde, tire veya başka bir ayırıcıyı Metin metin kutusuna yazın, ardından Belirt seçeneğini işaretleyin, ardından tire eklemek istediğiniz konumları virgülle ayırarak aşağıdaki metin kutusuna yazın.

3. Tamam veya Uygula'ya tıklayın. Ardından seçili sayılara tire eklendi.

Metin Ekle'yi30 gün ücretsiz denemek için indirin.

Farklı uzunluklarda bir sayı listeniz olduğunu ve bunları aynı uzunlukta ve düzenli göstermek için başına sıfır eklemek istediğinizi varsayalım. Bu işi çözmek için iki yöntem sunulmuştur.

11.1 Hücre biçimini ayarlar özelliğiyle baştaki sıfırları ekle

Hücre biçimini ayarlar özelliğini kullanarak, başına sıfır ekleyerek hücre uzunluğunu sabitlemek için özel bir biçim ayarlayabilirsiniz.

1. Baştaki sıfırları eklemek istediğiniz hücreleri seçin, ardından Ctrl +1 tuşlarına basarak Hücre biçimini ayarlar penceresini açın.

2. Hücre biçimini ayarlar penceresinde, Sayı sekmesi altında, Kategori bölümünden Özel'i seçin.

3. Sağdaki Tür bölümüne yazın 0000 metin kutusuna (sayı uzunluğunu4 hane yapmak için0000 yazın, başka bir uzunluk için örneğin5 hane için00000 yazabilirsiniz), ardından tıklayın Tamam.

Artık sayılar başına sıfır eklenmiş ve aynı uzunlukta oldu.

11.2 Formül ile baştaki sıfırları ekle

Orijinal veriyi değiştirmek istemiyorsanız, başka bir yerde formül kullanarak sayılara başına sıfır ekleyebilirsiniz.

Bu iş için üç fonksiyon size yardımcı olabilir.

Formül1 TEXT fonksiyonu

TEXT(sayı,"00…")

Formül2 SAĞ fonksiyonu

SAĞ("00…"&sayı,uzunluk)

Formül3 TEMEL ALINAN fonksiyonu

TEMEL ALINAN(sayı,10,uzunluk)

Formüldeki sıfır sayısı, sayının uzunluğuna eşittir.

Burada sayıların uzunluğunu4 hane olarak ayarladınız, aşağıdaki formülleri kullanın:

=TEXT(B10,"0000")

=SAĞ("0000"&B10,4)

=TEMEL ALINAN(B10,10,4)

Basın Enter tuşuna basın ve otomatik doldurma tutamacını aşağıya sürükleyin.

Sayıların sonuna sıfır ekleyerek sabit bir uzunluk elde etmek istiyorsanız, örneğin B3:B7 hücrelerindeki sayılara sonuna sıfır ekleyerek5 haneli yapmak için bir formül uygulayabilirsiniz.

TEKRARLA fonksiyonu

sayı&TEKRARLA("0",uzunluk-UZUNLUK(sayı))

Formülde, "sayı" argümanı sonuna sıfır eklemek istediğiniz sayı veya hücre referansını, "uzunluk" ise istediğiniz sabit uzunluğu belirtir.

Aşağıdaki formülü kullanın:

=B3&TEKRARLA("0",5-UZUNLUK(B3))

Basın Enter tuşuna basın ve otomatik doldurma tutamacını aşağıya sürükleyin.

Bir çalışma sayfasından verileri not defterine aktarmak veya kopyalamak istediğinizde, hücre değerleri farklı uzunluklarda olduğu için metinler düzensiz yerleşebilir. Aşağıdaki ekran görüntüsünde gösterildiği gibi, düzenli görünmesi için metne son boşluk eklemeniz gerekir.

Bu işi çözmek için TEKRARLA fonksiyonu size yardımcı olabilir.

SOL(metin & TEKRARLA(" ",maks_uzunluk),maks_uzunluk)

Formülde, "metin" argümanı sonuna boşluk eklemek istediğiniz metni veya hücre referansını, "maks_uzunluk" ise metinleri düzenlemek istediğiniz sabit uzunluğu belirtir ve bu değer kullanılan metinlerin maksimum uzunluğuna eşit veya daha büyük olmalıdır.

B3:C6 hücrelerindeki metinlere son boşluk eklemek için aşağıdaki formülü kullanın:

=SOL(B3 & TEKRARLA(" ",10),10)

Enter tuşuna basın, ardından bu formüle ihtiyaç duyan tüm hücrelere otomatik doldurma tutamacını sürükleyin.

Bu durumda, kullanılan en uzun metin9 karakter olduğu için10 kullandık.

Bazen, aşağıdaki ekran görüntüsünde gösterildiği gibi, hücrelerdeki metin veya sayıların etrafına tırnak işareti veya parantez eklemeniz gerekebilir. Tek tek elle yazmak yerine, Excel'de bu işi hızlıca çözebilecek iki yöntem vardır.

14.1 Hücre biçimini ayarlar ile etrafına tırnak işareti/parantez ekle

Orijinal verideki metinlerin etrafına tırnak işareti eklemek istiyorsanız, Excel'deki Hücre biçimini ayarlar özelliği size yardımcı olabilir.

1. Tırnak işareti eklemek istediğiniz hücreleri seçin, ardından Ctrl +1 tuşlarına basarak Hücre biçimini ayarlar penceresini açın.

2. İçinde Hücre biçimini ayarlar penceresinde, Sayı sekmesinde, Özel listesinden seçin Kategori, ardından sağdaki bölümde yazın "''"@"''" kutusuna. Tür metin kutusuna tıklayın. Tamam.

Seçili hücrelerdeki metinlerin etrafına tırnak işareti eklendi.

Metnin etrafına parantez eklemek istiyorsanız, Hücre biçimini ayarlar penceresindeki Tür kutusunda (@) kullanın.

14.2 Formüller ile etrafına tırnak işareti/parantez ekle

Formüller de başka hücrelerdeki metinlerin etrafına tırnak işareti eklemek için kullanılabilir.

& bağlayıcıyı kullanma

""""&metin&""""

Veya

char(34)&metin&char(34)

Bu durumda, B11 hücresindeki metin için aşağıdaki formülleri kullanın:

=""""&B11&""""

Veya

=char(34)&B11&char(34)

Basın Enter tuşuna basın ve hücreleri doldurmak için otomatik doldurma tutamacını sürükleyin.

Metnin etrafına parantez eklemek istiyorsanız, "("&metin&")" formülünü kullanın.

14.3 VBA ile etrafına tırnak işareti/parantez ekle

Bu işi çözmek için VBA koduna ihtiyacınız varsa, aşağıda bir VBA kodu verilmiştir.

1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Açılan pencerede, Ekle > Modül'e tıklayarak yeni boş bir modül ekleyin.

3. Aşağıdaki VBA kodunu yeni modüle kopyalayıp yapıştırın.

VBA: Metinlerin etrafına tırnak işareti ekle

Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = """" & Rng.Value & """"
Next
End Sub

4. Basın F5 tuşuna basın veya tıklayın Çalıştır düğmesine pencerede VBA kodunu etkinleştirmek için. Tırnak eklemek için hücreleri seçmenizi isteyen bir iletişim kutusu açılır.

5. Tamam'a tıklayın. Artık seçili hücrelerdeki metinlerin etrafına tırnak işareti eklendi.

Bazen, diğer kullanıcıların verileri daha iyi anlaması için, aşağıdaki ekran görüntüsünde gösterildiği gibi formül sonuçlarına metin eklemeniz gerekebilir. Formüle metin eklemek için, metni tırnak işaretiyle çevreleyip & bağlayıcı ile metin ve formülü birleştirebilirsiniz.

Durum1: Formülden önce metin ekle

"Bugün "&TEXT(TODAY(),"dddd, mmmm dd.")

Durum2: Formülden sonra metin ekle

TEXT(NOW(),"HH:MM:SS")&" şu anki saattir."

Durum3: Formülün iki yanına metin ekle

"Bugün satılan "&veri&" kg."

---

En İyi Ofis Üretkenlik Araçları

Kutools for Excel, sorunlarınızın çoğunu çözer ve üretkenliğinizi %80 artırır.

• Süper Formül Çubuğu (birden fazla satır metin ve formülü kolayca düzenleme); Okuma Düzeni (büyük miktarda hücreyi kolayca okuma ve düzenleme); Filtrelenmiş Alana Yapıştır...
• Hücreleri/Satırları/Sütunları Birleştir ve Veriyi Koru; Hücre İçeriğini Böl; Yinelenen Satırları Birleştir ve Topla/Ortalama... Yinelenen Hücreleri Önle; Aralıkları Karşılaştır...
• Yinelenen veya Benzersiz Satırları Seç; Boş Satırları Seç (tüm hücreler boş); Çok sayıda Çalışma Kitabında Süper Bul ve Yaklaşık Bul; Rastgele Seçim...
• Formül referansını değiştirmeden Birden Fazla Hücreyi Tam Kopyala; Çoklu Sayfalara Otomatik Referans Oluştur; Madde İşaretleri, Onay Kutuları Ekle ve daha fazlası...
• Formülleri, Aralıkları, Grafikleri ve Resimleri Favorilere Ekle ve Hızlıca Ekle; Hücreleri şifreyle şifrele; Posta Listesi oluştur ve e-postalar gönder...
• Metni Çıkart, Metin Ekle, Belirli bir konumda karakterleri kaldır, Boşlukları Kaldır; Veri Sayfası İstatistikleri oluştur ve yazdır; Hücre İçeriği ve Yorumlar arasında dönüştür...
• Süper Filtre (filtre düzenlerini kaydet ve diğer sayfalara uygula); Ay/Hafta/Gün, sıklık ve daha fazlasına göre Gelişmiş Sıralama; Kalın, italik vb. özel filtreleme...
• Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştir; Anahtar sütunlara dayalı Tabloları Birleştir; Veriyi Birden Çok Sayfaya Böl; xls, xlsx ve PDF'leri Toplu Dönüştür...
• Hafta numarası, haftanın günü vb. göre PivotTable Gruplama... Kilitsiz, kilitli hücreleri farklı renklerle göster; Formül/İsim içeren hücreleri vurgula...

Daha Fazla Oku... Tam Özellikler 30 Günlük Ücretsiz Deneme... Satın Al... 

---

Office Tab - Sekmeli arayüzü Office'a getirir ve işlerinizi çok daha kolay hale getirir.

• Word, Excel, PowerPoint'de sekmeli düzenleme ve okumayı etkinleştir.
• Aynı pencerede yeni sekmelerde birden fazla belge açın ve oluşturun, yeni pencereler yerine.
• Üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından sizi kurtarır!

Daha Fazla Oku... Tam Özellikler 30 Günlük Ücretsiz Deneme... Satın Al...