İ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ə aktiv mobil və ya xüsusi mətnin üstündəki satırları necə silmək olar?

Çox satırlı böyük bir iş varsa və yalnız aktiv hüceyrənin yuxarıdakı bütün sətirləri və ya xüsusi bir mətni silmək istəyirsiniz, necə idarə edə bilərsiniz? Satırları onları seçərək silə bilərsiniz və sonra kontekst menyusundan Əl ilə Sil seçmək üçün sağ basın. Amma burada, VBA codesto, yuxarıda satırları silməklə maraqlanırsa, aşağıdakı məlumatı oxuyun.

VBA kodları ilə yuxarıdakı satırları silin


arrow mavi sağ bubble VBA kodları ilə yuxarıdakı satırları silin


Burada sizin üçün iki VBA kodunu təqdim edirəm, biri aktiv (seçilmiş hüceyrənin) yuxarıdakı satırlar silinir, digəri isə göstərilən mətnin yuxarıdakı satırları silər.

1. Üst sətirləri silmək istədiyiniz bir hüceyrəni seçin və basın Alt + F11 açmaq üçün açarlar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modulesvə kodu aşağıda qoyun Modules scripts.

VBA: Aktiv hüceyrənin yuxarıdakı satırları silin

Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub

1 yuxarıdakı sətirləri doc silin

3. Basın F5 düyməsini basın, sonra aktiv hüceyrənin üstündəki satırlar silindi. Ekran görüntüsünə baxın:
2 yuxarıdakı sətirləri doc silin

Belirtilen mətnin üstündəki satırları silmək üçün VBA-nın altından istifadə edə bilərsiniz.

VBA: göstərilən mətnin üstündə satır silin

Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
    Dim fRg As Range
    
    Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
    
    If Not fRg Is Nothing Then
        If fRg.Row <> 1 Then
            Range("A1", fRg.Offset(-1)).EntireRow.Delete
        Else
            MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
        End If
    Else
       MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
    End If
    
End Sub

3 yuxarıdakı sətirləri doc silin

Qeyd:

1. Kodda, Ümumi Qrup tapmaq istədiyiniz mətn, sizə lazım olduğu kimi dəyişə bilərsiniz.

2. Əgər tapdığınız mətn artıq birinci satırda olsaydı, dialoq sizə xatırlatmaq üçün çıxacaq.
4 yuxarıdakı sətirləri doc silin

3. Əgər tapdığınız mətn hesabatda yoxdursa, göstərilən ekran görüntüsünün aşağıda göstərilən bir dialoq sizi xatırlatmaq üçün açılır.
5 yuxarıdakı sətirləri doc silin

İpucu.Birdən çox boş satırı tez silmək istəyirsinizsə, Excel üçün Kutools istifadə etməyə çalışın Boş Satırları Sil aşağıdakı ekran görüntüsündə göstərildiyi kimi. 60 gün ərzində məhdudiyyətsiz tam funksiyadır, yükləyin və indi pulsuz bir sınaq versiyasını edin.

doc boş sətir silin


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.