İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Avtomatik olaraq Excel-də yuxarı / aşağı boş xanaları necə birləşdirmək olar?

Bu yazıda, mən yuxarıdakı boş hüceyrələri birləşdirməkdən və ya ekran görüntüsünün aşağıda göstərildiyi kimi avtomatik olaraq soldan danışacağam. Əslində, bu vəzifəni yerinə yetirə biləcək heç bir yerleşik proqram yoxdur, ancaq makro kodları ola bilər.

Yuxarıdakı boşluqları birləşdirin
sol 1-dən yuxarı boş birləşdirin doc arrow sağ sol 2-dən yuxarı boş birləşdirin

Boşluqları tərk edin
sol 3-dən yuxarı boş birləşdirin doc arrow sağ sol 4-dən yuxarı boş birləşdirin

Boş hüceyrələri sütun əsasında yuxarıda birləşdirin

Boş hüceyrələri birləşdirin (yalnız sütun üçün iş)

Boş hüceyrələri tərk edin


Boş hüceyrələri sütun əsasında yuxarıda birləşdirin


Üç sütunda bir sıra məlumatlar olduğunu düşünsəniz, artıq yuxarıda göstərilən məlumatları sütun C əsasında birləşdirmək istəyirsiz.
sol 1-dən yuxarı boş birləşdirin

1. Basın Alt + F11 keys imkan verir Proqramlar üçün Microsoft Visual Basic pəncərə və basın Taxmaq > Modules. Ekran görüntüsünə baxın:
sol 5-dən yuxarı boş birləşdirin

2. Sonra kodu boş skriptə yapışdırın. Ekran görüntüsünə baxın:

VBA: Sonrakı sütun əsasında yuxarıdakı boşluğu birləşdirin

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 6-dən yuxarı boş birləşdirin

3. Basın F5 kodu açmaq üçün düyməni basın və sonra işləmək üçün bir sıra seçməyi xatırlatmaq üçün bir dialoq çıxır. Ekran görüntüsünə baxın:
sol 7-dən yuxarı boş birləşdirin

4. klik OK, sonra boş hüceyrələr yuxarıda birləşdi. Ekran görüntüsünə baxın:
sol 2-dən yuxarı boş birləşdirin


Boş hüceyrələri birləşdirin (yalnız sütun üçün iş)

Burada yuxarıda göstərilən sütundakı boş hüceyrələri birləşdirə biləcək bir makro kodu.

1. Basın Alt + F11 düymələri təmin etmək üçün Proqramlar üçün Microsoft Visual Basic pəncərə və basın Taxmaq > Modules. Ekran görüntüsünə baxın:
sol 9-dən yuxarı boş birləşdirin

2. Kodunu skriptə daxil edin. Ekran görüntüsünə baxın:

VBA: yuxarıdakı boş hüceyrələri birləşdirin

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 10-dən yuxarı boş birləşdirin

3. Basın F5 kodu açmaq üçün düyməni basın və sütun aralığını seçmək üçün bir dialoq çıxır. Ekran görüntüsünə baxın:
sol 11-dən yuxarı boş birləşdirin

4. Tamam'ı basın. Və seçimdə boş hüceyrələr yuxarıda birləşdi.

sol 12-dən yuxarı boş birləşdirin doc arrow sağ sol 13-dən yuxarı boş birləşdirin

Boş hüceyrələri tərk edin

Boş hüceyrələri tərk etmək istəyirsinizsə, aşağıdakı kod sizə bir xeyir verə bilər.

1. Basın Alt + F11 düymələri təmin etmək üçün Microsoft Visual Basic Proqramlar pəncərəsi üçün basın və vurun Taxmaq > Modules. Ekran görüntüsünə baxın:
sol 14-dən yuxarı boş birləşdirin

2. Sonra kodu boş skriptə yapışdırın. Ekran görüntüsünə baxın:

VBA: Boşluqları tərk edin

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 15-dən yuxarı boş birləşdirin

3. Basın F5 kodu açmaq üçün açar və bir sıra seçmək üçün bir dialoq çıxır. Ekran görüntüsünə baxın:
sol 16-dən yuxarı boş birləşdirin

4. klik OK. Boş hüceyrələr sola birləşdi.

Boşluqları tərk edin
sol 3-dən yuxarı boş birləşdirin doc arrow sağ sol 4-dən yuxarı boş birləşdirin

Eyni hüceyrələri birləşdirin və ya birləşdirilməmiş hüceyrə

doc birləşməyəcək


Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.