Excel'de boş hücreleri otomatik olarak üstteki veya soldaki dolu hücreyle nasıl birleştirebilirim?
Bu makalede, aşağıdaki ekran görüntüsünde gösterildiği gibi boş hücreleri otomatik olarak üstteki veya soldaki dolu hücreyle birleştirme yöntemini inceleyeceğim. Aslında bu işlemi doğrudan gerçekleştiren yerleşik bir araç bulunmamaktadır; ancak makro kodlarla mümkündür.
| Üstteki boşları birleştir | ||
 |  |  |
| Soldaki boşları birleştir | ||
 | |  |
Bir sütuna göre üstteki boş hücreleri birleştir
Üstteki boş hücreleri birleştir (yalnızca tek sütun için çalışır)
Soldaki boş hücreleri birleştir
Bir sütuna göre üstteki boş hücreleri birleştir
Diyelim ki üç sütunluk bir veri aralığınız var ve şimdi C sütununa göre en üstteki verileri birleştirmek istiyorsunuz.
1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın ve Ekle > Modül seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Ardından aşağıdaki kodu boş betiğe yapıştırın. Ekran görüntüsüne göz atın:
VBA: Bir sonraki sütuna göre üstteki boşları birleştir
Sub MergeCells()
'UpdatebyExtendoffice2017025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then
Range(xCell, xCell.Offset(-1, 0)).Merge
End If
Next
End Sub
3. Kodu çalıştırmak için F5 tuşuna basın; ardından çalışmak istediğiniz aralığı seçmenizi isteyen bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Tamam düğmesine tıklayın; böylece boş hücreler yukarı doğru birleştirilmiş olur. Ekran görüntüsüne bakın:
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
Üstteki boş hücreleri birleştir (yalnızca tek sütun için çalışır)
Aşağıda, belirtilen sütundaki üstteki boş hücreleri birleştiren bir makro kodu yer almaktadır.
1. Alt + F11tuşlarına basarak Microsoft Visual Basic for Applicationspenceresini açın ve Ekle>Modülseçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Aşağıdaki kodu betiğe yapıştırın. Ekran görüntüsüne göz atın:
VBA: Üstteki boş hücreleri birleştir
Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
Dim I As Long
Dim xRow As Long
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only work for single column", , "KuTools For Excel"
Exit Sub
End If
xRow = xRg.Rows.Count
Set xRg = xRg(xRow)
For I = xRow To 1 Step -1
Set xCell = xRg.Offset(I - xRow, 0)
Debug.Print xCell.Address
If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
Next
End Sub
3. Kodu çalıştırmak için F5 tuşuna basın; ardından bir sütun aralığı seçmeniz için bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Tamam’a tıklayın. Seçili alandaki boş hücreler yukarı doğru birleştirilir.
 | |  |
Soldaki boş hücreleri birleştir
Boş hücreleri sola birleştirmek istiyorsanız, aşağıdaki kod işinize yarayabilir.
1. Alt + F11tuşlarına basarak Microsoft Visual Basicfor Applications penceresini açın ve Ekle>Modülseçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Ardından aşağıdaki kodu boş betiğe yapıştırın. Ekran görüntüsüne göz atın:
VBA: Soldaki boşları birleştir
Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
Next
End Sub
3. Kodu çalıştırmak için F5 tuşuna basın; ardından bir aralık seçmeniz için bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Tamam düğmesine tıklayın. Boş hücreler sola birleştirilmiştir.
| Soldaki boşları birleştir | ||
| | |
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar