မာတိကာ
ဤသင်တန်းတိုလေးသည် Excel ရှိ အခြားအတန်းတိုင်းကို စစ်ထုတ်ခြင်းဖြင့် သို့မဟုတ် VBA ကုဒ်ဖြင့် မည်သို့ဖျက်ရမည်ကို ရှင်းပြထားသည်။ 3rd၊ 4th သို့မဟုတ် အခြားသော Nth အတန်းတိုင်းကို ဖယ်ရှားနည်းကို သင်လည်း လေ့လာနိုင်ပါမည်။
Excel worksheets တွင် အခြားအတန်းများကို ဖျက်ရန် လိုအပ်သည့်အခါ အခြေအနေများစွာရှိပါသည်။ ဥပမာအားဖြင့်၊ သင်သည် ဒေတာကို ရက်သတ္တပတ်များပင် (အတန်း 2၊ 4၊ 6၊ 8 စသည်ဖြင့်) သိမ်းဆည်းပြီး ထူးဆန်းသော ရက်သတ္တပတ်များအားလုံးကို (အတန်း 3၊ 5၊ 7 စသည်ဖြင့်) အခြားစာရွက်တစ်ခုသို့ ရွှေ့လိုပေမည်။
ယေဘူယျအားဖြင့်၊ Excel တွင်ရှိသော အခြားအတန်းအားလုံးကို ဖျက်ခြင်းသည် အခြားအတန်းများကို ရွေးချယ်ခြင်းသို့ ကျဆင်းသွားစေသည်။ အတန်းများကိုရွေးချယ်ပြီးသည်နှင့် Delete ခလုတ်ပေါ်ရှိ တစ်ချက်ရိုက်ချက်သည် အားလုံးနီးပါးလိုအပ်ပါသည်။ ထို့အပြင် ဤဆောင်းပါးတွင်၊ Excel တွင် အခြားအတန်းတစ်ခုစီ သို့မဟုတ် Nth အတန်းတိုင်းကို အမြန်ရွေးချယ်ဖျက်ရန် နည်းလမ်းအချို့ကို သင်လေ့လာပါမည်။
Excel ရှိ အခြားအတန်းတိုင်းကို စစ်ထုတ်နည်း
အနှစ်သာရအားဖြင့် Excel ရှိ အခြားအတန်းတိုင်းကို ဖျက်ရန် ဘုံနည်းလမ်းမှာ ဤအရာဖြစ်သည်- ဦးစွာ၊ သင်သည် အခြားအတန်းများကို စစ်ထုတ်ပြီးနောက် ၎င်းတို့ကို ရွေးချယ်ကာ အားလုံးကို တစ်ပြိုင်နက် ဖျက်ပစ်ပါ။ အောက်ပါအသေးစိတ်အဆင့်များကို လိုက်နာပါ-
- သင်၏မူရင်းဒေတာဘေးရှိ အလွတ်ကော်လံတွင် သုညနှင့် အတွဲများကို ထည့်ပါ။ ပထမဆဲလ်တွင် 0 နှင့် ဒုတိယဆဲလ်တွင် 1 ကိုရိုက်ပြီး ပထမဆဲလ်နှစ်ခုကို ကူးယူပြီး ဒေတာဖြင့် နောက်ဆုံးဆဲလ်အထိ ကော်လံအောက်သို့ ကူးထည့်ခြင်းဖြင့် ၎င်းကို လျင်မြန်စွာလုပ်ဆောင်နိုင်သည်။
တနည်းအားဖြင့် သင်သည် ဤဖော်မြူလာကို သုံးနိုင်သည်-
=MOD(ROW(),2)
ဖော်မြူလာ၏ ယုတ္တိဗေဒသည် အလွန်ရိုးရှင်းပါသည်- ROW လုပ်ဆောင်ချက်သည် လက်ရှိ အတန်းနံပါတ်၊ MOD လုပ်ဆောင်ချက်ကို ပြန်ပေးသည်၎င်းကို 2 ဖြင့် ပိုင်းခွဲပြီး အကြွင်းကို ကိန်းပြည့်သို့ ပြန်ပေးသည်။
ရလဒ်အနေဖြင့်၊ အတန်းအားလုံးတွင် သင့်တွင် 0 (အကြွင်းမရှိဘဲ 2 ဖြင့် အညီအမျှ ခွဲထားသောကြောင့်) နှင့် ထူးဆန်းသောအတန်းအားလုံးတွင် 1 ရှိသည်-
- အတန်းများ သို့မဟုတ် ထူးဆန်းသောအတန်းများကို ဖျက်လိုခြင်းအပေါ် မူတည်၍ တစ်ခု သို့မဟုတ် သုညကို စစ်ထုတ်ပါ။
၎င်းကို ပြီးမြောက်ရန်၊ သင်၏ Helper ကော်လံရှိ မည်သည့်ဆဲလ်ကိုမဆို ရွေးပါ၊ ဒေတာ တက်ဘ်သို့ သွားပါ > စီရန် နှင့် စစ်ထုတ်ခြင်း အဖွဲ့ကို နှိပ်ပြီး စစ်ထုတ်ခြင်း ကို နှိပ်ပါ။ ခလုတ် drop-down filter မြှားများသည် ခေါင်းစီးဆဲလ်များအားလုံးတွင် ပေါ်လာမည်ဖြစ်သည်။ Helper ကော်လံရှိ မြှားခလုတ်ကို သင်နှိပ်ပြီး အကွက်များထဲမှ တစ်ခုကို အမှန်ခြစ်ပါ-
- 0 အတန်းများကိုဖျက်ရန် ထူးဆန်းသောအတန်းများကိုဖျက်ရန်
ဤဥပမာတွင်၊ ကျွန်ုပ်တို့သည် "0" တန်ဖိုးများဖြင့် အတန်းများကို ဖယ်ရှားတော့မည်ဖြစ်သောကြောင့် ၎င်းတို့ကို စစ်ထုတ်ခြင်းဖြစ်သည်-
- ယခု "1" အတန်းအားလုံးကို ဝှက်ထားသည်၊ မြင်နိုင်သော "0" အတန်းအားလုံးကို ရွေးပါ၊ ရွေးချယ်မှုအား ညာကလစ်နှိပ်ပြီး အတန်းဖျက်ပါ ကိုနှိပ်ပါ-
- အထက်အဆင့်သည် သင့်အား ဇယားအလွတ်တစ်ခုဖြင့် ချန်ထားခဲ့သည် သို့သော် စိတ်မပူပါနှင့်၊ "1" တန်းများ ရှိပါသေးသည်။ ၎င်းတို့ကို ထပ်မံမြင်နိုင်စေရန်၊ Filter ခလုတ်ကို ထပ်မံနှိပ်ခြင်းဖြင့် အလိုအလျောက်စစ်ထုတ်ခြင်းကို ဖယ်ရှားလိုက်ပါ-
- ကော်လံ C ရှိ ဖော်မြူလာသည် ကျန်အတန်းများအတွက် ပြန်လည်တွက်ချက်ပေးပါသည်။ ဒါပေမယ့် မင်း မလိုအပ်တော့ဘူး။ Helper ကော်လံကို ယခု သင်သည် ဘေးကင်းစွာ ဖျက်နိုင်ပါပြီ-
ရလဒ်အနေဖြင့် ကျွန်ုပ်တို့၏အလုပ်စာရွက်တွင် ရက်သတ္တပတ်များသာကျန်တော့သည်၊ ထူးဆန်းသော ရက်သတ္တပတ်များ မရှိတော့ပါ။
အကြံပြုချက်။ တိုင်းကိုရွှေ့ချင်ရင်၎င်းတို့အားလုံးကို ဖျက်မည့်အစား အခြားတစ်နေရာသို့၊ စစ်ထုတ်ထားသောအတန်းများကို ဦးစွာမိတ္တူကူးပြီး တည်နေရာအသစ်သို့ ကူးထည့်ကာ စစ်ထုတ်ထားသောအတန်းများကို ဖျက်ပါ။
VBA ဖြင့် Excel တွင် အခြားအတန်းများကို ဖျက်နည်း
သင်၏ Excel အလုပ်စာရွက်များရှိ အခြားအတန်းအားလုံးကို ဖျက်ခြင်းကဲ့သို့သော အသေးအဖွဲအလုပ်တစ်ခုတွင် သင့်အချိန်ကို မဖြုန်းတီးပါက၊ အောက်ပါ VBA macro သည် သင့်အတွက် လုပ်ငန်းစဉ်ကို အလိုအလျောက်လုပ်ဆောင်နိုင်သည်-
Sub Delete_Alternate_Rows_Excel() Dim SourceRange As Range သတ်မှတ်သည့် SourceRange =Application.Selection Set SourceRange = Application.InputBox( "Range:" , "Select the range" , SourceRange.Address, Type :=8) အကယ်၍ SourceRange.Rows.Count >= 2 ထို့နောက် FirstCell မှ Dim အဖြစ် Range အဖြစ် Dim RowIndex အဖြစ် Integer Application.ScreenUpdating = False For RowIndex = SourceRange.Rows.Count - (SourceRange.Rows.Count Mod 2) သို့ 1 အဆင့် -2 Set FirstCell = SourceRange.Cells(RowIndex, 1) FirstCell.EntireRow.Delete Next Application.ScreenUpdating = True End If End SubMacro ကိုအသုံးပြု၍ Excel ရှိ အခြားအတန်းတိုင်းကို ဖျက်နည်း
I Visual Basic တည်းဖြတ်မှုမှတစ်ဆင့် ပုံမှန်နည်းလမ်းဖြင့် သင့်အလုပ်စာရွက်တွင် macro ကို ထည့်သွင်းပါ-
- Alt + F11 ကိုနှိပ်ပြီး Applications ဝင်းဒိုးကိုဖွင့်ရန် Visual Basic ကိုဖွင့်ပါ။
- အပေါ်ဆုံးမီနူးဘားတွင်၊ Insert > Module ကိုနှိပ်ပြီး အထက်ဖော်ပြပါ မက်ခရိုကို Module
- မက်ခရိုကိုလည်ပတ်ရန် F5 ခလုတ်ကို နှိပ်ပါ။
- ဒိုင်ယာလော့ဂ်တစ်ခု ပေါ်လာပြီး အပိုင်းအခြားတစ်ခုကို ရွေးချယ်ရန် သင့်အား တောင်းဆိုမည်ဖြစ်သည်။ သင်၏ဇယားကိုရွေးချယ်ပြီးနှိပ်ပါ။OK-
ပြီးပါပြီ။ ရွေးချယ်ထားသော အပိုင်းအခြားရှိ အခြားအတန်းတိုင်းကို ဖျက်လိုက်သည်-
Excel တွင် Nth အတန်းတိုင်းကို ဖျက်နည်း
ဤလုပ်ဆောင်စရာအတွက်၊ ကျွန်ုပ်တို့သည် စစ်ထုတ်ခြင်းကို ချဲ့ထွင်သွားမည်ဖြစ်ပါသည်။ အခြားအတန်းတိုင်းကို ဖယ်ရှားရန် ကျွန်ုပ်တို့အသုံးပြုခဲ့သည့် နည်းပညာ။ စစ်ထုတ်ခြင်းကို အခြေခံသည့် ဖော်မြူလာတွင် ကွာခြားချက်မှာ-
MOD(ROW()- m, n)Where:
- m သည် ဒေတာအနှုတ် 1 ပါရှိသော ပထမဆဲလ်၏အတန်းနံပါတ်
- n သည် သင်ဖျက်လိုသော Nth အတန်းဖြစ်သည်
သင့်ဒေတာသည် အတန်း 2 တွင် စတင်ပြီး 3rd အတန်းတိုင်းကို ဖျက်လိုသည်ဟု ဆိုကြပါစို့။ ထို့ကြောင့်၊ သင့်ဖော်မြူလာတွင် n သည် 3 နှင့် ညီမျှပြီး m သည် 1 (အတန်း 2 အနှုတ် 1) နှင့် ညီမျှသည်-
=MOD(ROW() - 1, 3)
ကျွန်ုပ်တို့၏ဒေတာစတင်ခဲ့လျှင် အတန်း 3၊ ထို့နောက် m 2 (အတန်း 3 အနှုတ် 1) နှင့် ညီမျှပါမည်။ နံပါတ် 1 မှစတင်၍ အတန်းများကို ဆက်တိုက်ရေတွက်ရန် ဤပြင်ဆင်ချက်သည် လိုအပ်ပါသည်။
ဖော်မြူလာလုပ်ဆောင်သည့်အရာမှာ ဆွေမျိုးအတန်းနံပါတ်ကို 3 ဖြင့် ပိုင်းပြီး အကြွင်းကို ပိုင်းခြားပြီးနောက် ပြန်ပေးသည်။ ကျွန်ုပ်တို့၏အခြေအနေတွင်၊ တတိယမြောက်ဂဏန်းတိုင်းသည် အကြွင်းမရှိဘဲ 3 ဖြင့် ပိုင်းခြားသောကြောင့် (3,6,9, etc.):
ယခုအခါ သင်သည်၊ "0" အတန်းများကို စစ်ထုတ်ရန် ရင်းနှီးပြီးသား အဆင့်များကို လုပ်ဆောင်ပါ-
- သင့်ဇယားရှိ မည်သည့်ဆဲလ်ကိုမဆို ရွေးပြီး ဒေတာ ပေါ်ရှိ Filter ခလုတ်ကို နှိပ်ပါ။
- "0" တန်ဖိုးများကိုသာပြသရန် Helper ကော်လံကို စစ်ထုတ်ပါ။
- မြင်နိုင်သော "0" အတန်းအားလုံးကို ရွေးပါ၊ ညာဖက်ကလစ်နှိပ်ပြီး ဆက်စပ်မီနူးမှ အတန်းဖျက်ရန် ကိုရွေးချယ်ပါ။
- စစ်ထုတ်မှုကို ဖယ်ရှားပြီးHelper ကော်လံကို ဖျက်ပါ။
အလားတူပုံစံဖြင့်၊ Excel တွင် 4th၊ 5th သို့မဟုတ် အခြား Nth အတန်းတိုင်းကို ဖျက်နိုင်ပါသည်။
အကြံပြုချက်။ မသက်ဆိုင်သောဒေတာပါရှိသောအတန်းများကိုဖယ်ရှားရန် လိုအပ်ပါက၊ အောက်ပါသင်ခန်းစာသည် အသုံးဝင်လိမ့်မည်- ဆဲလ်တန်ဖိုးအပေါ်အခြေခံ၍ အတန်းများကို ဖျက်နည်း။
ကျွန်ုပ်တို့၏ဘလော့ဂ်တွင် နောက်အပတ်တွင် ပြန်လည်ဆုံတွေ့ခွင့်ရရှိရန် မျှော်လင့်ပြီး ဖတ်ရှုပေးသည့်အတွက် ကျေးဇူးတင်ပါသည်။ ။