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

Excel'in birleştir (CONCATENATE) fonksiyonu, tek bir hücreye hızlıca önek veya sonek eklemenizi sağlar.

1. Boş bir hücreye ()C1 gibi) =CONCATENATE("Food - ",A1) fonksiyonunu girin, ardından bu hücrenin Otomatik Doldurma tutamacını doldurmak istediğiniz aralığa doğru sürükleyin. Böylece tüm hücrelere belirtilen önek metni otomatik olarak eklenmiş olur. Ekran görüntüsüne bakın:

Birleştir (CONCATENATE) fonksiyonunu kullanarak aşağıdaki gibi önek, sonek veya her ikisini birden ekleyebilirsiniz:

Excel'de fonksiyonlarla veya VBA kodlarıyla aşina olmasanız bile endişelenmeyin! Bu durumda Kutools for Excel'ün Add Text aracı, istediğiniz aralığa hızla önek veya sonek eklemenizi sağlar.

1. Önek veya sonek eklemek istediğiniz hücreleri seçin ve Kutools > Text > Add TextText Add Text'e tıklayın.

2. Add Text iletişim kutusunda, Metinkutusuna önek veya sonekinizi girin. İhtiyacınıza göre Before first character seçeneğini ()önek eklemek için) veya After last character seçeneğini (sonek eklemek için) işaretleyin ve Ok düğmesine tıklayın.
Artık belirtilen önek veya sonek, seçili tüm hücrelere aynı anda eklenmiştir. Ekran görüntüsüne bakın:

Bu sorunu aşağıdaki VBA koduyla da çözebilirsiniz:

1. Önek veya sonek eklemek istediğiniz hücre aralığını seçin.

2. Developer > Visual BasicVisual Basic'ye tıklayın; yeni bir Microsoft Visual Basic for applications penceresi açılacak. Ardından InsertInsert > Module'ye tıklayıp 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 VBA'yı çalıştırmak için Run düğmesine tıklayın ya da F5 tuşuna basın.

4. Şimdi, önek veya sonek eklemek istediğiniz aralığı ilk KutoolsforExcel iletişim kutusuna girin ve OK düğmesine tıklayın. Ardından, eklemek istediğiniz öneki veya soneki ikinci KutoolsforExcel iletişim kutusuna yazın ve OK düğmesine tıklayın. Aşağıdaki ekran görüntülerine göz atın:
     
Belirtilen önek veya sonek, aşağıdaki ekran görüntüsünde gösterildiği gibi her bir seçili hücreye başarıyla eklenmiştir:

Tüm hücrelerin başına veya sonuna Metin Ekle ekleyin

Birden fazla hücreye metin dizileri ekleyin

Sayılara veya metne baştaki sıfırları ekleyin