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 Üretkenliği Araçları
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
- Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
- Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
- Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
- Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
- Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
- Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
- Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
- Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
- 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
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!
