Excel'de bir hücre aralığına önek veya sonek nasıl eklenir?

Excel'in birleştirme işlevi, tek bir hücreye hızlıca önek veya sonek ekleyebilir.

1Aşağıdaki işlevi girin: =BİRLEŞTİR("Gıda - ",A1) boş bir hücreye, örneğin Hücre C1ve ardından bu hücrenin Otomatik Doldurma tutamacını doldurmak istediğiniz aralığa sürükleyin. Ve tüm hücrelere belirli bir önek metni eklenmiş olacaktır. Ekran görüntüsüne bakın:

Birleştirme işlevini kullanarak önek, sonek veya her ikisini birden aşağıdaki gibi ekleyebilirsiniz:

Excel'deki fonksiyonlar ve VBA koduyla ilgili deneyiminiz olmayabilir. Ve Kutools for Excel'in Bu Metin Ekle aracı, seçtiğiniz herhangi bir aralığa hızlıca önek veya sonek eklemenize yardımcı olacaktır.

1.  Önek veya sonek eklemek istediğiniz hücreleri seçin ve Kutools > Metin > Metin Ekle'ye tıklayın.

2Açılan Metin Ekle diyalog kutusunda, önek veya sonekinizi Metin kutusuna girin, İlk karakterden önce seçeneğini işaretleyin (önek eklemek için) veya Son karakterden sonra seçeneğini işaretleyin (sonek eklemek için) ve ardından Tamam düğmesine tıklayın.
Ve şimdi belirtilen önek veya sonek, seçilen her hücreye anında eklenmiştir. Ekran görüntüsüne bakın:

Aşağıdaki VBA kodunu kullanarak da bu sorunu çözebilirsiniz:

1. Önek veya sonek eklemek istediğiniz aralığı seçin.

2. Geliştirici > Visual Basic'e tıklayın ve yeni bir Microsoft Visual Basic for Applications penceresi açılacak, Ekle > Modül'e tıklayın ve ardından aşağıdaki kodu girin:

Sub AddTextOnLeft()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = addStr & Rng.Value
Next
End Sub

Sub AddTextOnRight()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = Rng.Value & addStr
Next
End Sub

3. Ardından Çalıştır düğmesine tıklayın veya VBA'yı çalıştırmak için F5 tuşuna basın.

4Ve şimdi lütfen önek veya sonek eklemek istediğiniz aralığı ilk KutoolsforExcel diyalog kutusuna belirtin ve TAMAM düğmesine tıklayın, ardından eklemek istediğiniz sonek veya öneki ikinci KutoolsforExcel diyalog kutusuna yazın ve TAMAM düğmesine tıklayın. Aşağıdaki ekran görüntülerine bakın:
     
Şimdi belirtilen sonek veya önek, aşağıdaki ekran görüntüsünde gösterildiği gibi her seçili hücreye eklenmiştir:

Tüm hücrelerin başına veya sonuna metin ekleme

Birden çok hücreye metin dizisi ekleme

sayılara veya metne baştaki sıfırları ekleme