Excel, hücrenin belirtilen konumuna metin ve sayı ekler
Excel'de hücrelere metin veya sayı eklemek çok yaygın bir iştir. Adlar arasına boşluk ekleme, hücrelere ön ek veya son ek ekleme, sosyal sayılara tire ekleme gibi. İşte bu öğreticide, Excel'de neredeyse tüm ekleme senaryolarını listeler ve sizin için karşılık gelen yöntemleri sağlar.
not
Bu derste yöntemleri açıklamak için bazı örnekler oluşturuyorum, aşağıdaki VBA kodunu veya formülleri kullandığınızda ihtiyacınız olan referansları değiştirebilir veya doğrudan yöntemleri denemek için örnekleri indirebilirsiniz.
Örnek dosyayı indirmek için tıklayın
Bu bölüm, aşağıda gösterilen ekran görüntüsü gibi her hücrenin başına karakter eklemeyle ilgili farklı yöntemleri listeler:
1.1 Formül kullanarak hücrelerin başına ekleyin
Burada aşağıdaki üç formülden birini seçebilirsiniz:
Formula1 Birleştirme operatörü "&"
Birden çok metni ve işareti "&" ile birleştirin.
"metin"&hücre
Formula2 BİRLEŞTİR işlevi
BİRLEŞTİR işlevi metinleri birleştirmek için kullanılır.
BİRLEŞTİR("metin",hücre)
Formula3 BİRLEŞTİR işlevi
Bu, yalnızca çevrimiçi olarak Excel 2019, Office 365 ve Excel'de görünen yeni bir işlevdir.
BİRLEŞTİR("metin",hücre)
Genel formüllerde: hücre, önek eklemek istediğiniz metnin hücre başvurusudur ve metin, hücreye eklemek için kullanılan metindir.
Yukarıdaki örneği kullanarak formül çubuğundaki formülleri şu şekilde kullanabilirsiniz:
"&"
=$E$3&B3 or ="Iphone"&B3
BİRLEŞTİR işlevi
=BİRLEŞTİR($E$3;B3) or =BİRLEŞTİR("Iphone",B3)
CONCAT işlevi
=BİRİŞTİR($E$3,B3) or =BİRİŞTİR("Iphone",B3)
Basın Keşfet tuşuna basın, ardından B3:B6 aralığındaki her hücreye metin eklemek için otomatik doldurma tutamacını aşağı sürükleyin.
Dikkat: Metin çift tırnak içine alınmalıdır, yoksa formül #NAME?? hata değerini döndürür. Bir metne hücre referansı kullanıyorsanız, lütfen mutlak referansı kullanmayı unutmayın, göreli referansı mutlak referansa değiştirmek için F4 tuşuna basabilirsiniz. |
1.2 Hızlı Doldurma ile hücrelerin başına ekleme
Excel 2013 veya sonraki sürümlerdeyseniz, güçlü yeni özellik, Dolgu Dolgu, otomatik olarak girdiğiniz yukarıdaki hücrelere göre hücreleri doldurabilir.
İlk orijinal verinin yanında bir hücre seçin, aşağıda gösterildiği gibi önek metniyle ilk veriyi manuel olarak yazın:
Ardından alttaki hücreye önek metni ile ikinci veriyi yazmaya devam edin, yazarken gri renkli bir liste görüntülenecektir, tuşuna basın Keşfet Hızlı Doldurmanın verileri otomatik olarak doldurmasını sağlamak için tuşuna basın.
Önizleme listesi oluşmazsa, lütfen Ana Sayfa sekmesine gidin ve ardından Doldurmak > Dolgu Dolgu manuel olarak çalıştırmak için.
1.3 VBA kodunu kullanarak hücrelerin başına ekleyin
VBA koduna aşina iseniz, burada bir aralıktaki her hücrenin başına metin eklemek için bir VBA kodu tanıtılmaktadır.
1. Ön ek metnini eklemek istediğiniz hücre aralığını seçin, ardından Ara Toplam + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. Ardından açılan pencerede Ekle > modül boş yeni bir modül eklemek için
3. Aşağıdaki VBA kodunu kopyalayıp 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
Dikkat: kod komut dosyasında, iphone seçili hücrelerin başına eklemek istediğiniz metindir, ihtiyacınıza göre değiştirin. |
4. Basın F5 anahtar veya tıklama koşmak düğmesine tıklayın VBA kodunu etkinleştirmek için pencerede.
Şimdi seçilen tüm hücrelere başlangıçta "Iphone" metni eklendi.
Hücrelerin başına metin eklemek dışında, hücrelerin sonuna metin eklemek de yaygındır. Burada, aşağıda gösterilen ekran görüntüsü gibi örnekler için her hücrenin sonuna birim ekleme alıyoruz:
2.1 Formül kullanarak hücrelerin sonuna ekleyin
Burada aşağıdaki üç formülden birini seçebilirsiniz:
Formula1 Birleştirme operatörü "&"
Birden çok metni ve işareti "&" ile birleştirin.
Hücre&"metin"
Formula2 BİRLEŞTİR işlevi
BİRLEŞTİR işlevi metinleri birleştirmek için kullanılır.
BİRLEŞTİR(hücre;"metin")
Formula3 BİRLEŞTİR işlevi
Bu, yalnızca çevrimiçi olarak Excel 2019, Office 365 ve Excel'de görünen yeni bir işlevdir.
BİRLEŞTİR(hücre;"metin")
Genel formüllerde: hücre, son ek eklemek istediğiniz metnin hücre başvurusudur ve metin, hücreye eklemek için kullanılan metindir.
Yukarıdaki örneği kullanarak formül çubuğundaki formülleri şu şekilde kullanabilirsiniz:
"&"
=B3&$E$3 or =B3&"Kg"
BİRLEŞTİR işlevi
=BİRLEŞTİR(B3, $E$3) or =BİRLEŞTİR(B3, "Kg")
CONCAT işlevi
=BİRİŞTİR(B3, $E$3) or =BİRİŞTİR(B3, "Kg")
Basın Keşfet tuşuna basın, ardından B3:B6 aralığındaki her hücrenin sonuna metin eklemek için otomatik doldurma tutamacını aşağı sürükleyin.
Dikkat: Metin çift tırnak içine alınmalıdır, yoksa formül #NAME?? hata değerini döndürür. Bir metne hücre referansı kullanıyorsanız, lütfen mutlak referansı kullanmayı unutmayın, göreli referansı mutlak referansa değiştirmek için F4 tuşuna basabilirsiniz. |
2.2 Hızlı Doldurma ile hücrelerin sonuna ekleme
Excel 2013 veya sonraki sürümlerdeyseniz, güçlü yeni özellik, Dolgu Dolgu, otomatik olarak girdiğiniz yukarıdaki hücrelere göre hücreleri doldurabilir.
İlk orijinal verinin yanında bir hücre seçin, aşağıda gösterildiği gibi son ek metniyle ilk veriyi manuel olarak yazın:
Ardından ilk sonucun altındaki hücreyi etkinleştirin, tıklayın Veri > Dolgu Dolgu, aktif hücre dahil tüm alttaki hücreler otomatik olarak doldurulacaktır.
2.3 VBA kodunu kullanarak hücrelerin sonuna ekleyin
İşte bir VBA kodu, bir aralıktaki her hücrenin sonuna metin ekleyebilir.
1. Son ek metnini eklemek istediğiniz hücre aralığını seçin, ardından Ara Toplam + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. Ardından açılan pencerede Ekle > modül boş yeni bir modül eklemek için
3. Aşağıdaki VBA kodunu kopyalayıp yeni modüle 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
Dikkat: kod komut dosyasında, Kg seçili hücrelerin sonuna eklemek istediğiniz metindir, ihtiyacınıza göre değiştirin. |
4. Basın F5 anahtar veya tıklama koşmak düğmesine tıklayın VBA kodunu etkinleştirmek için pencerede.
Şimdi 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 belki biraz zordur. Aşağıda gösterilen ekran görüntüsü gibi, B3:B7 aralığındaki her hücrenin ikinci karakterinin sonuna iki nokta üst üste : gibi bir sınırlayıcı ekleyerek örnek alın.
3.1 Dizenin n. karakterinden sonra formülle ekleyin
Bu işi halletmek için size sağlanan dört formül var, kullanmak için birini seçin:
Formula1 SOL ve SAĞ işlevlerini birleştirin
SOL(hücre; n) & "metin" & SAĞ(hücre, UZUNLUK(hücre) -n)
Formula2 COMBINE CONCATENATE(CONCAT), SAĞ ve UZUNLUK işlevleri
BİRLEŞTİR(SOL(hücre; n), "metin", SAĞ(hücre; UZUNLUK(hücre) -n))
Or
BİRLEŞTİR(SOL(hücre; n), "metin", SAĞ(hücre, UZUNLUK(hücre) -n))
Formula3 DEĞİŞTİR işlevi
DEĞİŞTİR(hücre, n+1, 0, "metin")
Genel formüllerde: hücre, ortadaki metin eklemek istediğiniz metnin hücre başvurusudur ve metin, hücreye eklemek için kullanılan metindir, n, metin dizesinde hangi karakterden sonra eklemek istediğinizi tanımlayan sayıdır. yazı ekle.
Yukarıda belirtilen işi çözmek için lütfen aşağıdaki formülleri kullanın:
SOL ve SAĞ işlevlerini birleştirin
=SOL(B3, 2) & ":" & SAĞ(B3, UZUNLUK(B3) -2) or =SOL(B3, 2) & $E$3 & SAĞ(B3, UZUN(B3) -2)
COMBINE CONCATENATE(CONCAT), RIGHT ve UZUNLUK işlevleri
=BİRLEŞTİR(SOL(B3, 2), ":", SAĞ(B3, UZUNLUK(B3) -2)) or =BİR KAT (SOL(B3, 2), ":", SAĞ(B3, UZUNLUK(B3) -2))
DEĞİŞTİR işlevi
=DEĞİŞTİR(B3, 2+1, 0, ":") or =DEĞİŞTİR(B3, 2+1, 0, $E$3)
Basın Keşfet tuşuna basın, ardından B3:B7 aralığındaki her hücrenin ikinci karakterinden sonra metin eklemek için otomatik doldurma tutamacını aşağı sürükleyin.
Dikkat: Metin çift tırnak içine alınmalıdır, yoksa formül #NAME?? hata değerini döndürür. Bir metne hücre referansı kullanıyorsanız, lütfen mutlak referansı kullanmayı unutmayın, göreli referansı mutlak referansa değiştirmek için F4 tuşuna basabilirsiniz. |
3.2 Hızlı Doldurma ile dizenin n. karakterinden sonra ekleme
Excel 2013 veya sonraki sürümlerindeyseniz, Dolgu Dolgu, otomatik olarak girdiğiniz yukarıdaki hücrelere göre hücreleri doldurabilir.
İlk orijinal verinin yanında bir hücre seçin, aşağıda gösterildiği gibi ikinci karakterden sonra iki nokta üst üste ile ilk veriyi manuel olarak yazın:
Ardından ilk sonucun altındaki hücreyi etkinleştirin, tuşuna basın. Ctrl + E etkinleştirmek için tuşlar Dolgu Dolgu komutu, aktif hücre dahil tüm alttaki hücreler otomatik olarak doldurulur.
Dikkat: MAC sistemindeyseniz Command + E tuşlarına basın. |
3.3 VBA kodunu kullanarak dizenin n. karakterinden sonra ekleyin
Bir VBA kodu da bu işi yapabilir.
1. Basın Ara Toplam + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. Ardından açılan pencerede Ekle > modül boş yeni bir modül eklemek için
3. Aşağıdaki VBA kodunu kopyalayıp yeni modüle 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
Dikkat: kod komut dosyasında, 2 sayı, sonra metin eklemek istediğiniz konumu tanımlar, : eklemek istediğiniz metin, 3 2'nin toplamı ve eklediğiniz metnin uzunluğudur. Başka bir örnek alın, "AB" dizesinin ilk karakterinden sonra "ve" eklemek için komut dosyası Rng.Value = VBA.Left(Rng.Value, 1) & "ve" & VBA.Mid(Rng.Value, 4, VBA.Len(Rng.Değer) - 1) |
4. Basın F5 anahtar veya tıklama koşmak düğmesine tıklayın VBA kodunu etkinleştirmek için pencerede. Metin eklenecek hücreleri seçmek için bir iletişim kutusu açılır.
5. tık OK. Şimdi B19:B23 aralığındaki her hücrenin ikinci karakterinden sonra ":" metni eklendi.
Formüllerden ve VBA'dan sıkıldıysanız, güçlü ve kullanışlı bir araç deneyebilirsiniz, Kutools for Excelile size yardımcı olabilecek Metin ekle özelliği.
Bu Metin ekle özelliği şunları yapabilir:
- İlk karakterden önce metin ekle
- Son karakterden sonra metin ekle
- Belirtilen konumlara metin ekleyin
- Uzatma
Büyük harflerden önce metin ekle
Küçük harflerden önce metin ekleyin
Büyük/küçük harflerden önce metin ekleyin
Sayısal karakterlerden önce metin ekle
Şimdi 30 günlük ücretsiz deneme almak için tıklayın.
Metin eklemek istediğiniz hücreleri seçin, ardından simgesine tıklayarak Metin Ekle'yi uygulayın. Kutools > Metin > Metin ekle.
4.1 İlk karakterden önce veya son karakterden sonra metin ekleyin
içinde Metin ekle iletişim kutusunda hücrelere eklemek istediğiniz metni yazın. Metin metin kutusu, ardından kontrol edin İlk karakterden önce içinde Pozisyon Bölüm.
Tıkla Tamam or Ok eklemeyi bitirmek için.
Son karakterden sonra metin eklemek için hücrelere eklemek istediğiniz metni Metin metin kutusu, ardından kontrol edin Son karakterden sonra içinde Pozisyon Bölüm.
Tıkla Tamam or Ok eklemeyi bitirmek için.
4.2 Belirtilen konum(lar)da metin ekleyin
Bazen hücrenin ortasına metin eklemek veya hücrenin çeşitli konumlarına metin eklemek isteyebilirsiniz. Aşağıdaki ekran görüntüsü gibi sosyal sayıların üçüncü ve yedinci basamaklarından sonra "-" ayırıcı eklendiğini varsayalım:
içinde Metin ekle iletişim kutusuna metni yazın Metin textbox ve check Belirtmek seçeneğini belirleyin, ardından metin kutusuna ayırmak için virgül kullanarak konumları yazın ve ardından Ok or Tamam.
4.3 Metin Ekle yardımcı programının uzantısı
Normal konumlara (başlangıç, bitiş ve belirtilen konum) metin eklemenin yanı sıra, Metin ekle yardımcı program ayrıca metin eklemeyi de destekler
- Büyük harflerden önce
- Küçük harflerden önce
- Büyük/küçük harflerden önce
- Sayısal karakterlerden önce
içinde Metin ekle iletişim kutusuna metni yazın Metin textbox ve check Sadece ekle seçeneğini seçin, ardından ihtiyacınız olan işlemi seçmek için aşağıdaki açılır menüye tıklayın.
Bu bölüm, Excel'de ilk görünen belirli metinden önce veya sonra metin eklemeye ilişkin formüller sağlar.
5.1 İlk belirli metinden önce metin ekleyin
Örneğin, aşağıdaki ekran görüntülerinde gösterildiği gibi hücredeki ilk "fiyat" metninden önce "(satış)" metnini eklemek istiyorsunuz:
Excel'de DEĞİŞTİR ve DEĞİŞTİR işlevleri bu işi çözebilir.
DEĞİŞTİR işlevi
DEĞİŞTİR(hücre,BUL("metin bul",hücre),0,"metin ekle")
SUBSTITUTE işlevi
DEĞİŞTİR(hücre,"metin bul","metin değiştir",1)
Bu durumda, lütfen yukarıdaki formülleri şu şekilde kullanın:
=DEĞİŞTİR(B4,BUL("fiyat",B4),0,"(satış)")
Or
=İKAME(B4,"fiyat","(satış)fiyat",1)
Bu durumda formül argümanları
Hücre: B4,
Find_text: fiyat,
Add_text: (satış),
Replace_text:(satış)fiyat.
Basın Keşfet tuşuna basın, ardından otomatik doldurma tutamacını bu formüle ihtiyaç duyan hücrelerin üzerine sürükleyin.
5.2 İlk belirli metinden sonra metin ekleyin
Örneğin, aşağıdaki ekran görüntülerinde gösterildiği gibi hücredeki ilk iki nokta üst üste ":" den sonra para birimi simgesi "$" eklemek istiyorsunuz:
Excel'de DEĞİŞTİR ve DEĞİŞTİR işlevleri bu işi çözebilir.
DEĞİŞTİR işlevi
DEĞİŞTİR(hücre,BUL("metin bul",hücre),bul_metin_uzunluğu,"metni değiştir")
SUBSTITUTE işlevi
DEĞİŞTİR(hücre,"metin bul","metin değiştir")
Bu durumda, lütfen yukarıdaki formülleri şu şekilde kullanın:
=DEĞİŞTİR(B12,BUL(":",B12),1,":$")
Or
=İKAME(B12;":",":$")
Bu durumda formül argümanları
Hücre: B12,
Metin bul: :,
Değiştir_metin::$.
Bul_metin_uzunluğu:1
Basın Keşfet tuşuna basın, ardından otomatik doldurma tutamacını bu formüle ihtiyaç duyan hücrelerin üzerine sürükleyin.
Eğitimin bu bölümünde, her hücre sözcüğünden önce veya sonra karakter eklemenize yardımcı olacak üç farklı yöntem (formül, Bul ve Değiştir, VBA) tanıtılmaktadır.
Her kelimeden önce karakter ekleyin |
Her kelimeden sonra karakter ekle |
6.1 Her kelimenin önüne veya arkasına formülle karakter(ler) ekleyin
SUBSTITUTE işlevi bu işi çözmek için kullanılabilir, genel formüller şu şekildedir:
Her kelimeden önce ekleyin
"karakter"&YERİ(dize, " "," karakter")
Her kelimeden sonra ekle
İKAME(dize," ","karakter ")&"karakter"
B3:B6 listesindeki her kelimenin başına "+" eklendiğini varsayarsak, lütfen formülü şu şekilde kullanın:
="+"&YERİ(B3, " "," +")
Basın Keşfet tuşuna basın, ardından tüm sonuçları almak için otomatik doldurma tutamacını aşağı sürükleyin.
B11:B14 listesinin her kelimesinden sonra ($) eklendiğini varsayarsak, lütfen aşağıdaki formülü kullanın:
=İKAME(B11," ","($) ")&"($)"
Basın Keşfet tuşuna basın, ardından tüm sonuçları almak için otomatik doldurma tutamacını aşağı sürükleyin.
6.2 Bul ve Değiştir ile her kelimeden önce veya sonra karakter(ler) ekleyin
Aşağıdaki ekran görüntüsünde gösterildiği gibi, ilki hariç her kelimenin önüne karakter eklemek veya sonuncusu hariç her kelimenin arkasına karakter eklemek istiyorsanız, Excel yerleşik Bul ve Değiştir yardımcı program bu işi halledebilir.
İlki hariç her kelimenin önüne ekleyin
Sonuncusu hariç her kelimeden sonra ekleyin
1. Her kelimeden önce veya sonra karakter eklemek istediğiniz hücreleri seçin, ardından Ctrl + H etkinleştirmek için anahtarlar Bul ve Değiştir iletişim.
2. İçine bir boşluk yazın Ne bul metin kutusu, ardından boşluk içeren yeni karakterleri yazın Ile değiştirin metin kutusunu seçin ve son olarak Tümünü Değiştir düğmesine basın.
Çalışma | genel | Örnek E-posta |
Her kelimeden önce karakter ekleyin | Bir boşluktan sonra yeni karakterler ekle | Her kelimenin başına (satış) ekleyin |
Çalışma | genel | Örnek E-posta |
Her kelimeden sonra karakter ekle | Bir boşlukla takip edilen yeni karakterler | Ekle - her kelimeden sonra |
Burada her kelimeden önce veya sonra karakter eklemek için iki VBA kodu sağlanmaktadır, lütfen aşağıdaki adımları izleyerek kodu çalıştırın.
1. Basın Ara Toplam + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. Açılan pencerede, Ekle > modül Yeni bir boş modül eklemek için
3. Aşağıdaki VBA kodunu kopyalayıp modüle yapıştırın.
Her kelimeden önce 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 kelimeden sonra 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şuna basın (veya koşmak düğmesine tıklayın ), çalışacak sürekli hücreleri seçmenizi isteyen bir iletişim kutusu açılır, tıklayın OK.
5. İkinci açılır iletişim kutusunda, eklemek istediğiniz karakterleri yazın, OK.
Daha sonra karakterler her kelimenin önüne veya sonuna eklenecektir.
Bazen her karakterin arasına metin eklemek isteyebilirsiniz. Burada bu bölümde iki senaryo listeleniyor, biri her karakter arasına metin eklemek, diğeri ise her sayı arasına boşluk eklemek.
7.1 Kullanıcı Tanımlı işlevle her karakter/rakam arasına metin ekleyin
Bir dizedeki her karakterin arasına karakter eklemek için Kullanıcı Tanımlı işlevi size yardımcı olabilir.
Bu durumda, her karakter arasına bir boşluk ekleriz.
1. Basın Ara Toplam + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. Açılan pencerede, Ekle > modül Yeni bir boş modül eklemek için
3. Aşağıdaki VBA kodunu kopyalayıp modüle 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 kaydedin ve çalışma sayfasına geri dönmek için pencereyi kapatın, ardından ekleme sonucunu yerleştirmek istediğiniz hücreye aşağıdaki formülü yazın.
=Metin Ekle(B3)
B3, karakterler arasına boşluk eklemek istediğiniz dizeyi içeren hücredir.
5. Basın Keşfet Sonuç almak için tuşuna basın, ihtiyacınız olan diğer sonuçları almak için otomatik doldurma tutamacını hücrelerin üzerine sürükleyin.
Dikkat: 1) VBA kodunda, "" olarak değiştirebileceğinizi varsayarsak, ihtiyacınız olan diğer metinlere "-" eklemek için - karakterler arasında. 2) Kod, her karakterden sonra yeni metni ekleyecektir. Aşağıdaki formülü kullanarak ihtiyacınız yoksa son eklenen metni kaldırabilirsiniz. Formül hakkında daha fazla ayrıntı için lütfen ziyaret edin: Exc'de Bir Hücreden veya Dizeden İlk veya Son N Karakter Nasıl KaldırılırEl? SOL(hücre;UZUNLUK(hücre)-metin_uzunluğu) |
7.2 Formülle her sayı arasına boşluk ekleyin
Sayısal bir değer olan bir dizgenin rakamları arasına boşluk eklemek isterseniz METİN işlevini kullanabilirsiniz.
Dikkat: Aralarına boşluk eklemek istediğiniz aralıkların aynı uzunlukta olması gerekir, aksi halde bazı sonuçlar yanlış olabilir. |
Burada B8:B10 aralığındaki 12 basamaklı sayıların bir listesi olduğunu varsayalım, lütfen sonucu yerleştirecek bir hücre seçin, aşağıdaki formülü yazın:
=METİN(B10,"# # # # # # # #")
Basın Keşfet tuşuna basın, ardından otomatik doldurma tutamacını diğer hücrelerin üzerine sürükleyin.
Sayıların uzunluğu 5 ise formül şu şekilde değişecektir: =METİN(B10,"# # # # #").
Her kelimenin arasına karakter(ler) eklemek istiyorsanız, aşağıda gösterilen ekran görüntüsü gibi ilk, orta ve soyadı arasına boşluk eklediğini varsayarak, Kullanıcı Tanımlı bir işlev kullanabilirsiniz.
1. Basın Ara Toplam + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. Açılan pencerede, Ekle > modül Yeni bir boş modül eklemek için
3. Aşağıdaki VBA kodunu kopyalayıp modüle 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 pencereyi kapatın, ardından ekleme sonucunu yerleştirmek istediğiniz hücreye aşağıdaki formülü yazın.
=Karakter Ekle(B3)
B3, kelimeler arasına boşluk eklemek istediğiniz dizeyi içeren hücredir.
5. Basın Keşfet Sonuç almak için tuşuna basın, ihtiyacınız olan diğer sonuçları almak için otomatik doldurma tutamacını hücrelerin üzerine sürükleyin.
Dikkat: VBA kodunda, "" olarak değiştirebileceğinizi varsayarsak, ihtiyacınız olan diğer metinlere "-" eklemek için - kelimelerin arasına. |
Aşağıda gösterilen ekran görüntüsü gibi metinler ve sayılar arasına belirli karakter(ler) eklemek için burada iki yöntem sunulmaktadır.
9.1 Metinler ve sayılar arasına formülle karakter ekleme
Metinler sayıların önündeyse, genel formül şöyledir:
TRIM(REPLACE(string,MIN(BUL({1,2,3,4,5,6,7,8,9,0},dize&"1234567890")),0,"-"))
Yukarıdaki durumu örnek olarak kullanarak, lütfen formülü şu şekilde kullanın:
=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))
Basın Keşfet tuşuna basın, ardından bu formülü doldurmak için otomatik doldurma tutamacını diğer hücrelerin üzerine sürükleyin.
Sayılar metinlerin önündeyse, genel formül şöyledir:
SOL(dize,SUM(UZUNLUK(dize)-UZUNLUK(YEDEK(dize,{0,1,2,3,4,5,6,7,8,9},"")))&"."&SAĞ (string,UZUNLUK(B13)- TOPLA(UZUNLUK(dize)-UZUNLUK(YEDEK(dize, {0,1,2,3,4,5,6,7,8,9}, ""))))
Yukarıdaki durumu örnek olarak kullanarak, lütfen formülü şu şekilde 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 Keşfet tuşuna basın, ardından bu formülü doldurmak için otomatik doldurma tutamacını diğer hücrelerin üzerine sürükleyin.
9.2 Hızlı Doldurma ile metinler ve sayılar arasına karakter ekleme
Excel 2013 veya sonraki sürümlerindeyseniz, Dolgu Dolgu ayrıca metinler ve sayılar arasına karakter(ler) eklemenize yardımcı olabilir.
Orijinal verilerin yanına, metinler ve sayılar arasına karakter(ler) eklenmiş yeni verileri yazın. Ardından, ilk sonucun sonraki hücresine gitmek için Enter tuşuna basın.
Ve bas Ctrl + E Hızlı Doldurmayı etkinleştirmek için tuşlar.
Uzatma
Bu öğretici ayrıca günlük hayatımızda veya işimizde karşılaşabileceğimiz metin eklemeyle ilgili bazı senaryoları da listeler.
Bazen, aşağıda gösterilen ekran görüntüsü gibi bir dizi telefon numarasına veya sosyal numaraya tire gibi ayırıcılar eklemeniz gerekir. Eklenmesi gereken yüzlerce sayı varsa manuel olarak yazılmaya çalışılacaktır. Bu bölümde, bu işi hızlı bir şekilde halletmek için üç hileli yol tanıtılmaktadır.
10.1 Formüle göre sayılara tire ekleme
İşte sayılara hızlı bir şekilde tire ekleyebileceğiniz iki formül. B3 hücresindeki üçüncü ve altıncı sayıdan sonra tire eklemek için lütfen formülü şu şekilde kullanın:
DEĞİŞTİR işlevi
=DEĞİŞTİR(DEĞİŞTİR(B3,4,0,"-"),8,0,"-")
METİN işlevi
=METİN(B3,"???-???-??? ")
Basın Keşfet tuşuna basın, ardından otomatik doldurma tutamacını diğer hücrelerin üzerine sürükleyin.
Dikkat: Yukarıdaki formüllerin argümanlarını ihtiyacınıza göre değiştirebilirsiniz. varsayalım ki ekle "-" ikinci, dördüncü ve altıncı basamaktan sonra formülleri şu şekilde kullanabilirsiniz: =DEĞİŞTİR(DEĞİŞTİR(DEĞİŞTİR(B3,3,0,"-"),6,0,"-"),9,0,"-") =METİN(B3,"??-??-??-??? ") |
10.2 Hücreleri Biçimlendirerek sayılara tire ekleme
Orijinal hücrelerdeki sayılara doğrudan kısa çizgi eklemek için, biçim Hücreler özelliği.
1. Kısa çizgi eklemek istediğiniz numaraları seçin ve ardından Ctrl + 1 etkinleştirmek için anahtarlar biçim Hücreler iletişim.
2. içinde biçim Hücreler iletişim kutusunun altında Numara sekmesini seçin görenek itibaren Kategoriler Bölüm.
3. Sonra sağda Tip bölüm, tür ###-###-### metin kutusuna tıklayın OK.
Şimdi seçilen sayılara tire eklendi.
10.3 Kutools for Excel Metin Ekle ile telefon numarasına tire ekleyin
Eğer varsa Kutools for Excel Excel'de yüklü olan Metin ekle özelliği de size bir iyilik yapabilir.
1. Tire eklenmesi gereken sayıları içeren hücreleri seçin, tıklayın Kutools > Metin > Yazı ekle.
2. içinde Metin ekle iletişim kutusunda tire veya diğer ayırıcıyı yazın Metin metin kutusu, seç Belirtmek seçeneğini seçin, ardından tire eklemek istediğiniz konumları yazın ve aşağıdaki metin kutusuna virgülle ayırın.
3. tık Ok veya Uygula'yı seçin. Daha sonra seçilen sayılara tireler eklenmiştir.
30 günlük deneme için Metin Ekle'yi ücretsiz indirin.
Farklı uzunluklarda bir sayı listesi olduğunu varsayarsak, aynı uzunlukta olmaları ve aşağıda gösterilen ekran görüntüsü gibi düzgün görünmeleri için baştaki sıfırları eklemek istersiniz. İşte işi halletmek için size sağlanan iki yöntem.
11.1 Hücreleri Biçimlendir özelliğiyle hücrelere baştaki sıfırlar ekleme
Sen kullanabilirsiniz biçim Hücreler baştaki sıfırlar ekleyerek hücre uzunluğunu sabitlemek için özel bir biçim ayarlama özelliği.
1. Başına sıfır eklemek istediğiniz hücreleri seçin, ardından Ctrl + 1 etkinleştirmek için anahtarlar biçim Hücreler iletişim.
2. içinde biçim Hücreler iletişim kutusunun altında Numara sekmesini seçin görenek itibaren Kategoriler Bölüm.
3. Sonra sağda Tip bölüm, tür 0000 metin kutusuna (sayı uzunluğunu 4 hane olarak sabitlemek için 0000 yazın, 5 haneli gibi başka bir uzunlukla değiştirebilirsiniz, 00000 yazın), tıklayın OK.
Daha sonra sayılar baştaki sıfırlar ve aynı uzunlukta eklenmiştir.
Dikkat: orijinal verinin uzunluğu ayarlanan uzunluğu aşarsa, orijinal verileri başında sıfırlar olmadan görüntüler. |
11.2 Formüllü hücrelere baştaki sıfırları ekleme
Orijinal verileri değiştirmek istemiyorsanız, diğer konumlardaki sayılara baştaki sıfırları eklemek için formülü kullanabilirsiniz.
İşte size yardımcı olabilecek üç fonksiyon.
Formula1 METİN işlevi
METİN(sayı,"00…")
Formula2 SAĞ işlevi
SAĞ("00…"&sayı,uzunluk)
Formula3 TABAN işlevi
TABAN(sayı;10;uzunluk)
Formüldeki sıfırların sayısı, sayının uzunluğuna eşittir.
Burada sayıların uzunluğunu 4 haneli olarak ayarladınız, lütfen aşağıdaki formülleri kullanın:
= METİN (B10; "0000")
=SAĞ("0000"&B10,4)
=TABAN(B10,10,4)
Basın Keşfet tuşuna basın ve otomatik doldurma tutamacını aşağı sürükleyin.
Dikkat: orijinal verinin uzunluğu ayarlanan uzunluğu aşarsa, orijinal verileri başında sıfırlar olmadan görüntüler. |
Sabit bir uzunluk yapmak için sayılara sondaki sıfırları eklemek istiyorsanız, aşağıdaki ekran görüntüsü gibi 3 basamaklı hale getirmek için B7:B5 hücresindeki sayılara sondaki sıfırları ekleyerek varsayalım, işle ilgilenmek için bir formül uygulayabilirsiniz. .
REPT işlevi
sayı&REPT("0",uzunluk-UZUNLUK(sayı))
Formülde, "sayı" bağımsız değişkeni, sonuna sıfır eklemek istediğiniz sayıyı veya hücre başvurusunu temsil eder ve "uzunluk" bağımsız değişkeni, istediğiniz sabit uzunluktur.
Lütfen formülü şu şekilde kullanın:
=B3&REPT("0",5-UZUNLUK(B3))
Basın Keşfet tuşuna basın ve otomatik doldurma tutamacını bu formüle ihtiyaç duyan hücrelere sürükleyin.
Bir çalışma sayfasından bir not defterine veri aktarmak veya kopyalamak istiyorsanız, hücre değerleri farklı uzunluklarda olduğundan metinler düzensiz bir şekilde yerleştirilebilir, aşağıda gösterilen ekran görüntüsü gibi düzgün görünmelerini sağlamak için, sonuna boşluk eklemeniz gerekir.
Bu işi çözmek için REPT işlevi size bir iyilik yapabilir.
SOL(metin & TEKRAR(" ",maks_uzunluk),maks_uzunluk)
Formülde, "metin" bağımsız değişkeni, sonuna boşluk eklemek istediğiniz metin veya hücre başvurusudur ve "maks_uzunluk" bağımsız değişkeni, metinleri yapmak istediğiniz sabit uzunluktur; kullanılan metinlerin maksimum uzunluğu.
B3:C6 hücresindeki metinlere sonunda boşluk eklemek için lütfen aşağıdaki formülü kullanın:
=SOL(B3 & TEKRAR(" ",10),10)
Basın Keşfet tuşuna basın, ardından otomatik doldurma tutamacını bu formüle ihtiyaç duyulan tüm hücrelere sürükleyin.
Bu durumda kullanılan metnin en uzunu 9 karakter olduğu için burada 10 kullanıyoruz.
Bazen, tek tek elle yazma dışında, aşağıda gösterilen ekran görüntüsü gibi hücrelerdeki metin veya sayıların etrafına tırnak işaretleri veya parantezler eklemeniz gerekir, işte Excel'de hızlı bir şekilde çözebilecek iki yöntem.
14.1 Biçim Hücrelerine göre tırnak işaretleri/parantezler ekleyin
Orijinal verilerdeki metnin etrafına tırnak işaretleri eklemek istiyorsanız, Excel'deki Hücreleri Biçimlendir özelliği size yardımcı olabilir.
1. Tırnak işareti eklemek istediğiniz hücreleri seçin, Ctrl + 1 etkinleştirmek için anahtarlar biçim Hücreler iletişim.
2. içinde biçim Hücreler diyalog, altında Numara sekmesini seçin görenek listesinden Kategoriler, ardından yazmak için sağ bölüme gidin "''" @ "''" içine Tip Metin kutusu. Tıklayın OK.
Seçili hücrelerdeki metin tırnak içine alınarak eklenmiştir.
Metnin etrafına parantez eklemek istiyorsanız, Hücreleri Biçimlendir iletişim kutusunun Yazım metin kutusunda (@).
14.2 Formüllere göre tırnak işaretleri/parantezler ekleyin
Formüller, diğer hücrelerdeki metne tırnak işaretleri eklemek için de kullanılabilir.
& bağlayıcıyı kullanma
""""&Metin&""""
Or
karakter(34)&metin&karakter(34)
Bu durumda, B11 hücresindeki metin, lütfen formülleri şu şekilde kullanın:
=""""&B11&""""
Or
=char(34)&B11&char(34)
Basın Keşfet tuşuna basın ve hücreleri doldurmak için otomatik doldurma tutamacını aşağı sürükleyin.
Metnin etrafına parantez eklemek istiyorsanız, formülü şu şekilde kullanarak: "("&Metin&")".
14.3 VBA ile tırnak işaretleri/parantezler ekleyin
Bu işi çözmek için VBA koduna ihtiyacınız varsa, işte bir VBA.
1. Basın Ara Toplam + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. Ardından açılan pencerede Ekle > modül boş yeni bir modül eklemek için
3. Aşağıdaki VBA kodunu kopyalayıp yeni modüle yapıştırın.
VBA: Metinlerin etrafına tırnak işaretleri ekleyin
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
Dikkat: kod komut dosyasında, """" & Rng.Value & """" metinlerin etrafına "" ekleneceğini belirtir, metnin etrafına parantez () eklemek istiyorsanız, olarak değiştirin "(" & Rng.Value & ")". |
4. Basın F5 anahtar veya tıklama koşmak düğmesine tıklayın VBA kodunu etkinleştirmek için pencerede. Tırnak eklemek için hücreleri seçmek için bir iletişim kutusu açılır.
5. tık OK. Şimdi seçili hücrelerdeki metinlerin etrafına tırnak işaretleri eklendi.
Bazen, diğer kullanıcıların verileri daha iyi anlamasına yardımcı olmak için, aşağıda gösterilen ekran görüntüsü gibi formül sonuçlarına metin eklemeniz gerekebilir. Formüle metin eklemek için, metni çevreleyen tırnak işaretlerini kullanabilir ve metni ve formülü birleştirmek için & bağlayıcısını ekleyebilirsiniz.
Durum 1, formülden önce metin ekleyin
"Bugün "&METİN(BUGÜN(),"dddd, mmmm dd.")
Durum 2'den sonra metin ekleyin formül
METİN(ŞİMDİ(),"SS:DD:SS")&" geçerli saattir."
Durum 3, formülün iki tarafına metin ekleyin
"Bugün satılan "&veri&" kg."
Daha Fazla Excel Öğreticisi: |
Birden Çok Çalışma Kitabını/Çalışma Sayfasını Birinde Birleştirin Metin, Sayı ve Tarih Hücrelerini Böl (Birden Çok Sütuna Ayırın) Excel'de Veri Kaybetmeden Birden Fazla Hücrenin İçeriğini Birleştirin Excel'de Eşleşmeler ve Farklılıklar İçin İki Sütunu Karşılaştırın |
En İyi Ofis Üretkenliği 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 çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
- Hücreleri / Satırları / Sütunları Birleştirme ve Verilerin Saklanması; Bölünmüş Hücre İçeriği; Yinelenen Satırları ve Toplam / Ortalamayı Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
- Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
- Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
- Sık Kullanılan ve Hızlı Eklenen Formüller, Aralıklar, Grafikler ve Resimler; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
- Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları 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 Filtre kalın, italik ...
- Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
- Pivot Tablo Gruplaması hafta numarası, haftanın günü ve daha fazlası ... Kilidi Açılmış, Kilitli Hücreleri Göster farklı renklerle; Formülü / Adı Olan Hücreleri Vurgulayın...
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!