Vba တွင် အလွတ်လိုင်းများကို ဖျက်နည်း (ဥပမာများဖြင့်)

ဗလာလိုင်းများကိုဖယ်ရှားရန် VBA တွင် အောက်ပါနည်းလမ်းများကို သင်အသုံးပြုနိုင်သည်-

နည်းလမ်း 1- သတ်မှတ်ထားသော အကွာအဝေးရှိ အလွတ်တန်းများကို ဖယ်ရှားပါ။

 Sub DeleteEmptyRowsInRange()
    Sheets(" Sheet1 ").Select
    Range(" A1:B10 ").Select
    Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

ဤအထူးမက်ခရိုသည် Sheet1 ၏ A1:B10 အကွာအဝေးမှ အလွတ်အတန်းအားလုံးကို ဖယ်ရှားပါမည်။

နည်းလမ်း 2- စာရွက်တစ်ခုလုံးရှိ အလွတ်တန်းများကို ဖျက်ပါ။

 Sub DeleteEmptyRowsInSheet()
  
   'turn off screen updating for faster performance
    Application.ScreenUpdating = False
  
    Dim i As Long

    With ActiveSheet

    For i = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
        If WorksheetFunction.CountA(.Rows(i)) = 0 Then
            ActiveSheet.Rows(i).Delete
       End If
    Next

    End With
  
    'turn screen updating back on
    Application.ScreenUpdating = True
  
End Sub

ဤအထူးမက်ခရိုသည် လက်ရှိအသုံးပြုနေသောစာရွက်တစ်ခုလုံးမှ အလွတ်အတန်းအားလုံးကို ဖျက်လိုက်ပါမည်။

အောက်ဖော်ပြပါ ဥပမာများသည် နည်းလမ်းတစ်ခုစီကို လက်တွေ့အသုံးချနည်းကို ပြသထားသည်။

ဥပမာ 1- သီးခြားအကွာအဝေးရှိ ကွက်လပ်မျဉ်းများကို ဖယ်ရှားပါ။

အမျိုးမျိုးသော ဘတ်စကတ်ဘောကစားသမားများအကြောင်း အချက်အလက်များပါရှိသော Excel တွင် အောက်ပါဒေတာအတွဲရှိသည် ဆိုကြပါစို့။

ဤစာမျက်နှာရှိ A1:B10 အကွာအဝေးမှ အလွတ်လိုင်းအားလုံးကို ဖယ်ရှားရန် အောက်ပါ မက်ခရိုကို ဖန်တီးနိုင်သည်-

 Sub DeleteEmptyRowsInRange()
    Sheets(" Sheet1 ").Select
    Range(" A1:B10 ").Select
    Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

ဤ macro ကို run ပြီးသည်နှင့်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

ကျွန်ုပ်တို့သတ်မှတ်ထားသော အကွာအဝေးမှ အလွတ်လိုင်းအားလုံးကို ဖယ်ရှားလိုက်ကြောင်း သတိပြုပါ။

ဥပမာ 2- စာရွက်တစ်ခုလုံးရှိ Blank Rows ကို ဖျက်ပါ။

အမျိုးမျိုးသော ဘတ်စကတ်ဘောကစားသမားများအကြောင်း အချက်အလက်များပါရှိသော Excel တွင် အောက်ပါဒေတာအတွဲရှိသည် ဆိုကြပါစို့။

စာရွက်တစ်ခုလုံးမှ အလွတ်လိုင်းများအားလုံးကို ဖယ်ရှားရန် အောက်ပါ မက်ခရိုကို ဖန်တီးနိုင်သည်-

 Sub DeleteEmptyRowsInSheet()
  
   'turn off screen updating for faster performance
    Application.ScreenUpdating = False
  
    Dim i As Long

    With ActiveSheet

    For i = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
        If WorksheetFunction.CountA(.Rows(i)) = 0 Then
            ActiveSheet.Rows(i).Delete
       End If
    Next

    End With
  
    'turn screen updating back on
    Application.ScreenUpdating = True
  
End Sub

ဤ macro ကို run ပြီးသည်နှင့်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

အလွတ်လိုင်းအားလုံးကို စာရွက်တစ်ခုလုံးမှ ဖယ်ရှားလိုက်ကြောင်း သတိပြုပါ။

ထပ်လောင်းအရင်းအမြစ်များ

အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA တွင် အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-

VBA- ဆဲလ်တန်ဖိုးပေါ်မူတည်၍ အတန်းများကို ဖျက်နည်း
VBA- အမည်တွင် သီးခြားစာသားပါရှိလျှင် စာရွက်တစ်ရွက်ကို မည်သို့ဖျက်မည်နည်း။
VBA: ဖိုင်တွေကို ဘယ်လိုဖျက်မလဲ။