Excel'de yukarıda / solda boş hücreleri otomatik olarak nasıl birleştirebilirim?
Bu yazıda, aşağıda gösterilen ekran görüntüsü gibi otomatik olarak yukarıda veya solda boş hücreleri birleştirmekten bahsedeceğim. Aslında, bu görevi yerine getirebilecek yerleşik bir yardımcı program yoktur, ancak makro kodları yapabilir.
| Yukarıdaki boşlukları birleştirin | ||
 |
 |
 |
| Soldaki boşlukları birleştir | ||
 |
|
 |
Yukarıdaki boş hücreleri bir sütuna göre birleştirin
Yukarıdaki boş hücreleri birleştir (yalnızca tek sütun için çalışır)
Soldaki boş hücreleri birleştir
Yukarıdaki boş hücreleri bir sütuna göre birleştirin
Üç sütunda bir veri aralığı olduğunu varsayarsak ve şimdi yukarıdaki verileri C sütununa göre birleştirmek istiyorsunuz.
1. Basın Alt + F11keys etkinleştirmek için Uygulamalar için Microsoft Visual Basic pencere ve tıklayın Ekle > modül. Ekran görüntüsüne bakın:
2. Ardından aşağıdaki kodu boş komut dosyasına yapıştırın. Ekran görüntüsüne bakın:
VBA: Bir sonraki sütuna göre yukarıda boşluğu birleştirin
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. Basın F5 kodu çalıştırmak için tuşuna basın ve ardından çalışacağınız bir aralığı seçmenizi hatırlatmak için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. tık OK, sonra boş hücreler yukarıda birleştirildi. Ekran görüntüsüne bakın:
Yukarıdaki boş hücreleri birleştir (yalnızca tek sütun için çalışır)
Yukarıdaki boş hücreleri belirtilen sütunda birleştirebilen bir makro kodu.
1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere ve tıklayın Ekle > modül. Ekran görüntüsüne bakın:
2. Aşağıdaki kodu komut dosyasına yapıştırın. Ekran görüntüsüne bakın:
VBA: Yukarıdaki boş hücreleri birleştirin
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. Basın F5 kodu çalıştırmak için tuşuna basın ve sütun aralığı seçmeniz için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. Tamam'a tıklayın. Ve seçimdeki boş hücreler yukarıda birleştirildi.
 |
|
 |
Soldaki boş hücreleri birleştir
Kalan boş hücreleri birleştirmek istiyorsanız, aşağıdaki kod size bir iyilik yapabilir.
1. Basın Alt + F11 etkinleştirmek için anahtarlar Microsoft Visual Basic Uygulamalar penceresi için tıklayın Ekle > modül. Ekran görüntüsüne bakın:
2. Ardından aşağıdaki kodu boş komut dosyasına yapıştırın. Ekran görüntüsüne bakın:
VBA: Sol boşlukları 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. Basın F5 kodu çalıştırmak için bir tuş ve bir aralık seçmeniz için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. tık OK. Boş hücreler sola birleştirildi.
| Soldaki boşlukları birleştir | ||
|
|
|
Aynı hücreleri birleştir veya hücreyi ayır
|
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
