Excel'de metinle birlikte veya içinde artan sayı nasıl oluşturulur?

Excel'de, artan sayı dizileri oluşturmak, özellikle verileri düzenlemek veya benzersiz tanımlayıcılar oluşturmak için temel bir görevdir. AutoFill Tutamaç özelliği, sürekli tek başına sayıları doldurmak için kolay bir yoldur, ancak "Kullanıcı001", "Kullanıcı002" gibi metin dizileriyle doğrudan artan sayıları birleştirme desteği yoktur. Bu kısıtlama, statik metin ve sıralı sayısal bileşen gerektiren özel kullanıcı adları, e-posta adresleri, ürün kodları veya fatura numaraları oluşturma gibi görevleri karmaşıklaştırabilir. Bu eğitimde, Excel'de klasik formüllerden gelişmiş VBA otomasyonuna ve kullanıcı dostu özel araçlara kadar, metinlerle entegre edilmiş veya içinde artan sayılar oluşturmaya yönelik çeşitli yöntemleri tanıtacağız.

Genel senaryolar şunları içerir: tek seferde benzersiz etiketli öğelerin toplu olarak oluşturulması, sistemli isimlendirme ile e-posta listeleri oluşturma veya ürün izleme için seri numaraları üretme. Her çözümün kendine özgü avantajları vardır — kullanım kolaylığı, otomasyon, sayı yerleşimi esnekliği veya büyük veri setleri için uygunluk gibi.

Excel'de formülle metinle artan sayı
Excel için Kutools ile metinle artan sayı
VBA makrosu: metinle birlikte veya içinde artan sayılar oluşturun

Excel'de formülle metinle artan sayı

Excel'in yerleşik formülleri, metin ve artan sayıları birleştirmek için basit bir yöntem sunar. Bu çözüm, özellikle diziniz sabit konumlu sayılar ve metinlerle yapılandırılmışsa ve tanımlayıcının nasıl oluşturulduğuna dair tam şeffaflığa ihtiyacınız varsa çok kullanışlıdır.

1. Çalışma sayfanızı aşağıdaki gibi hazırlayın:

2. D2 hücresine aşağıdaki formülü girin ve ardından uygulamak için Enter tuşuna basın:

=$A$2&TEXT(B2,"000")&$C$2

Formül sonucu döndürdükten sonra, artan hücreleri doldurmak için D2'den aşağıya doğru Doldurma Tutamacını sürükleyin. Her hücre, aşağıdaki gibi birleştirilmiş metin ve artırılmış numarayı gösterecektir: “Kullanıcı001@localdomain.com”, “Kullanıcı002@localdomain.com” vb.

Notlar ve ipuçları:

Bu yaklaşım oldukça şeffafdır ve iyi yapılandırılmış veriler için idealdir, ancak genellikle her bileşen için yardımcı sütunların manuel kurulumunu gerektirir. Ayrıca, metin ve sayı yerleşiminizin satır satır değişiyorsa, bu yaklaşım ekstra değişiklikler gerektirebilir.

Excel için Kutools ile metinle artan sayı

Eğer sık sık artan metin tanımlayıcıları oluşturmanız gerekiyorsa ve grafiksel bir arayüz tercih ediyorsanız veya daha dinamik seçenekler istiyorsanız (örneğin, esnek ön ek, son ek, özel artışlar veya ayarlarınızı tekrarlı kullanım için hatırlama), Excel için Kutools, Insert Sequence Number adında özel bir özellik sunar. Bu araçla, karmaşık numaralandırma şemalarını birkaç tıklamayla oluşturabilirsiniz — formül kurulumuna gerek yok.

1. Excel şeridinde, aşağıdaki gibi Kutools > Ekle > Insert Sequence Number… seçeneğine gidin:

2. Insert Sequence Number iletişim kutusunda, ek kurulum seçeneklerini açmak için Yeni'ye tıklayın. İşte nasıl yapılandırılacağı:

3. Artan sayıları metinle birlikte eklemek istediğiniz hücre aralığını seçin ve ardından Alanı Doldur'a tıklayın. Özel numaralar anında seçili alana doldurulacak ve sonuçlar “Kullanıcı001@localdomain.com”, “Kullanıcı002@localdomain.com” şeklinde olacaktır.

Ek notlar: Kutools'ta bir numaralandırma şablonu oluşturup kaydettikten sonra, bu şablon hızlıca yeniden kullanılabilir, hatta birden fazla çalışma kitabında da kullanılabilir. Eğer son üretilen sayı 30 ise, bu diziyi bir sonraki kullandığınızda numaralandırma otomatik olarak 31'den devam edecektir. Bu özellikle yinelenen numaraları önlemek veya büyük veri setlerinde izlemek için çok yararlıdır.

Bu yöntem, sıralı verilerle düzenli olarak çalışan ve hem verimlilik hem de esneklik isteyen kullanıcılar için önerilir. Ayrıca, tekrarlayan toplu görevler için şablon kaydetme özelliği sağlar. Eğer ön ek/son ek dışında gelişmiş, pozisyon tabanlı özelleştirme gerekiyorsa, otomatik betikleme daha uygun olabilir (aşağıya bakın).

Excel için Kutools ile metinle artan sayı

VBA makrosu: metinle birlikte veya içinde artan sayılar oluştur

Maksimum kontrole ihtiyacınız varsa —örneğin, artan bir sayıyı bir metin dizesinin herhangi bir kısmına eklemek, karmaşık tanımlayıcıları anında oluşturmak veya bu işlemi birden fazla satıra aynı anda uygulamak— VBA makrosu, formüllerin veya eklentilerin her zaman sağlayamayacağı otomasyon ve özelleştirme sağlar. VBA, toplu işlemler, özelleştirilmiş desenler veya sayıyı dizenin herhangi bir yerine (yalnızca başlangıçta veya sonda değil) yerleştirmek için idealdir.

Başlamadan önce, VBA kodunuzu kaybetmemek için çalışma kitabınızı her zaman makro etkin dosya (.xlsm) olarak kaydedin. Ayrıca, beklenmedik değişiklikleri önlemek için herhangi bir makroyu verilerinizin bir kopyasında test etmeyi düşünün.

Makroyu nasıl kullanılır:

1. Çalışma kitabınızı açın ve ardından Excel şeridinde Geliştirici Araçları > Visual Basic'e tıklayın. (Geliştirici sekmesi görünür değilse, Dosya > Seçenekler > Şeridi Özelleştir yolunu kullanarak etkinleştirin.)

2. Microsoft Visual Basic for Applications düzenleyici penceresinde, Ekle > Modül'e tıklayın. Aşağıdaki kodu boş modüle kopyalayıp yapıştırın:

Sub InsertIncrementNumberIntoText()
    Dim cell As Range
    Dim rng As Range
    Dim startNum As Long
    Dim increment As Long
    Dim pattern As String
    Dim position As Variant
    Dim currentNum As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set rng = Application.Selection
    Set rng = Application.InputBox("Select the range to apply incremented text.", xTitleId, rng.Address, Type:=8)
    
    startNum = Application.InputBox("Enter the starting number:", xTitleId, 1, Type:=1)
    
    increment = Application.InputBox("Enter the increment between numbers:", xTitleId, 1, Type:=1)
    
    pattern = Application.InputBox("Enter the pattern (use {n} to mark the insertion point, e.g. 'User{n}@local.com'):", xTitleId, "User{n}@local.com", Type:=2)
    
    currentNum = startNum
    
    If rng Is Nothing Then Exit Sub
    
    For Each cell In rng
        cell.Value = Replace(pattern, "{n}", currentNum)
        currentNum = currentNum + increment
    Next
End Sub

3. Makroyu çalıştırmak için düğmesine tıklayın veya F5tuşuna basın. Bir iletişim kutusu, hedef aralığı seçmenizi, başlangıç numaranızı ayarlamanızı, artışı seçmenizi ve istenen metin deseninizi tanımlamanızı sağlayacaktır (örneğin, ID-{n}-LIST kullanarak özel metin bölümleri arasında artan bir sayı yerleştirin).

• Deseninizde "{n}" öğesini, artırılan sayının yerleşimini özelleştirmek için metnin —öncesinde, sonrasında veya içinde— herhangi bir yere ekleyebilirsiniz.
• Onayladıktan sonra, her seçili hücre, seçtiğiniz desen ve aralığa göre uygun şekilde artırılmış tanımlayıcı ile doldurulur.
• Makroyu yeni bir bölgeye uygulamak için, basitçe yeniden çalıştırın ve gerektiğinde yeni parametreleri belirtin.
• Bir hata yaparsanız, Geri Al özelliğini (Ctrl+Z) kullanın veya makroyu yeniden çalıştırın.

Sorun giderme ve ipuçları:

Bu çözüm, dosya adları içinde sayılar yerleştirme, birden fazla satırda kalıplı kimlikler oluşturma ve karmaşık sıralı adlandırma şemalarını otomatikleştirme gibi gelişmiş senaryolar için özellikle yararlıdır.