VBA అడ్డు వరుసలను తొలగించండి | VBA ఉపయోగించి ఎక్సెల్ వరుసలను తొలగించడానికి ఉదాహరణలు
ఎక్సెల్ VBA అడ్డు వరుస
సాధారణంగా ఎక్సెల్ వర్క్‌షీట్‌లో, కుడి-క్లిక్ మరియు ఇన్సర్ట్ పద్ధతిని ఉపయోగించడం ద్వారా కీబోర్డ్ సత్వరమార్గం మరియు మరొకటి వరుసలను తొలగించడానికి మాకు రెండు వేర్వేరు పద్ధతులు ఉన్నాయి, కాని VBA లో మనం ఏదైనా అడ్డు వరుసలను తొలగించడానికి తొలగించు కమాండ్ మరియు వర్క్‌షీట్ స్టేట్‌మెంట్‌ను ఉపయోగించాలి ఇది ఒక వరుసను తొలగించాల్సిన అవసరం ఉంటే మేము ఒకే వరుస సూచనను ఇస్తాము కాని బహుళ నిలువు వరుసల కోసం మేము బహుళ వరుస సూచనలు ఇస్తాము.
VBA డిలీట్ రో మెథడ్‌ను ఉపయోగించి, మేము అన్ని ఖాళీ అడ్డు వరుసలను తొలగించగలము, సెల్ విలువ ఆధారంగా అడ్డు వరుసను తొలగించగలము, ఏదైనా కణాలు ఖాళీగా ఉంటే మొత్తం అడ్డు వరుసను కూడా తొలగించవచ్చు.
ఈ వ్యాసంలో, “VBA Delete Row” పద్ధతిని చర్చిస్తాము. కాన్సెప్ట్ గురించి తెలుసుకోవడానికి రాబోయే 15 నుండి 20 నిమిషాలు మిమ్మల్ని మీరు ఆక్రమించుకోండి.
అడ్డు వరుసను ఎలా తొలగించాలి?
మీరు ఈ VBA డిలీట్ రో ఎక్సెల్ మూసను ఇక్కడ డౌన్‌లోడ్ చేసుకోవచ్చు - VBA రో ఎక్సెల్ మూసను తొలగించండిఉదాహరణ # 1
VBA లో మనం తొలగిస్తున్న అడ్డు వరుసను పేర్కొనాలి.
కోడ్:
ఉప DeleteRow_Example1 () కణాలు (1, 1) ముగింపు ఉప
కణాలు (1, 1) అంటే మొదటి వరుస మొదటి కాలమ్ అనగా A1 సెల్. అప్పుడు మనం “తొలగించు” పద్ధతిని ఉపయోగిస్తాము.
కోడ్:
ఉప DeleteRow_Example1 () కణాలు (1, 1) .ఎండ్ సబ్ తొలగించండి
ఇప్పుడు ఇది మొదటి సెల్ ను తొలగిస్తుంది. అన్ని కుడి వైపు విలువలు ఒక కణాన్ని ఎడమ వైపుకు మారుస్తాయి.
ఉదాహరణ # 2
మీరు మొత్తం అడ్డు వరుసను తొలగించాలనుకుంటే, మేము “మొత్తం రో” అనే ఆస్తిని ఉపయోగించాలి, అప్పుడు మేము ఎంచుకున్న సెల్ యొక్క మొత్తం వరుసను తొలగించడానికి “తొలగించు” పద్ధతిని ఉపయోగించాలి.
కోడ్:
ఉప DeleteRow_Example2 () కణాలు (1, 1) .ఎంటర్‌రో. ఎండ్ సబ్ తొలగించండి
ఉదాహరణకు, నేను ఈ క్రింది విధంగా ఎక్సెల్ షీట్లో కొన్ని అక్షరాలను నమోదు చేసాను.
ఇప్పుడు నేను ఈ కోడ్‌ను అమలు చేస్తే అది మొత్తం అడ్డు వరుసను ఒక్క సెల్ కూడా తొలగించదు.
ఉదాహరణ # 3
మేము అనేక మార్గాలను ఉపయోగించి అడ్డు వరుసను తొలగించవచ్చు. పై ఉదాహరణలో, మేము CELLS ప్రాపర్టీని ఉపయోగించి అడ్డు వరుసను తొలగించాము, ఇప్పుడు ROWS ఆస్తిని ఉపయోగించి ఎలా తొలగించాలో చూద్దాం.
ఇప్పుడు మనం తొలగించాల్సిన అడ్డు వరుస ఏమిటో చెప్పాలి, 5 వ వరుసను తొలగించాల్సిన అవసరం ఉందని చెప్పండి.
ఇప్పుడు ఆస్తి “మొత్తం రో” ఆస్తిని ఉపయోగించండి.
ఆస్తిని ఎంచుకున్న తరువాత మనం ఏమి చేయాలి అంటే పద్ధతి. మేము అడ్డు వరుసను తొలగించాలి.
కోడ్:
ఉప DeleteRow_Example3 () అడ్డు వరుసలు (5) .ఎంటర్‌రో.డిల్ ఎండ్ సబ్
కాబట్టి, ఈ కోడ్ 5 వ వరుసను తొలగిస్తుంది.
ఉదాహరణ # 4
రేంజ్ ఆబ్జెక్ట్ ఉపయోగించి బహుళ వరుసలను తొలగించండి
మేము బహుళ వరుసలను ఎలా తొలగిస్తాము?
ఒకటి కంటే ఎక్కువ వరుసలను తొలగించడానికి మేము VBA RANGE ఆబ్జెక్ట్‌ను ఉపయోగించవచ్చు. మీకు A1 నుండి A6 కణాల వరకు కొన్ని విలువలు ఉన్నాయని అనుకోండి.
ఇప్పుడు నేను మొదటి 5 అడ్డు వరుసలను తొలగించాలనుకుంటున్నాను, కాబట్టి నేను రేంజ్ ఆబ్జెక్ట్ ఉపయోగించి ఈ అడ్డు వరుసలను సూచించగలను “పరిధి (“ A1: A5 ”)”
కోడ్:
ఉప DeleteRow_Example4 () పరిధి ("A1: A5") ముగింపు ఉప 
ఇప్పుడు నేను “మొత్తం రో” ఆస్తి అనే పదాన్ని ఉపయోగించాలనుకుంటున్నాను.
కోడ్:
ఉప DeleteRow_Example4 () పరిధి ("A1: A5") .ఎంటర్‌రో ఎండ్ సబ్ 
ఈ మొత్తం వరుసలో, మేము తొలగించే పద్ధతిని నిర్వహించాలి, కాబట్టి తొలగించు పద్ధతిని ఉపయోగించండి.
కోడ్:
ఉప DeleteRow_Example4 () పరిధి ("A1: A5"). మొత్తం రో .ఎండ్ సబ్ తొలగించండి 
ఇప్పుడు ఇది ఎంచుకున్న అడ్డు వరుసలను తొలగిస్తుంది.
ఉదాహరణ # 5
సెల్ విలువ ఆధారంగా వరుసలను తొలగించండి
మేము దీనిని కూడా ఉపయోగించవచ్చు “మొత్తం రో. తొలగించు” VBA లోని సెల్ విలువ ఆధారంగా అడ్డు వరుసను తొలగించే పద్ధతి. ఉదాహరణకు, సెల్ A1 నుండి A10 వరకు నాకు అవును & విలువలు లేవు.
ఇప్పుడు మనం “లేదు” విలువ కలిగిన అడ్డు వరుసలను తొలగించాలి. ఈ పనిని నిర్వహించడానికి మనం “లేదు” విలువను కలిగి ఉన్న అన్ని అడ్డు వరుసలను తొలగించడానికి లూప్‌లతో “IF” ఫంక్షన్‌ను ఉపయోగించాలి.
క్రింద కోడ్ మాకు పని చేస్తుంది.
కోడ్:
ఉప DeleteRow_Example5 () మసక k k కోసం పూర్ణాంకంగా k = 10 నుండి 1 దశ -1 ఉంటే కణాలు (k, 1) .వాల్యూ = "లేదు" అప్పుడు కణాలు (k, 1) .ఎంటర్‌రో.
ఉదాహరణ # 6
అన్ని ఖాళీ కణాల వరుసలను తొలగించండి
పరిధిలోని ఏదైనా కణాలు ఖాళీగా ఉంటే మొత్తం వరుసను తొలగించాల్సిన పరిస్థితులు ఉన్నాయి. ఉదాహరణకు, నేను క్రింద డేటా సమితిని కలిగి ఉన్నాను.
అన్ని రంగు కణాలు ఖాళీగా ఉన్నాయి, కాబట్టి నేను మొత్తం అడ్డు వరుసను తొలగించాలి. మేము ఈ పనిని రెండు సెట్ల కోడ్‌తో చేయవచ్చు. క్రింద కోడ్ ఉంది.
కోడ్:
ఉప DeleteRow_Example6 () పరిధి ("A1: F10"). స్పెషల్ సెల్స్ (xlCellTypeBlanks) .EntireRow.Delete End Sub 
ఇది A1 నుండి F10 పరిధిలోని ఖాళీ కణాలను గుర్తిస్తుంది. ఏదైనా ఖాళీ కణాలు మొత్తం వరుసను తొలగిస్తాయి.
ఈ కోడ్‌లోని సమస్య ఏమిటంటే ఇది ఖాళీ సెల్ యొక్క అడ్డు వరుసను A1 నుండి F10 పరిధిలో మాత్రమే తొలగిస్తుంది, కానీ ఏదైనా ఇతర కణాలలో ఏదైనా కణాలు ఖాళీగా ఉంటే అది తొలగించబడదు. కాబట్టి దీన్ని దృష్టిలో ఉంచుకుని నేను మరో కోడ్ రాశాను.
కోడ్:
ఉప DeleteRow_Example7 () మసక రేంజ్ టో డిలీట్ రేంజ్ గా డిమ్ డిలీట్ రేంజ్ రేంజ్ సెట్ గా రేంజ్ టో డిలీట్ = అప్లికేషన్.ఇన్పుట్బాక్స్ ("దయచేసి పరిధిని ఎంచుకోండి", "ఖాళీ కణాల వరుసల తొలగింపు", రకం: = 8) డిలీట్ రేంజ్ = రేంజ్టోడెలీట్ రేంజ్టెల్ డిలీట్. ఎండ్ సబ్ తొలగించండి 
మీరు మొదట ఈ కోడ్‌ను అమలు చేసినప్పుడు, మీ ముందు కనిపించే ఇన్‌పుట్ బాక్స్‌తో పరిధిని ఎంచుకోమని అడుగుతుంది.
మీరు సరేపై క్లిక్ చేయవలసిన పరిధిని ఎంచుకున్న తర్వాత, అది ఎంచుకున్న పరిధిలోని అన్ని ఖాళీ కణాల వరుసలను తొలగిస్తుంది.
