İ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

Excel-də bir neçə sətirdə eyni satır və ya aralıkları necə silmək olar?

Bu yazı Excel-də eyni vaxtda eyni sətirləri və ya aralıkları silmək üçün iki üsulu təklif edir. Xahiş edirik bunu edin.

Bütün təbəqələri birləşdirən bir neçə sətirdə eyni satır və ya aralıkları silin

VBA kodları olan bir neçə sətirdə eyni satır və ya silsilələri silin


Excel-də seçilmiş aralıkta / barlarda və ya aktiv / bütün hesabatlardakı bütün boş satırları asanlıqla silmək

Ekran görüntüsünün aşağıda olduğu kimi, seçilmiş aralıktaki bütün boş satırları, aktiv hesabatı, seçilmiş vərəqləri və ya bütün cədvəlləri Excel-də bir neçə klik ilə silə bilərsiniz.

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 60 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin


Bütün təbəqələri birləşdirən bir neçə sətirdə eyni satır və ya aralıkları silin


Bütün iş qruplarını qruplaşdırmaq və eyni işarələrdən eyni sətirləri və ya aralıkları eyni anda silmək asandır.

1. Mövcud iş kitabında hər hansı bir hesabat sekmesine sağ basın, sonra basın Bütün Çarşafları seçin sağ tıklayarak menyudan.

2. İndi bir iş səhifəsində müəyyən satır və ya aralıkları silmək halında, bütün iş səhifələri seçilir, digər iş yerlərində eyni satırlar və ya aralıklar birlikdə silinir.

3. Bütün təbəqələr arasında satır və ya aralıkları sildikdən sonra, bir hesabat sekmesinde sağ basın və sonra basın Çapaqları təkrarlayın bütün iş səhifələrini açmaq üçün sağ tıklayarak menyudan.


VBA kodları olan bir neçə sətirdə eyni satır və ya silsilələri silin

Yuxarıda göstərilən üsuldan əlavə, bir neçə iş yerində eyni satır və ya aralıkları silmək üçün aşağıdakı VBA kodlarını işə sala bilərsiniz.

Bir neçə sətirdə eyni satırları silin

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Sonra, aşağıdakı VBA kodunu Kod pencerəsinə kopyalayıb yapışdırın.

VBA kodu: Bir neçə sətirdə eyni satırları silin Excel

Sub bleh()
    Dim xWs As Worksheet
    Set xWs = ActiveSheet
    ThisWorkbook.Worksheets.Select
    Rows("4:5").Select
    Selection.Delete
    xWs.Select
End Sub

Qeyd: VBA kodunda, 4: 5, xNUMX və 4 xəttləri mövcud iş kitabında bir çox iş səhifələrində silinəcəkdir. Onları lazım olan sıra ilə dəyişə bilərsiniz.

3. Basın F5 kodunu çalıştırmak üçün düyməni basın, sonra müəyyən satırlar dərhal mövcud iş kitabında bütün sheetsdən silinir.

Birdən çox təbəqə arasında eyni aralıkları silin

Birdən çox təbəqə arasında eyni aralıkları silmək üçün aşağıdakı VBA kodu cəhd edə bilərsiniz.

VBA kodu: Birdən çox təbəqə arasında eyni üçündür silin

Private Sub CommandButton2_Click()
    Dim xRg As Range
    Dim xTxt As String
    Dim xWs As Worksheet
    On Error Resume Next
    Set xWs = ActiveSheet
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.ClearContents
    ThisWorkbook.Worksheets.Select
    ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
    xWs.Select
End Sub

VBA kodunu Modula kopyalayıp yapıştırdıktan sonra basın F5 kodunu çalıştırmak üçün açar, və haşhaş açılır Excel üçün Kutools informasiya qutusunda, birdən çox təbəqə arasında silmək üçündür seçin və sonra basın OK düyməsini basın.

İndi bu xüsusi aralıdakı hüceyrə dəyərləri dərhal mövcud iş kitabçasındakı bütün təbəqələrdən silinir.


Əlaqəli məqalələr:



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.