Excel, hücrenin belirtilen konumuna Metin ve Sayıya Göre Böl ekler

Excel'de hücrelere metin veya sayı eklemek oldukça yaygın bir işlemdir. İsimlerin arasına boşluk yerleştirmek, hücrelere önek ya da sonek eklemek, sosyal güvenlik numaralarına tire koymak gibi pek çok kullanım senaryosu vardır. Bu öğreticide, Excel’de karşılaşılan neredeyse tüm ekleme durumları ele alınmış ve ihtiyacınıza en uygun yöntemler sunulmuştur.

Not

Bu öğreticide, yöntemleri açıklamak için bazı örnekler hazırladım; aşağıdaki VBA kodunu veya formülleri kullanırken referansları ihtiyacınıza göre özelleştirebilir ya da yöntemleri doğrudan test etmek için örnek dosyaları indirebilirsiniz.

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

Bu bölüm, aşağıdaki ekran görüntüsünde gösterildiği gibi her hücrenin başına karakter eklemeye yönelik farklı yöntemleri listeler:

1,1 Formül kullanarak hücrelerin başına ekle

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

Formül 1: Birleştirme operatörü "&"

Birden fazla metni birleştirmek için "&" işaretini kullanın.

"metin"&hücre

Formül 2: CONCATENATE fonksiyonu

CONCATENATE fonksiyonu, metinleri birleştirmenizi sağlar.

CONCATENATE("text",cell)

Formül 3: CONCAT fonksiyonu

Bu, yalnızca Excel 2019, Office 365 ve Excel Çevrimiçi sürümlerinde yer alan yeni bir özelliktir.

CONCAT("text",cell)

Genel formüllerde: hücre, önek eklemek istediğiniz metne yapılan hücre başvurusudur; metin ise hücreye önek olarak eklemek için kullanılan ifadedir.

Yukarıdaki örneği kullanarak, Formül Çubuğu içindeki formülleri şu şekilde kullanabilirsiniz:

"&"

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

CONCATENATE fonksiyonu

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

CONCAT fonksiyonu

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

Sonucu almak için Enter tuşuna basın, ardından Metin Ekle aralığındaki her hücreye uygulamak için otomatik doldurma tutamacını aşağı doğru sürükleyin.

1,2 Flash Fill kullanarak hücrelerin başına ekle

Excel 2013 veya daha yeni bir sürüm kullanıyorsanız, güçlü yeni özelliği olan Flash Fill, yukarıda girdiğiniz hücrelere dayanarak diğer hücreleri otomatik olarak doldurabilir.

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

Ardından alttaki hücreye, önek metniyle ikinci veriyi yazmaya devam edin; yazarken gri renkte bir liste görüntülenecektir. Flash Fill’in verileri otomatik olarak doldurmasına izin vermek için Enter tuşuna basın.

Önizleme listesi oluşturulmazsa, Giriş sekmesine gidin ve ardından Doldur > Flash Fill seçeneğine 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 sunuluyor.

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. Ardından açılan pencerede Ekle > Modül seçeneğine tıklayarak boş bir modül ekleyin.

3. Aşağıdaki VBA kodunu kopyalayın ve yeni modüle 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. VBA kodunu çalıştırmak için F5 tuşuna basın veya penceredeki Çalıştır düğmesine tıklayın.

Artık tüm seçili hücrelerin başına "iPhone" metni eklenmiştir.

Metin Ekle özelliğiyle hücrelerin başına metin eklemek yaygın olduğu gibi, hücrelerin sonuna metin eklemek de oldukça yaygındır. Örneğin, aşağıdaki ekran görüntüsünde gösterildiği gibi her hücrenin sonuna birim ekleyebilirsiniz:

2,1 Formül kullanarak hücrelerin sonuna ekleme

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

Formül 1: Birleştirme operatörü "&"

Birden fazla metni birleştirmek için "&" işaretini kullanın.

Hücre&"metin"

Formül 2: CONCATENATE fonksiyonu

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

CONCATENATE(cell,"text")

Formül 3: CONCAT fonksiyonu

Bu, yalnızca Excel 2019, Office 365 ve Excel Çevrimiçi’de sunulan yeni bir özelliktir.

CONCAT(cell,"text")

Genel formüllerde: hücre, sonuna metin eklemek istediğiniz hücrenin başvurusudur; metin ise o hücreye eklemek istediğiniz ifadedir.

Yukarıdaki örneği kullanarak Formül Çubuğu içinde aşağıdaki formülleri kullanabilirsiniz:

"&"

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

CONCATENATE fonksiyonu

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

CONCAT fonksiyonu

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

Sonucu almak için Enter tuşuna basın, ardından otomatik doldurma tutamacını sürükleyerek Metin Ekle işlemini B3:B6 aralığındaki her hücrenin sonuna uygulayın.

2,2 Hızlı Doldurma ile hücrelerin sonuna ekleme

Excel 2013 veya daha yeni bir sürüm kullanıyorsanız, güçlü yeni özelliği olan Hızlı Doldurma, yukarıda girdiğiniz hücrelere dayanarak diğer hücreleri otomatik olarak doldurabilir.

İlk orijinal verinin yanındaki bir hücreyi seçin ve aşağıdaki gibi ilk veriyi son ekiyle birlikte elle yazın:

Ardından ilk sonucun altındaki hücreye gelip Veri > Hızlı Doldurma seçeneğine tıklayın; etkin hücre dahil olmak üzere tüm alttaki hücreler otomatik olarak doldurulacaktır.

2,3 VBA kodu kullanarak hücrelerin sonuna ekleme

İşte bir hücre aralığındaki her hücrenin sonuna "Metin Ekle" metnini ekleyebilecek VBA kodu.

1. Son eki 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. Ardından açılan pencerede yeni boş bir modül eklemek için şuna tıklayın: Ekle > Modül.

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. F5 tuşuna basın veya VBA kodunu çalıştırmak için penceredeki Çalıştır düğmesine tıklayın.

Artık "Kg" metni her hücrenin sonuna eklenmiştir.

Ç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 karakterinden hemen sonra iki nokta üst üste (:) gibi bir ayırıcı eklemek isteyebilirsiniz.

3,1 Formül kullanarak metnin n. karakterinden sonra ekleme yapın

Bu işi gerçekleştirmeniz için size dört formül sunulmuştur; kullanmak için birini seçin:

Formül 1: SOLDAN ve SAĞDAN işlevlerini birleştirin

LEFT(cell, n) & "metin" & RIGHT(cell, LEN(cell) -n)

Formula2 COMBINE CONCATENATE(CONCAT), SAĞDAN ve UZUNLUK işlevleri

CONCATENATE(LEFT(cell, n), "text", RIGHT(cell, LEN(cell) -n))

Veya

CONCAT(LEFT(cell, n), "text", RIGHT(cell, LEN(cell) -n))

Formül 3: DEĞİŞTİR işlevi

REPLACE(cell, n+1, 0, "text")

Genel formüllerde: **hücre**, içine metin eklemek istediğiniz hücreye yapılan başvurudur; **metin**, hücreye eklemek istediğiniz ifadeyi temsil eder; **n** ise metnin ekleneceği konumu, yani metin dizesindeki karakter sırasını belirtir.

Yukarıda belirtilen işi çözmek için lütfen aşağıdaki formülleri kullanın:

SOLDAN ve SAĞDAN işlevlerini birleştirin

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

COMBINE CONCATENATE(CONCAT), SAĞDAN ve UZUNLUK işlevleri

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

DEĞİŞTİR işlevi

=REPLACE(B3, 2+1, 0, ":")veya =REPLACE(B3, 2+1, 0, $E$3)

Sonucu almak için Enter tuşuna basın, ardından otomatik doldurma tutamacını sürükleyerek B3:B7 aralığındaki her hücrenin ikinci karakterinden sonra Metin Ekle işlemini uygulayın.

3,2 Hızlı Doldurma ile metnin n. karakterinden sonra ekleme yapın

Excel 2013 veya daha yeni bir sürüm kullanıyorsanız, Hızlı Doldurma özelliği, yukarıdaki hücrelerde girdiğiniz verilere dayanarak diğer hücreleri otomatik olarak doldurabilir.

İlk orijinal verinin yanındaki bir hücreyi seçin ve aşağıdaki gibi ilk veriyi ikinci karakterden sonra iki nokta üst üste ekleyerek elle yazın:

Ardından ilk sonucun altındaki hücreye gelip Ctrl+E tuşlarına basarak Hızlı Doldurma komutunu çalıştırın; etkin hücre dahil olmak üzere tüm alttaki hücreler otomatik olarak doldurulur.

3,3 VBA koduyla metnin n. karakterinden sonra ekleme yapın

Bu işi yapan bir VBA kodu da bulunmaktadır.

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

2. Ardından açılan pencerede şuna tıklayın:Ekle>ModülYeni, 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. VBA kodunu çalıştırmak için F5 tuşuna basın veya penceredeki Çalıştır düğmesine tıklayın. Metin eklemek istediğiniz hücreleri seçmek için bir iletişim kutusu açılır.

5. Tamam düğmesine tıklayın. Artık ":" metni, B19:B23 aralığındaki her hücrenin ikinci karakterinden sonra eklenmiştir.

Formüllerden ve VBA'dan bıktıysanız, size Kutools for Excel adlı güçlü ve kullanışlı aracı denemenizi öneririz; bu araç, Metin Ekle özelliğiyle işinizi kolaylaştırabilir.

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

• Metin Ekle İlk karakterden önce
• Metin Ekle Son karakterden sonra
• Metin Ekle belirtilen konumlara
• Uzantı
  Metin Ekle 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 eklemek istediğiniz hücreleri seçin, ardından Kutools > Metin > Metin Ekle seçeneğine tıklayarak Metin Ekle özelliğini uygulayın.

4,1 Metin Ekle: İlk karakterden önce veya son karakterden sonra

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

Eklemeyi tamamlamak için Uygula veya Tamam düğmesine tıklayın.

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

Eklemeyi tamamlamak için Uygulaveya Tamamdüğmesine tıklayın.

4,2 Belirtilen konum(lar)a Metin Ekle ekleme

Bazen hücrenin ortasına Metin Ekle eklemek veya hücrenin birkaç konumuna Metin Ekle eklemek isteyebilirsiniz. Örneğin, aşağıdaki ekran görüntüsünde gösterildiği gibi sosyal güvenlik numaralarının üçüncü ve yedinci rakamlarından sonra "-" ayırıcısı eklemek istediğinizi varsayalım:

Metin Ekle iletişim kutusunda Metin Ekle’yi seçtikten sonra, metni Metin metin kutusuna yazın ve Belirt seçeneğini işaretleyin. Ardından, konumları virgülle ayırarak metin kutusuna girin ve Tamam veya Uygula düğmesine tıklayın.

4,3 Metin Ekle aracı uzantısı

Normal konumlara (Metin Ekle başlangıç, son ve belirtilen konum) eklemenin yanı sıra, Metin Ekle aracı ayrıca Metin Ekle desteğini de sağlar.

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

Metin Ekle iletişim kutusunda, Metin Ekle seçeneğine tıklayın, metni Metin metin kutusuna yazın ve Yalnızca şunlara ekle seçeneğini işaretleyin. Ardından, aşağı açılan menüye tıklayarak ihtiyacınıza uygun işlemi seçin.

Metin Ekle özelliğinin yanı sıra, Kutools for Excel’in Excel’de çeşitli işlerinizde size yardımcı olabilecek 300’den fazla kullanışlı özelliği daha bulunuyor; hemen ücretsiz indirin!

Bu bölüm, Excel’de belirli bir metnin ilk görüldüğü yerden önce veya sonra metin eklemek için kullanabileceğiniz formülleri sunar.

5,1 İlk belirli metinden önce Metin Ekle

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

Excel’de bu görevi ÇEVİR (REPLACE) ve DEĞİŞTİR (SUBSTITUTE) işlevleri çözebilir.

DEĞİŞTİR işlevi

REPLACE(cell,FIND("find_text",cell),0,"add_text")

DEĞİŞTİR (SUBSTITUTE) işlevi

DEĞİŞTİR(hücre;"bulunacak_metin";"değiştirilecek_metin";1)

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

=REPLACE(B4,FIND("price",B4),0,"(sale)")

Veya

=SUBSTITUTE(B4,"price","(sale)price",1)

Bu durumdaki formül bağımsız değişkenleri şunlardır:

Hücre: B4,

Bulunacak_metin: price,

Eklenecek_metin: (sale),

(sale)price.

Enter tuşuna basarak ilk ekleme sonucunu alın, ardından formüle ihtiyaç duyan diğer hücrelere kadar 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ücredeki ilk iki nokta üst üste ":" işaretinden sonra para birimi sembolü "$" eklemek istiyorsunuz:

Excel’de bu görevi ÇEVİR (REPLACE) ve DEĞİŞTİR (SUBSTITUTE) işlevleri kolayca halledebilir.

DEĞİŞTİR işlevi

REPLACE(cell,FIND("find_text",cell),find_text_length,"replace_text")

DEĞİŞTİR (SUBSTITUTE) işlevi

DEĞİŞTİR(hücre;"bulunacak_metin";"değiştirilecek_metin")

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

=REPLACE(B12,FIND(":",B12),1,":$")

Veya

=SUBSTITUTE(B12,":",":$")

Bu durumdaki formül bağımsız değişkenleri şunlardır:

Hücre: B12,

Bulunacak_metin: :,

Değiştirilecek_metin::$.

Bulunacak_metin_uzunluğu:1

Enterİlk ekleme sonucunu almak için tuşuna basın, ardından formüle ihtiyaç duyan diğer hücrelere ulaşana kadar otomatik doldurma tutamacını sürükleyin.

Bu öğreticinin bu bölümünde, hücredeki her kelimenin başına veya sonuna karakter eklemenize yardımcı olmak için üç farklı yöntem (formül, Bul ve Değiştir ve VBA) tanıtılıyor.

Her kelimenin önüne karakter ekleyin

Her kelimenin sonuna karakter ekleyin

6,1 Her kelimenin başına veya sonuna karakter(ler) ekleme (formülle)

Bu görevi çözmek için DEĞİŞTİR (SUBSTITUTE) işlevi kullanılabilir; genel formüller şöyledir:

Her kelimenin başına ekle

"karakter"&DEĞİŞTİR(dizge; " ";" karakter")

Her kelimenin sonuna ekle

DEĞİŞTİR(dizge;" ";"karakter ")&"karakter"

B3:B6 aralığındaki listede her kelimenin başına "+" eklemek istediğinizi varsayalım; bu durumda aşağıdaki formülü kullanın:

="+"&SUBSTITUTE(B3, " "," +")

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

B11:B14 aralığındaki listenin her kelimesinin sonuna ($) eklemek istediğinizi varsayalım; bu durumda aşağıdaki formülü kullanın:

=SUBSTITUTE(B11," ","($) ")&"($)"

Enterİlk sonucu almak için tuşuna basın, ardından tüm sonuçları almak için otomatik doldurma tutamacını aşağı doğru sürükleyin.

6,2 Her kelimenin başına veya sonuna Bul ve Değiştir ile karakter(ler) ekleme

İlk kelimeyi hariç tutarak her kelimenin başına karakter eklemek veya son kelimeyi hariç tutarak her kelimenin sonuna karakter eklemek istiyorsanız (aşağıdaki ekran görüntüsünde gösterildiği gibi), Excel’in yerleşik Bul ve Değiştir aracı bu görevi kolayca yerine getirebilir.

İlk kelimeyi hariç tutarak her kelimenin başına ekle

Son Son Bir hariç her kelimenin sonuna ekle

1. Karakterleri her kelimenin başına veya sonuna eklemek istediğiniz hücreleri seçin, ardından Ctrl+H tuşlarına basarak Bul ve Değiştir iletişim kutusunu açın.

2. Ne araştırılıyor metin kutusuna bir boşluk girin, ardından Şununla değiştir metin kutusuna boşlukla birlikte yeni karakterler girin ve son olarak Tümünü Değiştir düğmesine tıklayın.

Burada her kelimenin başına veya sonuna karakter eklemek için iki VBA kodu sunuluyor; aşağıdaki adımları izleyerek kodu çalıştırın.

1. Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini etkinleştirin.

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

3. Aşağıdaki VBA kodunu kopyalayıp modüle 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. Kodu çalıştırmak için F5tuşuna basın (veya)Çalıştır düğmesine tıklayabilirsiniz ). Ardından, ardışık hücreleri seçmenizi isteyen bir iletişim kutusu açılacaktır; Tamam düğmesine tıklayın.

5. İkinci açılan iletişim kutusuna eklemek istediğiniz karakterleri yazın ve Tamam düğmesine tıklayın.

Ardından karakterler her kelimenin başına veya sonuna eklenir.

Bazen her karakter arasına Metin Ekle isteyebilirsiniz. Bu bölümde iki senaryo ele alınmaktadır: birincisi her karakter arasına Metin Ekle eklemek, diğeri ise her rakam arasına boşluk eklemektir.

7,1 Kullanıcı Tanımlı işlev ile her karakter/rakam arasına Metin Ekle ekleme

Bir dizgedeki her karakter arasına karakter eklemek için Kullanıcı Tanımlı işlev size yardımcı olabilir.

Bu örnekte her karakter arasına bir boşluk ekliyoruz.

1. Alt+F11tuşlarına basarak Microsoft Visual Basic for ApplicationsPenceresini açın.

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

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

Karakterler arasına Metin Ekle ekleme

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 kaydedin ve çalışma sayfasına dönmek için Bu pencereyi kapat, ardından ekleme sonucunu yerleştirmek istediğiniz hücreye aşağıdaki formülü yazın.

=AddText(B3)

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

Sonucu almak için Enter tuşuna basın, ardından diğer sonuçları almak için otomatik doldurma tutamacını gerektiği kadar sürükleyin.

7,2 Formül ile her rakam arasına boşluk ekleme

Eğer sayısal bir değer olan bir dizgedeki rakamlar arasına boşluk eklemek istiyorsanız, METİN (TEXT) işlevini kullanabilirsiniz.

Varsayalım ki B10:B12 aralığında 8 haneli bir sayı listesi bulunmaktadır; sonucun yerleştirileceği bir hücreye aşağıdaki formülü yazın:

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

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

Sayıların uzunluğu 5 ise, formül şu şekilde değişir:=TEXT(B10,"# # # # #").

Her kelime arasına karakter(ler) eklemek istiyorsanız — örneğin aşağıdaki ekran görüntüsünde gösterildiği gibi ilk, orta ve Soyad arasına boşluk eklemek — bir Kullanıcı Tanımlı işlev kullanabilirsiniz.

1. Alt+F11tuşlarına basarak Microsoft Visual Basic for Applicationspenceresini açın.

2. Açılan pencerede,Ekle>Modülseçeneğine tıklayarak yeni bir boş modül ekleyin.

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

Kelimeler arasına karakter ekleme

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 kaydedin ve çalışma sayfasına geri dönmek için bu pencereyi kapatın; ardından toplama sonucunu yerleştirmek istediğiniz hücreye aşağıdaki formülü girin.

=AddCharacters(B3)

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

5. Sonucu almak için Enter tuşuna basın; gerektiğinde diğer sonuçları almak için otomatik doldurma tutamacını hücreler üzerine sürükleyin.

Aşağıdaki ekran görüntüsünde gösterildiği gibi Metin ve Sayıya Göre Böl arasına belirli karakter(ler) eklemek için burada iki yöntem sunulmaktadır.

9,1 Metin ve Sayıya Göre Böl arasına formülle karakter ekleme

Metinler sayıların önünde yer alıyorsa, genel formül şöyledir:

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

Yukarıdaki örneği baz alarak lütfen 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,"-"))

İlk sonucu almak için Enter tuşuna basın, ardından formülü diğer hücrelere doldurmak için otomatik doldurma tutamacını sürükleyin.

Sayılar metinlerin önünde yer alıyorsa, genel formül şöyledir:

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

Yukarıdaki örneği baz alarak lütfen 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}, ""))))

İlk sonucu almak için Entertuşuna basın, ardından bu formülü diğer hücrelere doldurmak için otomatik doldurma tutamacını sürükleyin.

9,2 Metin ve Sayıya Göre Böl arasına Hızlı Doldurma ile karakter ekleme

Excel 2013 veya daha sonraki sürümleri kullanıyorsanız, Hızlı Doldurma özelliği, Metin ve Sayıya Göre Böl arasında karakter(ler) eklemenize yardımcı olabilir.

Orijinal verilerin yanına, “Metin ve Sayıya Göre Böl” arasında belirtilen karakter(ler)i ekleyerek yeni veriyi yazın. Ardından ilk sonucun altındaki hücreye geçmek için Enter tuşuna basın.

Hızlı Doldurma özelliğini etkinleştirmek için Ctrl+E tuşlarına basın.

Eklenti

Bu öğreticide ayrıca günlük yaşamımızda veya iş hayatımızda karşılaşabileceğimiz Metin Ekle ile ilgili bazı senaryolar da listelenmektedir.

Bazen, aşağıdaki ekran görüntüsünde gösterildiği gibi seri numaralarına veya sosyal güvenlik numaralarına tire gibi ayırıcılar eklemeniz gerekebilir. Yüzlerce numaraya manuel olarak tire eklemek oldukça yorucu olabilir. Bu bölümde, bu işlemi hızlıca tamamlamanız için üç pratik yöntem sunuluyor.

10,1 Formülle sayılara tire ekleme

Sayılara hızla tire ekleyebileceğiniz iki formül aşağıdadır. B3 hücresindeki sayının üçüncü ve altıncı rakamlarından sonra tire eklemek için aşağıdaki formüllerden birini kullanın:

DEĞİŞTİR işlevi

=REPLACE(REPLACE(B3,4,0,"-"),8,0,"-")

METİN fonksiyonu

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

İlk sonucu almak için Enter tuşuna basın, ardından diğer hücrelere uygulamak için otomatik doldurma tutamacını sürükleyin.

10,2 Sayılara Hücre biçimini ayarlar ile tire ekleme

Sayılara doğrudan orijinal hücrelerinde tire eklemek istiyorsanız, 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 Ayarla iletişim kutusunu açın.

2. Hücre Biçimini Ayarla iletişim kutusunda, Sayı sekmesindeki Kategori bölümünden Özel seçeneğini seçin.

3. Ardından sağdaki Tür bölümüne, metin kutusuna ###-###-### yazın ve Tamam'a tıklayın.

Artık seçili sayıların arasına tireler eklenmiştir.

10,3 Telefon Numarası'na Kutools for Excel'nin Metin Ekle özelliğiyle tire ekleme

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

1. Tire eklenmesi gereken sayıları içeren hücreleri seçin,Kutools>Metin>Metin Ekle'a tıklayın.

2. Metin Ekle iletişim kutusunda, Metin metin kutusuna tire veya başka bir ayırıcı girin, Belirt seçeneğini seçin ve ardından tire eklemek istediğiniz konumları virgülle ayırarak alttaki metin kutusuna yazın.

3. Tamam veya Uygula'ya tıklayın. Böylece seçili sayılara tireler eklenmiş olacak.

30 günlük ücretsiz deneme için Metin Ekle'i indirin.

Farklı uzunluklarda bir sayı listesi olduğunu ve aşağıdaki ekran görüntüsünde gösterildiği gibi hepsini aynı uzunluğa getirip düzenli görünmeleri için başlarına sıfır eklemek istediğinizi varsayalım. Bu işi halletmeniz için size iki yöntem sunulmaktadır.

11,1 Hücrelere Hücre biçimini ayarlar özelliğiyle baştaki sıfırları ekleme

Baştaki sıfırları ekleyerek hücre uzunluğunu sabitlemek için Hücre biçimini ayarlar özelliğini kullanabilirsiniz.

1. Başına sıfır eklemek istediğiniz hücreleri seçin, ardından Ctrl+1 tuşlarına basarak Hücre Biçimini Ayarla iletişim kutusunu açın.

2. Hücre biçimini ayarlariletişim kutusunda,Sayısekmesinden Özelseçeneğini Kategoribölümünden seçin.

3. Ardından sağdaki Tür bölümüne, metin kutusuna 0000 yazın (4 basamaklı bir sayı uzunluğu oluşturmak için 0000 yazın; uzunluğu değiştirmek isterseniz, örneğin 5 basamak için 00000 yazabilirsiniz) ve Tamam'a tıklayın.

Artık tüm sayılar baştaki sıfırlarla tamamlanmış ve eşit uzunluğa getirilmiştir.

11,2 Formül'na baştaki sıfırları ekleme

Orijinal verileri değiştirmek istemiyorsanız, sayıların başına sıfır eklemek için formülü başka bir konuma uygulayabilirsiniz.

Size yardımcı olabilecek üç fonksiyon aşağıdadır.

Formül 1: METİN fonksiyonu

TEXT(number,"00…")

Formül 2: SAĞDAN fonksiyonu

RIGHT("00…"&number,length)

Formül 3: TABAN fonksiyonu

TABAN(sayı,10,uzunluk)

Formüldeki sıfır sayısı, sayının basamak sayısına eşittir.

Burada sayı uzunluğunu 4 basamak olarak belirlediğinizi varsayarsak, aşağıdaki formülleri kullanın:

=TEXT(B10,"0000")

=RIGHT("0000"&,B10,4)

=BASE(B10,10,4)

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

Sayılara sabit bir uzunluk kazandırmak amacıyla sondan sıfır eklemek istiyorsanız—örneğin B3:B7 aralığındaki tüm sayıları 5 basamaklı hale getirmek için—bunu gerçekleştirmek üzere bir formül kullanabilirsiniz.

TEKRARLA fonksiyonu

number&REPT("0",length-LEN(number))

Formülde "sayı" argümanı, sonuna sıfır eklemek istediğiniz sayıyı veya bir hücre başvurusunu temsil eder; "uzunluk" argümanı ise hedeflenen sabit uzunluğu belirtir.

Lütfen aşağıdaki formülü kullanın:

=B3&,REPT("0",5-LEN(B3))

Enter tuşuna basın ve bu formüle ihtiyaç duyan hücrelere kadar otomatik doldurma tutamacını aşağı doğru sürükleyin.

Bir çalışma sayfasından verileri bir not defterine dışa aktarmak veya kopyalamak istediğinizde, hücre değerlerinin farklı uzunluklardan dolayı metinler dağınık görünebilir. Aşağıdaki ekran görüntüsünde gösterildiği gibi düzenli bir görünüm elde etmek için metinlerin sonuna boşluk eklemeniz gerekir.

Bu işi çözmek için REPT işlevi size yardımcı olabilir.

LEFT(text & REPT(" ",max_length),max_length)

Formülde "text" (metin) bağımsız değişkeni, sonuna boşluk eklemek istediğiniz metin veya hücre başvurusudur; "max_length" (maksimum uzunluk) bağımsız değişkeni ise metinlerin sahip olması istediğiniz sabit uzunluğu belirtir ve bu değer, kullanılan metinlerin en uzunundan büyük ya da ona eşit olmalıdır.

B3:C6 aralığındaki metinlere sonuna boşluk eklemek için aşağıdaki formülü kullanın:

=LEFT(B3 &, REPT(" ",10),10)

Enter tuşuna bastıktan sonra, formülü uygulamak istediğiniz tüm hücrelere otomatik doldurma tutamacını sürükleyin.

Bu örnekte, kullanılan metinlerin en uzunu 9 karakter olduğu için burada 10’u kullanıyoruz.

Bazen, aşağıdaki ekran görüntüsünde gösterildiği gibi hücrelerdeki metinleri veya sayıları tırnak işaretleri ya da parantez içine almanız gerekebilir. Excel’de bunu tek tek elle yazmak yerine hızlıca yapmanıza yardımcı olacak iki pratik yöntem vardır.

14,1 Hücre biçimini ayarlar ile tırnak/parantez ekleme

Orijinal verilerdeki metinlerin etrafına tırnak işaretleri eklemek istiyorsanız, Excel’deki “Hücre Biçimini Ayarla” özelliği tam da size göre!

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

2. Hücre Biçimini Ayarla iletişim kutusunda, Sayı sekmesinde Özel kategorisini seçin. Ardından sağ bölüme gidip Kategori listesinden "''"@"''" ifadesini Tür metin kutusuna yazın ve Tamam'a tıklayın.

Seçili hücrelerdeki metinlerin etrafına tırnak işaretleri eklenmiştir.

Metnin etrafına parantez eklemek istiyorsanız, Hücre Biçimi Ayarlar iletişim kutusundaki Tür metin kutusuna (@) girin.

14,2 Formüllerle tırnak/parantez ekleme

Diğer hücrelerdeki metinlere tırnak işareti eklemek için formüller de kullanılabilir.

& bağlayıcısını kullanma

""""&metin&""""

Veya

char(34)&metin&char(34)

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

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

Veya

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

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

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

14,3 VBA ile tırnak/parantez ekleme

Bu sorunu çözmek için VBA koduna ihtiyacınız varsa, işte size bir VBA örneği.

1. Alt+F11tuşlarına basarak Microsoft Visual Basic for Applicationspenceresini açın.

2. Ardından açılan pencerede Ekle > Modül seçeneğine 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 ekleme

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. VBA kodunu çalıştırmak için F5 tuşuna basın veya penceredeki Çalıştır düğmesine tıklayın. Tırnak eklemek için hücre seçmenizi sağlayan bir iletişim kutusu açılacaktır.

5. Tamam'a tıklayın. Artık seçili hücrelerdeki metinler tırnak içine alınmıştır.

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 Ekle eklemeniz gerekebilir. Formüle metin eklemek için metni tırnak işaretleri arasına alın ve metin ile formülü birleştirmek için & bağlayıcısını kullanın.

Durum 1 formülden önce Metin Ekle

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

Durum 2 formülden sonra Metin Ekleformül

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

Durum 3 formülün her iki tarafında Metin Ekle

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

---

En İyi Ofis Verimlilik Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi 80 % Artırır

• Süper Formül Çubuğu (birden fazla metin satırını ve formülü kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtre Aralığı'na Yapıştır…
• Birleştirilmiş Hücreler/Satırlar/Sütunlar ve Verileri Koruma; Hücreleri Böl İçeriği; Yinelenen Satırları Birleştir ve Topla/Ortalama Al… Tekrarlanan Girişleri Önleyin;Aralıkları Karşılaştırın…
• Yinelenen veya Benzersiz Satırları Seçin; Boş Satırları Seçin (tüm hücreler boş); Süper Bul ve Yaklaşık AramaÇok Sayıda Çalışma Kitabında; Rastgele Seçim…
• Tam Kopyala formül referansını değiştirmeden birden fazla hücreye;Otomatik Referans Oluştur birden fazla sayfaya;Madde İşaretleri Ekle, onay kutusu ve daha fazlası…
• Sık Kullanılanlar ve Hızlı Formül Ekleme, Aralıklar, Grafikler ve Resimler; Hücreleri Şifrele şifreyle; Posta Listesi Oluşturve e-posta gönderme…
• Metni Çıkart, Metin Ekle, Belirli Konumdaki Karakteri Sil, Boşlukları Kaldır; Veri Sayfası İstatistikleri Oluştur ve Yazdır; Hücre İçeriği ile Açıklamalar Arasında Dönüştür…
• Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama Ay/Hafta/Gün, sıklık ve daha fazlasına göre; Özel FiltreKalın, İtalik… gibi biçimlendirmeye göre
• Çalışma Kitaplarını ve Sayfalarını Birleştirin; tabloları, anahtar sütuna göre birleştirin; veriyi birden fazla sayfaya bölün; xls, xlsx ve PDF dosyalarını topluca dönüştürün…
• PivotTable Gruplama ile hafta numarası, haftanın günü ve daha fazlası… Kilitli Olmayanları Göster, Seçimi Kilitle farklı renklerle; Formül/Ad İçeren Hücreleri Vurgulayın…

Daha Fazla Bilgi Edinin…Tüm Özelliklerle 30 Günlük Ücretsiz Deneme…Satın Alın… 

---

Office Tab - Office'a sekmeli arayüz getirir ve işinizi çok daha kolay hale getirir

• Word, Excel ve PowerPoint'te sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
• Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
• Verimliliğinizi %50 artırır ve size her gün yüzlerce fare tıklamasından tasarruf sağlar!

Daha Fazla Bilgi Edinin…Tüm Özelliklerle 30 Günlük Ücretsiz Deneme…Satın Alın…