Note: The other languages of the website are Google-translated. Back to English

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    
sol üstte doc birleştirme boş 1 doc sağ ok sol üstte doc birleştirme boş 2

 Soldaki boşlukları birleştir    
sol üstte doc birleştirme boş 3 doc sağ ok sol üstte doc birleştirme boş 4

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.
sol üstte doc birleştirme boş 1

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:
sol üstte doc birleştirme boş 5

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

sol üstte doc birleştirme boş 6

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:
sol üstte doc birleştirme boş 7

4. tık OK, sonra boş hücreler yukarıda birleştirildi. Ekran görüntüsüne bakın:
sol üstte doc birleştirme boş 2


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:
sol üstte doc birleştirme boş 9

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

sol üstte doc birleştirme boş 10

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:
sol üstte doc birleştirme boş 11

4. Tamam'a tıklayın. Ve seçimdeki boş hücreler yukarıda birleştirildi.

sol üstte doc birleştirme boş 12 doc sağ ok sol üstte doc birleştirme boş 13

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:
sol üstte doc birleştirme boş 14

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

sol üstte doc birleştirme boş 15

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:
sol üstte doc birleştirme boş 16

4. tık OK. Boş hücreler sola birleştirildi.

 Soldaki boşlukları birleştir    
sol üstte doc birleştirme boş 3 doc sağ ok sol üstte doc birleştirme boş 4

Aynı hücreleri birleştir veya hücreyi ayır

doc birleştirme ayırma

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.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (3)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
çalışmıyor :) Excel 365
Bu yorum sitedeki moderatör tarafından en aza indirildi
Paylaşım için teşekkürler, benim için çok faydalı oldu.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkür ederim!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır