Microsoft Excel ile bir süredir çalışıyorsanız, Otomatik Doldur'un önemini biliyorsunuzdur. Bir formülü satır veya sütun boyunca kopyalamak için bu yöntemi kullanırız. Şimdi, bunu fare ile manuel olarak kullanabiliriz. Ancak, veri içeren büyük bir satırınız varsa, herhangi bir formülü son satıra veya sütuna kopyalamak zor olacaktır. Bir formülü son satıra veya sütuna Otomatik Doldurmak için VBA kodunu şu şekilde kullanabilirsinizkolay.

Bu eğitimde, VBA kodlarını kullanarak Excel'de bir formülü son satıra Otomatik Doldurmayı öğreneceksiniz. Bu eğitim, uygun örnekler ve uygun resimlerle yerinde olacaktır. Bu yüzden bizimle kalın.

Alıştırma Çalışma Kitabını İndirin

Son Satıra Otomatik Doldurma Formülü.xlsm

Excel'de Otomatik Doldurma Nedir?

Şimdi, otomatik doldurma, kullanıcıların satırların veya sütunların geri kalanını değerler, biçimler veya formüllerle otomatik olarak doldurmasına olanak tanıyan Microsoft Excel'in yerleşik bir özelliğidir. İmleci herhangi bir hücrenin sağ alt köşesine götürdüğünüzde bunu tanımlayabilirsiniz. Buna Excel'in otomatik doldurma işleyicisi diyoruz.

Aşağıdaki ekran görüntüsüne bir göz atın:

Burada iki sayı görebilirsiniz. Excel'deki otomatik doldurmayı kullanarak satırların geri kalanını dolduracağız.

İlk olarak, B5:B6 hücre aralığını seçin. Bundan sonra, sağ alt köşede otomatik doldurma tutamacını göreceksiniz.

Şimdi, bu otomatik doldurma tutamacını aşağı sürükleyin.

Gördüğünüz gibi, Excel geri kalan hücreleri otomatik olarak doldurdu. Bu, Excel'de otomatik doldurmanın temel kullanımıdır.

Excel VBA ile Otomatik Doldurma Nasıl Kullanılır

Belirli bir aralıkta çok sayıda satır veya sütununuz varsa, otomatik doldurma tutamacını son satıra veya sütuna sürüklemeniz gerekir. Bu çok telaşlı bir süreçtir. Neyse ki Excel'deki VBA kodlarını kullanarak bunu en aza indirebilirsiniz. Hücreleri değerler, formüller veya biçimlerle otomatik doldurmak için VBA kodunu kullanabilirsiniz.

Genel Söz Dizimi:

Range.AutoFill Hedef, Tür

İşte,

Range("B5"): Serinin geri kalanını doldurmak için ana desene sahip hücre.

Varış yeri: Desen serisiyle doldurmak istediğiniz hücre aralığı.

Türü olarak xlAutoFillType: Seri doldurma türü. Seçebileceğiniz çeşitli otomatik doldurma türleri vardır.

Daha fazlasını okuyun: Excel'de VBA Otomatik Doldurma Nasıl Kullanılır

Excel VBA'da 4 Otomatik Doldurma Türü

Bu bölümde, bazı otomatik doldurma türlerini tartışacağım. xlAutoFillType. Burada size bunun bazı örneklerini gösteriyorum.

1. xlFillDefault

Bu tür otomatik doldurmayı bir önceki örnekte zaten görmüştük.

Ekran görüntüsüne bir göz atın:

Hücrelerin geri kalanını otomatik doldurmak için aşağıdaki VBA kodunu yazın:

 Sub xlDefault_type() Range("B5:B6").AutoFill Destination:=Range("B5:B11"), Type:=xlFillDefault End Sub 

Şimdi, VBA makrosunu çalıştırın ve bundan sonra aşağıdakileri göreceksiniz:

Geri kalan hücreleri VBA makrosu kullanarak otomatik olarak doldurur.

2. xlFillCopy

Aynı değerleri kopyalamak için xlFillCopy otomatik doldurma türünde.

Ekran görüntüsüne bir göz atın:

Hücrelerin geri kalanını otomatik doldurmak için aşağıdaki VBA kodunu yazın:

 Sub xlFillCopy_type() Range("B5:B6").AutoFill Destination:=Range("B5:B11"), Type:=xlFillCopy End Sub 

Şimdi, VBA makrosunu çalıştırın ve bundan sonra aşağıdakileri göreceksiniz:

Excel, hücrelerin geri kalanını aynı değer deseniyle doldurur.

3. xlFillMonths

Ayrıca ayları doldurmak için xlFillMonths otomatik doldurma türü.

Ekran görüntüsüne bir göz atın:

Burada Ocak ve Şubat olmak üzere iki aya girdik.

Hücrelerin geri kalanını otomatik doldurmak için aşağıdaki VBA kodunu yazın:

 Sub xlFillMonths_type() Range("B5:B6").AutoFill Destination:=Range("B5:B11"), Type:=xlFillMonths End Sub 

Şimdi, VBA makrosunu çalıştırın ve bundan sonra aşağıdakileri göreceksiniz:

Excel kalıpları otomatik olarak anlar ve bunlarla doldurur.

4. xlFillFormats

VBA otomatik doldurma özelliğini kullanarak biçimleri diğer hücrelere de kopyalayabilirsiniz. Bunun için xlFillFormats otomatik doldurma türü.

Ekran görüntüsüne bir göz atın:

Burada, iki hücreyi bazı renklerle doldurduk.

Şimdi, hücrelerin geri kalanını otomatik doldurmak için aşağıdaki VBA kodunu yazın:

 Sub xlFillFormats_type() Range("B5:B6").AutoFill Destination:=Range("B5:B11"), Type:=xlFillFormats End Sub 

Şimdi, VBA makrosunu çalıştırın ve bundan sonra aşağıdakileri göreceksiniz:

Gördüğünüz gibi, VBA makromuz B sütununun satırlarını etkili bir şekilde doldurmak için otomatik doldurmayı kullanıyor.

Daha fazlasını okuyun: Excel'de Aylar Nasıl Otomatik Doldurulur

5 Excel VBA'da Son Satıra Otomatik Doldurma Formülü ile Örnekler

1. Bir Formülü Son Kullanılan Satıra Otomatik Doldurmak için VBA

Benzer şekilde, VBA kullanarak bir formülü otomatik doldurabilirsiniz. önceki bölümleri okuduysanız, bunu kolayca gerçekleştirebilirsiniz. Sorun, formülü son satıra kadar otomatik doldurmanız gerektiğinde ortaya çıkar. Önce son kullanılan satırı tanımlamanız gerekir. Bundan sonra, VBA kodu bunları otomatik olarak dolduracaktır.

Aşağıdaki veri setine bir göz atın:

Burada, bazı satış elemanlarının satış veri kümesine sahibiz. Amacımız, Ocak ve Şubat aylarının satışlarını Toplam sütununa eklemektir. Bundan sonra, Excel'deki son kullanılan satıra VBA kullanarak otomatik doldurma yöntemini kullanacağız.

Bunu çalıştırmak için aşağıdaki kodu yazın:

 Sub last_used_row() Dim last_row As Long last_row = Cells(Rows.Count, 2).End(xlUp).Row Range("E5").Formula = "=SUM(C5:D5)" Range("E5").AutoFill Destination:=Range("E5:E" & last_row) End Sub 

last_row = Cells(Rows.Count, 2).End(xlUp).Row: B sütunundan son kullanılan satırı döndürür. Veri kümenizden herhangi bir sütun seçebilirsiniz.

Range("E5").Formula = "=SUM(C5:D5)": Satışları da ekliyoruz Hücre C5 ve D5.

Range("E5").AutoFill Destination:=Range("E5:E" & last_row): Sonucu aldıktan sonra, otomatik doldurmayı kullanırız. Hücre E5 daha önce aldığımız son kullanılan satıra.

Şimdi, VBA makrosunu çalıştırın. Bundan sonra, aşağıdaki çıktıyı göreceksiniz:

Gördüğünüz gibi, VBA kodumuz ilk sonucu ekliyor ve formülü Excel'deki son satıra otomatik olarak dolduruyor.

Daha fazlasını okuyun: Excel'de Son Satıra Kadar Veri Doldurma

2. ActiveCell'den Son Satıra VBA Otomatik Doldurma

Şimdi, otomatik doldurma yönteminde belirli bir aralığı kullanmak istemiyorsanız, etkin hücrenin değerlerini, formüllerini veya biçimlerini kullanabilirsiniz. Bir hücreye tıkladığınızda ve satırların geri kalanını etkin hücrenin formülüyle otomatik olarak doldurmak istediğinizde, bu yöntemi kullanın.

Bir önceki örneğe benzer şekilde bir önceki veri kümesini kullanıyoruz:

Şimdi, Ocak ve Şubat aylarının satışlarını ekleyeceğiz ve Excel VBA kullanarak formülü son satıra otomatik olarak dolduracağız.

Şimdi, aşağıdaki kodu yazın:

 Sub autofill_active_cell() Dim last_row As Long last_row = Cells(Rows.Count, 2).End(xlUp).Row ActiveCell.Formula = "=SUM(C5:D5)" ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & ":E" & last_row) End Sub 

last_row = Cells(Rows.Count, 2).End(xlUp).Row: B sütunundan son kullanılan satırı döndürür. Veri kümenizden herhangi bir sütun seçebilirsiniz.

ActiveCell.Formula = "=SUM(C5:D5)": Satışları da ekliyoruz Hücre C5 ve D5 seçtiğiniz hücrede.

ActiveCell.AutoFill Hedef:=Range(ActiveCell.Address & ":E" & last_row): Sonucu aldıktan sonra otomatik doldurmayı kullanırız. Aktif hücreden daha önce aldığımız son kullanılan satıra kadar otomatik doldurmaya başlar.

Şimdi, seçin Hücre E5 .

Bundan sonra, formülü eklemek ve son satıra otomatik doldurmak için VBA makrosunu çalıştırın.

Gördüğünüz gibi, formülü son satıra kadar otomatik olarak doldurmak için VBA makrosunu başarıyla kullandık.

Benzer Okumalar

• Excel'de Satırlar Belirli Sayıda Kez Nasıl Tekrarlanır (4 Yol)
• Excel'de Satırları Otomatik Olarak Numaralandırma (8 Yöntem)
• Excel'de Sütun Aynı Değerle Nasıl Doldurulur (9 Püf Noktası)
• Excel'de Otomatik Doldurma Kısayolu Uygulama (7 Yöntem)

3. Excel VBA ile Dinamik Aralık Kullanarak Son Satırı Otomatik Doldurma

Daha önce size Excel'de son satıra otomatik doldurma için bazı VBA makroları göstermiştik. Şimdi, bu örneklerde zaten dinamik aralıklar kullandık.

Statik aralıkları anlamak için aşağıdaki koda bir göz atın:

 Sub last_used_row() Range("E5").Formula = "=SUM(C5:D5)" Range("E5").AutoFill Destination:=Range("E5:E11") End Sub 

Temel olarak Excel'e bir formül girmesini söyledik Hücre E5 ve otomatik doldurma Hücre E5 için Hücre E11 Burada aralığı belirttik. Peki ya daha fazla satır eklerseniz? Bu durumda, VBA'mız bu ekstra satırları otomatik doldurmayacaktır çünkü zaten belirli bir aralığı otomatik doldurmasını söylemiştik.

Bu sorunu çözmek için dinamik bir aralık alabilen bir çözüm buldum:

 Sub last_used_row() Dim last_row As Long last_row = Cells(Rows.Count, 2).End(xlUp).Row Range("E5").Formula = "=SUM(C5:D5)" Range("E5").AutoFill Destination:=Range("E5:E" & last_row) End Sub 

Gördüğünüz gibi, ilk olarak bu kod satırıyla son satırı buluyoruz:

 last_row = Cells(Rows.Count, 2).End(xlUp).Row 

Bundan sonra, dinamik aralığı kullanarak son satıra kadar otomatik doldurma yaparız:

 Range("E5").AutoFill Hedef:=Range("E5:E" & last_row) 

Veri kümenize kaç satır eklerseniz ekleyin, bu VBA kodu bunları tanımlamayı başaracak ve bunları formülle otomatik olarak dolduracaktır.

Dinamik aralık temel olarak aralığı manuel olarak girmeniz gerekmediği anlamına gelir. Excel zaman zaman bunu güncelleyecektir.

Daha fazlasını okuyun: Excel VBA: Aralık Sınıfının Otomatik Doldurma Yöntemi Başarısız

4. VBA Kullanarak Excel'de Son Sütuna Otomatik Doldurma

Son satıra otomatik doldurmak için önceki bölümleri okuduysanız, son sütuna kolayca otomatik doldurabilirsiniz. Sadece son sütun numarasını bulmanız ve Excel VBA ile otomatik doldurmanız gerekir.

Aşağıdaki veri setine bir göz atın:

Burada, bir kişinin 3 aylık bütçesini temsil eden bir veri kümemiz var. Şimdi, tüm ayların harcamalarını ekleyeceğiz ve Excel VBA'yı kullanarak formülü son sütuna otomatik olarak dolduracağız.

Şimdi, aşağıdaki kodu yazın:

 Sub last_used_column() Dim last_row As Long last_column = Cells(6, Columns.Count).End(xlToLeft).Column Range("D9").Formula = "=SUM(D6:D8)" Range("D9").AutoFill Destination:=Range("D9", Cells(9, last_column)) End Sub 

last_column = Cells(6, Columns.Count).End(xlToLeft).Column: Satır 6'dan son kullanılan sütunu döndürür. Veri kümenizden başlamak için herhangi bir satırı seçebilirsiniz.

Range("D9").Formula = "=SUM(D6:D8)": masraflarını da ekliyoruz üç ay (Ocak, Şubat, Mart).

Range("D9").AutoFill Hedef:=Range("D9", Cells(9, last_column)): Sonucu aldıktan sonra otomatik doldurmayı kullanırız. Burada ana satırımız 9 numaralı satırdır. Tüm verilerimiz bu satırda olacaktır. Otomatik doldurmaya sütundan başlar D tarafından daha önce elde ettiğimiz son kullanılan sütuna last_column .

Makroyu çalıştırdıktan sonra aşağıdaki çıktıyı göreceksiniz:

Gördüğünüz gibi, formülü Excel'deki son sütuna otomatik olarak doldurmak için VBA'yı başarıyla kullandık.

Daha fazlasını okuyun: Excel'de Bir Sütun Nasıl Otomatik Doldurulur

5. VBA Kullanarak Excel'de Son Satıra Sıralı Sayıları Otomatik Doldurma

VBA'daki otomatik doldurma özelliğini kullanarak sıralı numaraları da otomatik doldurabilirsiniz. Burada şunları kullanmanız gerekir xlFillSeries Excel kalıbı anlayacak ve bunları otomatik doldurma türünde dolduracaktır.

Aşağıdaki ekran görüntüsüne bir göz atın:

Burada bazı isimlerimiz var ve bunlara sıralı bir şekilde bir kimlik vermek istiyoruz. Bunu yapmak için VBA otomatik doldurma özelliğini kullanacağız.

Statik Aralık ile Sıralı Numaraları Otomatik Doldurma:

 Sub sequential_number_2() Range("C5").AutoFill Destination:=Range("C5:C11"), Type:=xlFillSeries End Sub 

Kodu çalıştırdıktan sonra çıktıyı göreceksiniz:

Dinamik aralığı kullanmak istiyorsanız, aşağıdaki kodu kullanın:

 Sub sequential_number_1() Dim last_row As Long last_row = Cells(Rows.Count, 2).End(xlUp).Row Range("C5").AutoFill Destination:=Range("C5:C" & last_row), Type:=xlFillSeries End Sub 

last_row = Cells(Rows.Count, 2).End(xlUp).Row: B sütunundan son kullanılan satırı döndürür.

Range("C5").AutoFill Destination:=Range("C5:C" & last_row), Type:=xlFillSeries: Kimliğini alacaktır Hücre C5 ve Sütun'daki son kullanılan satıra otomatik doldurma C kullanarak xlFillSeries ,

Her iki durumda da aynı çıktıyı alırsınız:

Gördüğünüz gibi, Excel'de sıralı sayıları otomatik doldurmak için VBA kodunu başarıyla kullandık.

Daha fazlasını okuyun: Sıra Numaralarını Doldurmak için Excel Formülleri Gizli Satırları Atlayın

💬 Unutulmaması Gerekenler

✎ Yapabilirsin otomatik doldurmayı durdur Eğer istemiyorsanız çeşitli şekillerde .

✎ Birden fazla satır ve sütunu aynı anda otomatik olarak dolduramazsınız. Tek tek doldurun.

Sonuç

Sonuç olarak, umarım bu eğitim size VBA kodlarını kullanarak formülü son satıra otomatik doldurmak için yararlı bilgiler sağlamıştır. Tüm bu talimatları öğrenmenizi ve veri kümenize uygulamanızı öneririz. Alıştırma çalışma kitabını indirin ve bunları kendiniz deneyin. Ayrıca, yorum bölümünde geri bildirimde bulunmaktan çekinmeyin. Değerli geri bildirimleriniz, aşağıdaki gibi eğitimler oluşturmak için bizi motive ediyorBu.

Web sitemizi kontrol etmeyi unutmayın Exceldemy.com Excel ile ilgili çeşitli sorunlar ve çözümler için.

Yeni yöntemler öğrenmeye ve büyümeye devam edin!