အပိုင်းအခြားတစ်ခုမှ ဆဲလ်အလွတ်များကို ဖယ်ရှားခြင်း။

ဖော်မြူလာပြဿနာ

ကျွန်ုပ်တို့တွင် ဆဲလ်အလွတ်များပါရှိသော အချက်အလက်ပါရှိသော ဆဲလ်အကွာအဝေးရှိသည်-

အလုပ်မှာ ဆဲလ်အလွတ်များကို ဖယ်ရှားရန်ဖြစ်ပြီး ဆဲလ်များကို အချက်အလက်များသာ ချန်ထားရန် ဖြစ်သည်။

နည်းလမ်း 1. ကြမ်းတမ်းပြီး မြန်သည်။

1. မူရင်းအပိုင်းကို ရွေးချယ်ခြင်း။
2. သော့ကိုနှိပ်ပါ F5၊ နောက်ခလုတ် စိတ်ဝင်စားဖွယ်ရာ (အထူး). ပွင့်လာသောဝင်းဒိုးတွင်၊ ရွေးပါ။ ဆဲလ်အလွတ်များ(က) ဗလာ၊ နှင့်ကိုကလစ်နှိပ်ပါ OK.

   

   အပိုင်းအခြားရှိ ဆဲလ်အလွတ်အားလုံးကို ရွေးထားသည်။

3. ရွေးချယ်ထားသောဆဲလ်များကိုဖျက်ရန် မီနူးတွင် ကျွန်ုပ်တို့က အမိန့်ပေးသည်- ညာကလစ်နှိပ်ပါ။- ဆဲလ်များကိုဖျက်ပါ။ (ဆဲလ်များကို ဖျက်ပါ) အထက်အပြောင်းအရွှေ့နှင့်။

နည်းလမ်း 2- Array ဖော်မြူလာ

ရိုးရှင်းစေရန်၊ ကျွန်ုပ်တို့၏ လုပ်ငန်းခွင်များကို အသုံးပြု၍ အမည်ပေးကြပါစို့ အမည်မန်နေဂျာ (အမည်မန်နေဂျာ) tab ကို ရေးဆွဲရေး (ဖော်မြူလာများ) သို့မဟုတ် Excel 2003 နှင့်အထက်တွင် မီနူး ထည့်ပါ – အမည် – တာဝန်ပေးပါ။ (ထည့်သွင်း-အမည်-သတ်မှတ်)

အပိုင်းအခြားကို B3:B10 ဟု အမည်ပေးပါ။ ဗလာအပိုင်းအခြား D3:D10 – အဘယ်သူမျှမဗလာ. အပိုင်းအခြားများသည် တိကျစွာတူညီသောအရွယ်အစားရှိရမည်ဖြစ်ပြီး တစ်ခုနှင့်တစ်ခုဆက်စပ်သည့် မည်သည့်နေရာတွင်မဆို တည်ရှိနိုင်သည်။

ယခု ဒုတိယအကွာအဝေး (D3) ၏ ပထမဆဲလ်ကို ရွေးပြီး ဤကြောက်စရာကောင်းသော ဖော်မြူလာကို ၎င်းထဲသို့ ထည့်ပါ-

=IF(ROW() -ROW(NoEmpty)+1>NOTROWS(YesEmpty)-COUNTBLANK(YesEmpty);"";INDIRECT(ADDRESS(LWEST((IF(ဗလာ<>""၊ROW(ဗလာ);ROW() + ROWS(ဗလာ))); LINE()-ROW(ဗလာ)+1); COLUMN(ဗလာ)၊ 4)))

အင်္ဂလိပ်ဗားရှင်းတွင်၎င်းသည်-

=IF(ROW()-ROW(NoEmpty)+1>ROWS(ဗလာ)-COUNTBLANK(ဗလာ)""၊INDIRECT(လိပ်စာ(SMALL((IF(ဗလာ<>""၊ROW(ဗလာ)၊ROW() +ROWS(HaveEmpty))),ROW()-ROW(NoEmpty)+1),COLUMN(HaveEmpty),4)))

ထို့အပြင်၊ ၎င်းအား ကူးထည့်ပြီးနောက် နှိပ်၍ array ဖော်မြူလာအဖြစ် ထည့်သွင်းရပါမည်။ ဝင်ရောက် (ပုံမှန်အတိုင်း) နှင့် ကို Ctrl + Shift + Enter. ယခုအခါ ဖော်မြူလာကို အလိုအလျောက်ဖြည့်သွင်းအသုံးပြု၍ ကူးယူနိုင်သည် (ဆဲလ်၏ညာဘက်အောက်ထောင့်ရှိ အနက်ရောင်လက်ဝါးကပ်တိုင်ကို ဆွဲယူနိုင်သည်) - ထို့နောက် ကျွန်ုပ်တို့သည် မူရင်းအပိုင်းအခြားကို ရနိုင်သော်လည်း ဆဲလ်အလွတ်များမရှိဘဲ၊

နည်းလမ်း 3. VBA တွင် စိတ်ကြိုက်လုပ်ဆောင်မှု

အကယ်၍ သင်သည် အပိုင်းအခြားများမှ ဆဲလ်အလွတ်များကို ဖယ်ရှားရန်အတွက် မကြာခဏ လုပ်ထုံးလုပ်နည်းကို ထပ်ခါတလဲလဲ လုပ်ရမည်ဟု သံသယရှိပါက၊ ဆဲလ်ဗလာများကို စံသတ်မှတ်ထားသည့်အတိုင်း တစ်ကြိမ်ဖယ်ရှားခြင်းအတွက် သင့်ကိုယ်ပိုင်လုပ်ဆောင်ချက်ကို ထည့်သွင်းခြင်းသည် ပိုမိုကောင်းမွန်ပြီး နောက်ဆက်တွဲကိစ္စရပ်များတွင် ၎င်းကို အသုံးပြုပါ။

ဒါကိုလုပ်ဖို့ Visual Basic Editor ကိုဖွင့်ပါ (Alt + F11) ဗလာ module အသစ်တစ်ခု ထည့်ပါ (မီနူး Module ထည့်သွင်းပါ။) ပြီးလျှင် ဤလုပ်ဆောင်ချက်၏ စာသားကို ထိုနေရာတွင် ကူးယူပါ-

Function NoBlanks(DataRange As Range) As Variant() Dim N As Long Dim N2 As Long Dim Rng As Range မှိန် MaxCells As Long Dim Result() As Long Dim As Long Dim C As Long MaxCells = Application.WorksheetFunction.Max( _ Application.Caller.Cells.Count, DataRange.Cells.Count) ReDim ရလဒ်(1 မှ MaxCells၊ 1 မှ 1) DataRange.Cells ရှိ Rng တစ်ခုစီအတွက် Rng.Value <> vbNullString ထို့နောက် N = N + 1 ရလဒ်(N, 1 ) = Rng.Value End If Next Rng For N2 = N + 1 To MaxCells Result(N2, 1) = vbNullString Next N2 အကယ်၍ Application.Caller.Rows.Count = 1 ထို့နောက် NoBlanks = Application.Transpose(ရလဒ်) အခြား NoBlanks = ရလဒ် End If End Function  

ဖိုင်ကိုသိမ်းဆည်းပြီး Visual Basic Editor မှ Excel သို့ ပြန်ပြောင်းရန် မမေ့ပါနှင့်။ ကျွန်ုပ်တို့၏ဥပမာတွင် ဤလုပ်ဆောင်ချက်ကို အသုံးပြုရန်-

1. ဥပမာ F3:F10 ၏ လုံလောက်သော ဆဲလ်အလွတ်တစ်ခုကို ရွေးပါ။
2. မီနူးကိုသွားပါ ထည့်သွင်းခြင်း - လုပ်ဆောင်ချက် (ထည့်သွင်းပါ — Function)သို့မဟုတ် ခလုတ်ကို နှိပ်ပါ။ လုပ်ဆောင်ချက်ကို ထည့်သွင်းပါ။ (လုပ်ဆောင်ချက်ထည့်သွင်းရန်) tab ကို ရေးဆွဲရေး (ဖော်မြူလာများ) Excel ဗားရှင်းအသစ်များတွင် အမျိုးအစားထဲမှာ အသုံးပြုသူသတ်မှတ်သည် (အသုံးပြုသူ သတ်မှတ်ထားသည်) ကျွန်ုပ်တို့၏လုပ်ဆောင်ချက်ကိုရွေးချယ်ပါ။ NoBlanks.
3. လုပ်ဆောင်ချက်အငြင်းပွားမှုအဖြစ် ပျက်ပြယ်သွားသည့် ရင်းမြစ်အကွာအဝေး (B3:B10) ကို သတ်မှတ်ပေးပြီး နှိပ်ပါ။ ကို Ctrl + Shift + Enterarray ဖော်မြူလာအဖြစ် လုပ်ဆောင်ချက်ကို ထည့်သွင်းရန်။

:

• ရိုးရှင်းသော မက်ခရိုဖြင့် ဇယားတစ်ခုရှိ အလွတ်အတန်းအားလုံးကို တစ်ကြိမ်တည်း ဖျက်ခြင်း။
• PLEX အပိုပရိုဂရမ်ကို အသုံးပြု၍ အလုပ်စာရွက်ရှိ ဗလာအတန်းအားလုံးကို တစ်ပြိုင်နက် ဖယ်ရှားခြင်း။
• အလွတ်ဆဲလ်များအားလုံးကို အမြန်ဖြည့်ပါ။
• မက်ခရိုဆိုတာဘာလဲ၊ VBA မှာ မက်ခရိုကုဒ်ထည့်ရမယ့်နေရာ