ئەگەر سىز VBA ئارقىلىق قۇرنى ئۆچۈرۈشنىڭ ئەڭ ئاسان ئۇسۇللىرىنى ئىزدەۋاتقان بولسىڭىز ، ئۇنداقتا سىز دەل جايىدا بولىسىز.

ئاساسلىق ماقالىگە شۇڭغۇپ باقايلى.

خىزمەت دەپتىرىنى چۈشۈرۈش

VBA ئارقىلىق قۇرنى ئۆچۈرۈشنىڭ 14 ئۇسۇلى جەدۋەللەر VBA ئارقىلىق قۇرلارنى ئۆچۈرۈش ئۇسۇللىرىنى كۆرسىتىپ بېرىدۇ. بىرىنچى جەدۋەلدە بىر شىركەتنىڭ مەھسۇلاتلىرى ۋە ئۇلارنىڭ چوڭلۇقى ، باھاسى بار.

ئىككىنچى بىرىدە بىر قىسىم مەھسۇلات كودى ۋە ئۇلارنىڭ ماس كېلىدىغان مەھسۇلات ئۆلچىمى ۋە باھاسى

ئەڭ ئاخىرقىسى بار بەزى تۈر ئىسمى ۋە ئۇلارنىڭ مۇناسىۋەتلىك باشلىنىش ۋاقتى ۋە خىراجەت .

ماقالىنى قۇرۇش ئۈچۈن ، مەن Microsoft Excel 365 نەشرىنى ئىشلىتىپ باققان ، قۇلايلىقلىقىڭىزغا ئاساسەن باشقا نەشرىنى ئىشلىتەلەيسىز.

ئۇسۇل -1: VBA ئارقىلىق تاق قۇرنى ئۆچۈرۈڭ

ئالايلى ، سىز مەھسۇلات ئاياغ 1 ، بولغان قۇرنى ئۆچۈرمەكچى ۋە بۇ يەككە قۇرنى ئۆچۈرمەكچى بولسىڭىز بۇ ئۇسۇلنى قوللانسىڭىز بولىدۇ.

قەدەم -01 :

➤ ئاچقۇچى بەتكۈچ & gt; & gt; كۆرۈنۈش ئاساسى تاللاش

ئاندىن ، Visual Basic تەھرىرلىگۈچ ئېچىلىدۇ.

ئۇنىڭدىن كېيىن ، مودۇل قۇرۇلىدۇ.

قەدەم -02 :

fol خەت يېزىڭ تۆۋەنلىتىش كودى

3125

بۇ يەردە ، «يەككە» بولساۋاقتى 11/12/2021 بولغان كاتەكچىلەرگە ماس كېلىدىغان كۆپ خىل دائىرە بىرلەشتۈرۈلۈپ ، ئاخىرىدا بۇ دائىرە ئۆچۈرۈلىدۇ.

➤ بېسىش F5

نەتىجە :

ئۇنىڭدىن كېيىن ، 11/12/2021 نىڭ مەلۇم ۋاقتى بولغان قۇرلارنى ئۆچۈرۈۋېتىسىز. .

مۇناسىۋەتلىك مەزمۇنلار: بۆلەك

ئۆزىڭىز مەشىق قىلىش ئۈچۈن بىز تۆۋەندىكىدەك مەشىق دېگەن جەدۋەلدە تۆۋەندىكىدەك مەشىق بۆلىكىنى تەمىنلىدۇق. بۇنى ئۆزىڭىز قىلىڭ. قۇرلارنى ئۆچۈرۈش. پايدىلىق دەپ بىلىشىڭىزنى ئۈمىد قىلىمەن. تەكلىپ-پىكىرلىرىڭىز بولسا ، پىكىر بۆلۈمىدە ئورتاقلىشىڭ.

.EntireRow. ئۆچۈرۈڭ 19>

press بېسىش F5

نەتىجە :

بۇنداق بولغاندا ، سىز <1 بولغان قۇرنى ئۆچۈرۈۋېتىسىز> مەھسۇلات ئىسمى ئاياغ 1 .

تېخىمۇ كۆپ ئوقۇش: Excel دىكى قۇرلارنى قانداق ئۆچۈرۈش ئۇسۇللار

ئۇسۇل -2: VBA ئارقىلىق كۆپ قۇرنى ئۆچۈرۈڭ 9> ، ئاياغ 2 ، ۋە ئاياغ 3 ، ئاندىن سىز بۇ VBA كودىغا ئەگىشىڭ.

قەدەم -01 :

➤ ئەگىشىش 1-قەدەم <01 ، ۋە 7 ئۆچۈرۈلىدۇ ھەمدە تەرتىپلىك ھالدا رەت تەرتىپتە ئاخىرقى قۇر نومۇرىدىن بۇ كودقا ئوخشاش بىرىنچى قۇر نومۇرىغىچە يېزىشىڭىز كېرەك.

بولمىسا ، قالغان 7-قۇرغا ئوخشاش بىرىنچى قۇرنى ئۆچۈرگەندىن كېيىن بۇ قۇرنىڭ ئاستىدىكى قۇرلار بىر قۇر يۇقىرىغا يۆتكىلىدۇ ، بۇنىڭ بىلەن 10-قۇر 9-قۇر ، 13-قۇر 12-قۇر بولىدۇ. ason ، توغرا قۇرلارنى ئۆچۈرەلمەيسىز.

press بېسىش F5

:

ئاندىن ، سىز مەھسۇلات ئىسىملىرى ئاياغ 1 ، ئاياغ 2 ، ۋە ئاياغ 3 بولغان قۇرلارنى ئۆچۈرۈۋېتىسىز.

تېخىمۇ كۆپ ئوقۇڭ: Excel دىكى كۆپ قۇرنى قانداق ئۆچۈرۈۋېتىمىز (3 خىل ئۇسۇل)

ئۇسۇل -3 :

نى تاللاش ئارقىلىق بىر قۇر ئۆچۈرۈش ، بۇ يەردە بىر قۇر ئۆچۈرۈشنىڭ يولىنى كۆرسىتىپ ئۆتىمەنبۇ قۇرنىڭ ئاكتىپ كاتەكچىسىگە كەلسەك.

قەدەم -01 :

7242

ئۇ ئاكتىپ كاتەكچىگە ئىگە قۇرنى ئۆچۈرۈۋېتىدۇ.

code كودنى ساقلاڭ.

قەدەم -02 :

ئۆچۈرمەكچى بولغان قۇرنىڭ ھەر قانداق كاتەكچىسىنى تاللاڭ (بۇ يەردە مەن B7 كاتەكچىنى تاللىدىم)

➤ ئاچقۇچى بەتكۈچ & gt; & gt; ماكروس تاللاش

ئۇنىڭدىن كېيىن ، ماكرو سېھرىگەر ئېچىلىدۇ.

< ماكرو نامىنى تاللاڭ >

نەتىجە :

ئۇنىڭدىن كېيىن ، سىز مەھسۇلات ئىسمى ئاياغ 1 بولغان قۇرنى ئۆچۈرۈۋېتىسىز.

ئۇسۇل -4: تاللاشتىكى بارلىق قۇرلارنى ئۆچۈرۈش

تاللاشنىڭ بارلىق قۇرلىرىنى ئۆچۈرۈش ئۈچۈن بۇ ئۇسۇلنى قوللانسىڭىز بولىدۇ.

قەدەم -01 :

➤ ئەگىشىڭ تاللاشنىڭ بارلىق قۇرلىرىنى ئۆچۈرۈۋېتىدۇ.

code كودنى ساقلاڭ.

0> ئۆچۈرمەكچى بولغان قۇرلارنىڭ دائىرىسىنى تاللاڭ (بۇ يەردە ، مەن B7: D9 ) دائىرىسىنى تاللىدىم>

ئۇنىڭدىن كېيىن ، ماكرو سېھىرگەر ئېچىلىدۇ.

< ماكرو نامىنى dltrow4 ئاندىن ئىجرا

نەتىجە :

ئاندىن ، بار قۇرلارنى ئۆچۈرۈۋېتىسىز. مەھسۇلات ئىسىملار ئاياغ 1 ، چاپان 1 ، ۋە چاپان 2 .

تېخىمۇ كۆپ ئوقۇش: 3>> ئۇسۇل) ، ھەمدە VBA كودى ئارقىلىق مەن B9 كاتەكچىسى بار قۇرنى ئۆچۈرۈۋېتىمەن.

قەدەم -01 :

➤ ئەگىشىڭ> «B5: D13» ھەر قانداق قۇرۇق كاتەكچى بار.

press بېسىش F5 >:

ئۇنداقتا ، سىز بوش كاتەكچە بولغان قۇرنى ئۆچۈرەلەيسىز.

تېخىمۇ كۆپ ئوقۇڭ: Excel دىكى قۇرۇق قۇرلارنى قانداق ئۆچۈرۈۋېتىمىز (11 خىل ئۇسۇل)> B9 (مەن بۇ ئۇسۇلنىڭ قىممىتىنى ئېلىۋەتتىم) ، ھەمدە قۇر 12 قۇر بولغان قۇرۇق قۇر (بۇ ئۇسۇلنىڭ قىممىتىنى ئېلىۋەتتىم) ، ھەمدە VBA كودى ۋە COUNTA ئىقتىدارى قۇرۇق قۇرنى ئۆچۈرۈۋېتىمەن.

قەدەم -01 :

7897

«B5: D13» بولسا سانلىق مەلۇمات دائىرىسى بولۇپ ، FOR ئايلانما ھەر بىر كاتەكچىگە ئىشلەيدۇ. بۇ دائىرە>

➤ بېسىش F5

نەتىجە :

ئۇنىڭدىن كېيىن ، سىز قۇرۇق قۇرنى ئۆچۈرەلەيسىز ، ئەمما ئۇ بارلىق قۇرلارنى ئۆچۈرمەيدۇ. بۇ قۇرنىڭ كاتەكچىلىرى قۇرۇق.

تېخىمۇ كۆپ ئوقۇڭ:

ئۇسۇل -7: ھەر بىر رەت قۇرنى ئۆچۈرۈش

سىز بۇ ئۇسۇلنى قوللانسىڭىز ھەر بىر n قۇرنى (بۇ ئەھۋالدا ھەر 3-قۇر) ئۆچۈرەلەيسىز.

قەدەم -01 :

ol ئەگىشىڭ : D13 »

بۇ يەردە ، FOR ئايلانما ئاخىرقى قۇردىن باشلىنىدۇ ، يەنى بۇ ئەھۋالدا rc ياكى 9 ۋە بىرىنچى قۇر بىلەن ئاخىرلىشىدۇ.

قەدەم -3 بۇ دائىرىدىكى ھەر بىر 3- قۇرنى ئۆچۈرۈشىگە ياردەم بېرىدۇ.

press بېسىش F5 1> نەتىجە :

ئاندىن ، سىز مەھسۇلات ئىسىملىرى ئاياغ 1 ، ئاياغ 2 ، ۋە <8 بولغان قۇرلارنى ئۆچۈرۈۋېتىسىز> ئاياغ 3 .

تېخىمۇ كۆپ ئوقۇش: ھەر بىر n ow Excel دىكى (ئەڭ ئاسان 6 خىل ئۇسۇل)

مۇشۇنىڭغا ئوخشاش ئوقۇشلۇقلار: باسقۇچلۇق يېتەكچى)

ئۇسۇل -8: كاتەكچىنىڭ قىممىتىگە ئاساسەن قۇر ئۆچۈرۈش>.

قەدەم -01 :

9850

«B5: D13» سانلىق مەلۇمات دائىرىسى بولۇپ ، FOR ئايلانما بۇ دائىرىدىكى ھەر بىر كاتەكچىگە ئىشلەيدۇ.

ئەگەر بىر قۇر كاتەكچىدە «كۆڭلەك 2» قىممىتى بولسا ، بۇ قۇر ئۆچۈرۈلىدۇ.

press بېسىش F5

نەتىجە :

بۇنداق بولغاندا ، سىز مەھسۇلات ئىسمى كۆڭلەك 2 بولغان قۇرنى ئۆچۈرۈۋېتىسىز. 3>

تېخىمۇ كۆپ ئوقۇڭ: VBA ماكرو ئەگەر Excel دا قىممەت بولسا (2 خىل ئۇسۇل)

9-ئۇسۇل: كۆپەيتىلگەن قۇرلارنى ئۆچۈرۈش

بۇ يەردە ، مېنىڭ ئىككى قۇر بار ، يەنى مەھسۇلات كودى 97375 بار ، شۇڭا بەلگە قويۇلغان بۇ قۇرلارنىڭ بىرىنى ئۆچۈرمەكچى. تۆۋەندىكى بىر قىزىل قۇتا.

قەدەم -01 :> ئۇسۇل -1

2360

بۇ يەردە ، «B5: D13» سانلىق مەلۇمات دائىرىسى ۋە ستون: = 1 مەن ans ئۇ كۆپەيتىلگەن قىممەتنى پەقەت بىر ئىستوندىلا ئىزدەيدۇ ، يەنى باشلىنىش ئىستونى B ستون ، ئەمما باشقا ئىستونلاردا ئىزدىمەكچى بولسىڭىز ، بۇ ساننى ئېھتىياجىڭىزغا ئاساسەن ئىشلىتەلەيسىز.

press بېسىش F5

نەتىجە :

ئۇنىڭدىن كېيىن ، بۇ قۇرنى ئۆچۈرەلەيسىز. باشقا قۇرغا ئوخشايدۇ.

تېخىمۇ كۆپ ئوقۇڭ:VBA بىلەن Excel (8 ئۈنۈملۈك ئۇسۇل)

ئۇسۇل -10: جەدۋەلدىكى قۇرلارنى ئۆچۈرۈش

پەرەز قىلايلى ، سىزدە تۆۋەندىكى جەدۋەل بار ، ئۇنىڭ ئىسمى جەدۋەل 1 ۋە ھازىر بۇ جەدۋەلنىڭ 6-قۇرنى ئۆچۈرمەكچى. بۇنى قىلىش ئۈچۈن سىز بۇ ئۇسۇلنى قوللانسىڭىز بولىدۇ.

قەدەم 01 :

1469

بۇ يەردە ، «جەدۋەل» جەدۋەلنىڭ ئىسمى ، «جەدۋەل 1» جەدۋەلنىڭ ئىسمى ۋە 6 سىز ئۆچۈرمەكچى بولغان بۇ جەدۋەلنىڭ قۇر نومۇرى.

press بېسىش F5 > نەتىجە :

بۇنداق بولغاندا ، سىز بۇ جەدۋەلنىڭ لازىملىق قۇرلىرىنى ئۆچۈرۈۋېتىسىز.

تېخىمۇ كۆپ ئوقۇڭ: Excel VBA نى ئىشلىتىپ بىر ئىستونغا ئاساسەن كۆپەيتىلگەن قۇرلارنى قانداق چىقىرىۋېتىش كېرەك

ئۇسۇل -11: سۈزۈلگەندىن كېيىن كۆرۈنگەن قۇرلارنى ئۆچۈرۈش

بۇ يەردە ، مەن سۈزگەن سانلىق مەلۇمات جەدۋىلى بار باھا ستوننىڭ قىممىتى $ 1500.00 دىن يۇقىرى ، مەن سۈزگەندىن كېيىن كۆرۈنگەن قۇرلارنىڭ ھەممىسىنى ئۆچۈرمەكچى.

01-قەدەم :

➤ ئەگىشىڭ D13 » سانلىق مەلۇمات دائىرىسى.

press بېسىش F5

< بارلىق تاللاشنى تاللاڭ

press بېسىش بولىدۇ

نەتىجە :

ئاخىرىدا ، سىز يوشۇرۇن قۇرلارنى قايتا قايتۇرىسىزسانلىق مەلۇمات جەدۋىلى.

تېخىمۇ كۆپ ئوقۇڭ:>

ئۇسۇل -12: ئەڭ ئاخىرقى ئاكتىپ كاتەكچىگە ئاساسەن قۇر ئۆچۈرۈش سانلىق مەلۇمات جەدۋىلى.

قەدەم 01 :

press بېسىش F5

نەتىجە :

بۇنداق بولغاندا ، ئۆچۈرۈۋېتىسىز ئاخىرقى ئاكتىپ قۇر.

تېخىمۇ كۆپ ئوقۇڭ: 3>>>

قەدەم -01 :

➤ ئەگىشىڭ> بۇ يەردە ، «تىزما» جەدۋەلنىڭ ئىسمى ، بۇ سانلىق مەلۇمات دائىرىسىنىڭ بىرىنچى قۇر نومۇرى 5 ، باشلىنىش ئىستون نومۇرى 2 ​​

جۈملىسى بىلەن ئارقىلىق ئوبيېكتنى بەلگىلىيەلەيسىز. ياكى بىر يۈرۈش جۈملىلەر ئۈچۈن بىر قېتىم ئىشلەتكۈچى بەلگىلىگەن تىپ. خاتالىق يۈز بېرىدۇ.

LastRow ۋە LastColumn سانلىق مەلۇمات دائىرىسىنىڭ ئاخىرقى قۇر ۋە ئىستونىنى قايتۇرىدۇ.

SpecialCells (xlCellTypeConstants, xlTextValues) دائىرە.

press بېسىش F5 ھەر قانداق تېكىست تىزمىسى بار قۇرلارنى ئۆچۈرۈڭ.

تېخىمۇ كۆپ ئوقۇڭ: >

14-ئۇسۇل: چېسلاغا ئاساسەن قۇر ئۆچۈرۈش

بۇ يەردە ، بۇنىڭدا ئالاھىدە ۋاقتى بار قۇرلارنى ئۆچۈرۈۋېتىمەن 11/12/2021 DATEVALUE فۇنكسىيەسىنى ئىشلىتىش ئۇسۇلى .

قەدەم -01 :

8370

بۇ يەردە ، «چېسلا» جەدۋەلنىڭ ئىسمى ، بۇ سانلىق مەلۇمات دائىرىسىنىڭ بىرىنچى قۇر نومۇرى 5 ۋە ئۆلچەم ئىستونى (قايسى ئىستوننىڭ چېسلا بار) نومۇرى 3 . بىر قاتار بايانلار ئۈچۈن. ئىجرا قىلىش خاتالىقى يۈز بەرگەندە ، كونترول خاتالىق كۆرۈلگەن باياناتتىن كېيىن باياناتقا ئۆتىدۇ. ئايلانما بۇ خىل ئەھۋالدا LastRow ياكى 6 بولغان ئاخىرقى قۇردىن باشلىنىپ ، بىرىنچى قۇر بىلەن ئاخىرلىشىدۇ.

DATEVALUE تېكىست ۋاقتىنى قىممەتكە ئايلاندۇرىدۇ.

بۇ يەردە ، ئىتتىپاق قايتىدۇ