உள்ளடக்க அட்டவணை
VBA இல் நீங்கள் கடைசி வரிசையைக் கண்டறிய வெவ்வேறு முறைகளைப் பயன்படுத்தலாம். இந்தக் கட்டுரையில், எக்செல் இல் கடைசி வரிசையைக் கண்டறியும் VBA இன் வெவ்வேறு முறைகளை நான் விளக்கப் போகிறேன்.
இந்த விளக்கத்தைத் தெரியப்படுத்த, நான் மாதிரி தரவுத்தொகுப்பைப் பயன்படுத்தப் போகிறேன். விற்பனைத் தகவலைக் குறிக்கும் தரவுத்தொகுப்பில் 4 நெடுவரிசைகள் உள்ளன. இந்த நெடுவரிசைகள் விற்பனையாளர், பகுதி, தயாரிப்பு, மற்றும் விலை .
நீங்கள் SpecialCells முறையைப் பயன்படுத்தி VBA ஐப் பயன்படுத்தி கடைசி வரிசையைக் கண்டறியலாம்.
முதலில், டெவலப்பரைத் திறக்கவும். தாவல் >> பின்னர் விஷுவல் பேசிக்
பயன்பாடுகளுக்கான மைக்ரோசாப்ட் விஷுவல் பேசிக் இன் புதிய சாளரம் பாப் அப் செய்யும்.
இப்போது, இலிருந்து >> தொகுதி
ஒரு தொகுதி என்பதைத் தேர்ந்தெடுக்கவும்.
பின்னர் பின்வரும் குறியீட்டை எழுதவும்>மாட்யூல் .
3253
இங்கே, LastRow_SpecialCells என்ற துணை நடைமுறையை உருவாக்கியுள்ளேன், இதில் Long வகை மாறியின் LastRow அறிவிக்கப்பட்டது.
பின்னர் Range.SpecialCells முறையைப் பயன்படுத்தி மாறி வரையறுக்கப்பட்டது. இங்கே, A ( A:A ) நெடுவரிசையை வரம்பாகப் பயன்படுத்தினேன். SpecialCells இன் வகை அளவுருவாக xlCellTypeLastCell வழங்கப்பட்டால், இது வரம்பிற்கான கடைசி கலத்தை வழங்கும் (இந்த விஷயத்தில், நெடுவரிசையிலிருந்து A ).
முடிவைக் காட்ட ஒரு செய்திப் பெட்டியைப் பயன்படுத்தினேன்.
அதன் பிறகு, குறியீட்டைச் சேமித்துவிட்டு, பணித்தாள்.
மீண்டும், காண்க தாவல் >> இலிருந்து மேக்ரோக்கள் >> காண்க>
இப்போது, மேக்ரோ பெயரிலிருந்து LastRow_SpecialCells ஐயும் தேர்ந்தெடுங்கள் மேக்ரோஸ் இன் இல் உள்ள பணிப்புத்தகத்தையும் தேர்ந்தெடுக்கவும்.
இறுதியாக, தேர்ந்தெடுக்கப்பட்ட மேக்ரோ ஐ இயக்கவும்.
இவ்வாறு, கடைசி வரிசை எண்ணைக் காட்டும் செய்திப் பெட்டி பாப் அப் செய்யும்.
2. காலியாக இல்லாத கலங்களுக்கான Rows.Count ஐப் பயன்படுத்துதல்
நீங்கள் VBA ஐப் பயன்படுத்தி கடைசி வரிசையைக் கண்டறிய Rows.Count முறையைப் பயன்படுத்தலாம். .
இப்போது, டெவலப்பர் தாவலைத் திறக்கவும் >> பிறகு விஷுவல் பேசிக்
பயன்பாடுகளுக்கான மைக்ரோசாப்ட் விஷுவல் பேசிக் இன் புதிய சாளரம் பாப் அப் செய்யும்.
இப்போது, இலிருந்து >> தொகுதி
ஒரு தொகுதி என்பதைத் தேர்ந்தெடுக்கவும்.
பின்னர் பின்வரும் குறியீட்டை எழுதவும்>மாட்யூல் .
5846
இங்கே, LastRow_NonEmpty எனப்படும் துணை நடைமுறையை நான் உருவாக்கியுள்ளேன், இதில் Long வகை மாறி LastRow அறிவிக்கப்பட்டது.
இப்போது, செல்ஸ்(வரிசைகள். எண்ணிக்கை, 1) முதல் நெடுவரிசையில் எத்தனை வரிசைகள் உள்ளன என்பதைக் கணக்கிடும். பின்னர் End(xlUp).Row பயன்படுத்தப்பட்டது, இப்போது இது Excel வரம்பில் கடைசியாகப் பயன்படுத்தப்பட்ட வரிசையைக் கண்டறியும்.
இறுதியில், நான் ஒரு செய்திப் பெட்டியைப் பயன்படுத்தினேன்முடிவு.
பின், குறியீட்டைச் சேமித்து, பணித்தாள்க்குத் திரும்பவும்.
இங்கே, காண்க தாவலை >> இலிருந்து மேக்ரோக்கள் >> மேக்ரோக்களைக் காண்க
இப்போது உரையாடல் பெட்டி பாப் அப் செய்யும்.
பின்னர், மேக்ரோ பெயரிலிருந்து LastRow_NonEmpty ஐயும் தேர்ந்தெடுங்கள் Macros in க்குள் பணிப்புத்தகத்தைத் தேர்ந்தெடுக்கவும்.
இறுதியாக, தேர்ந்தெடுக்கப்பட்ட மேக்ரோ ஐ இயக்கவும்.
இவ்வாறு, கடைசி வரிசை எண்ணைக் காட்டும் செய்திப் பெட்டி பாப் அப் செய்யும்.
வரிசைகளைப் பயன்படுத்துதல் , டெவலப்பர் தாவல் >> பின்னர் விஷுவல் பேசிக்
பயன்பாடுகளுக்கான மைக்ரோசாப்ட் விஷுவல் பேசிக் இன் புதிய சாளரம் பாப் அப் செய்யும்.
இப்போது, இலிருந்து >> தொகுதி
ஒரு தொகுதி என்பதைத் தேர்ந்தெடுக்கவும்.
பின்னர் பின்வரும் குறியீட்டை எழுதவும்> Module .
6136
இங்கே, LastRow_AnyColumn என்ற துணை நடைமுறையை உருவாக்கியுள்ளேன், இதில் Long வகை மாறி LastRow அறிவிக்கப்பட்டது.
பின், வரம்பு நெடுவரிசையில் B ஒரு அளவுருவாகவும் வரிசைகள்.எண்ணிக்கை , இது கொடுக்கப்பட்டுள்ளது. கொடுக்கப்பட்ட நெடுவரிசை B இல் எத்தனை வரிசைகள் உள்ளன என்பதைக் கணக்கிடும். அடுத்து, End(xlup) பயன்படுத்தப்பட்டது. வரிசை எக்செல் வரம்பில் கடைசியாகப் பயன்படுத்தப்பட்ட வரிசையைக் கண்டறியும்.
கடைசியாக, நான் ஒரு செய்திப் பெட்டியைப் பயன்படுத்தினேன்முடிவு.
அடுத்து, குறியீட்டைச் சேமித்து, பணித்தாள்க்குத் திரும்பவும்.
பின், காண்க தாவலை >> இலிருந்து மேக்ரோக்கள் >> மேக்ரோக்களைக் காண்க
இங்கே உரையாடல் பெட்டி பாப் அப் செய்யும்.
இப்போது, மேக்ரோ பெயரிலிருந்து LastRow_AnyColumn ஐயும் தேர்ந்தெடுங்கள் மேக்ரோஸ் இன் இல் உள்ள பணிப்புத்தகத்தையும் தேர்ந்தெடுக்கவும்.
இறுதியாக, தேர்ந்தெடுக்கப்பட்ட மேக்ரோ ஐ இயக்கவும்.
இவ்வாறு, கடைசி வரிசை எண்ணைக் காட்டும் செய்திப் பெட்டி பாப் அப் செய்யும்.
இதே மாதிரியான வாசிப்புகள்:
- VBA எக்செல் நெடுவரிசையில் கண்டறிக (7 அணுகுமுறைகள்)
- VBA ஐப் பயன்படுத்தி கண்டுபிடித்து மாற்றவும் (11 வழிகள்)
- எக்செல் இல் VBA ஐப் பயன்படுத்தி சரியான பொருத்தத்தைக் கண்டறிக 5>
4. UsedRangeஐப் பயன்படுத்தி கடைசி வரிசையைக் கண்டறிய
நீங்கள் பணித்தாளின் UsedRange பண்புகளைப் பயன்படுத்தி கடைசி வரிசையைக் கண்டறியலாம் VBA ஐப் பயன்படுத்தி வரிசை.
இப்போது, டெவலப்பர் தாவலைத் திறக்கவும் >> பிறகு விஷுவல் பேசிக்
இதைத் தேர்ந்தெடுங்கள், பயன்பாடுகளுக்கான மைக்ரோசாப்ட் விஷுவல் பேசிக் இன் புதிய சாளரம் பாப் அப் செய்யும்.
0>இப்போது, இலிருந்து >> தொகுதி
ஒரு தொகுதி என்பதைத் தேர்ந்தெடுக்கவும்.
பின், பின்வரும் குறியீட்டை <இல் எழுதவும் 2>தொகுதி
.3406
இங்கே, LastRow_UsedRange என்ற துணை நடைமுறையை நான் உருவாக்கியுள்ளேன், இங்கு Long வகை மாறி LastRow அறிவிக்கப்பட்டது.
அடுத்து, வரையறுக்கப்பட்டது ActiveSheet.UsedRange.Rows முறையைப் பயன்படுத்தி மாறி ActiveSheet.UsedRange.Rows.Count ActiveSheet.UsedRange.Rows இன் அளவுருவாக வழங்கப்படுகிறது, இது கடைசி வரிசை.
முடிவைக் காட்ட ஒரு செய்திப் பெட்டியைப் பயன்படுத்தினேன்.
இப்போது, குறியீட்டைச் சேமித்துவிட்டு பணித்தாள்க்குச் செல்லவும்.
>பின், View tab >> இலிருந்து மேக்ரோக்கள் >> மேக்ரோக்களைக் காண்க
அடுத்து, உரையாடல் பெட்டி பாப் அப் செய்யும் பெயர் LastRow_UsedRange ஐத் தேர்ந்தெடுங்கள் மேக்ரோஸ் இன் இல் உள்ள பணிப்புத்தகத்தையும் தேர்ந்தெடுக்கவும்.
இறுதியாக, இயக்கு தேர்ந்தெடுத்த மேக்ரோ .
இதனால், இது கடைசி வரிசை எண்ணைக் காட்டும் செய்திப் பெட்டியை பாப் அப் செய்யும்.
5. ரேஞ்சைப் பயன்படுத்துதல். கடைசியாகக் கண்டறிதல்
வரிசை வரம்பு>டெவலப்பர் தாவல் >> பின்னர் விஷுவல் பேசிக்
இங்கே, மைக்ரோசாப்ட் விஷுவல் பேசிக் ஆப் அப்ளிகேஷன்களுக்கான புதிய விண்டோ பாப் அப் செய்யும்.
இப்போது, இலிருந்து >> Module
A Module என்பதைத் தேர்ந்தெடுக்கவும்.
பின்னர் பின்வரும் குறியீட்டை Module இல் எழுதவும்.
8158
இங்கே, Range_Find_Method எனப்படும் துணை நடைமுறையை நான் உருவாக்கியுள்ளேன், இதில் Long வகை மாறி LastRow அறிவிக்கப்பட்டுள்ளது. .
பின்னர் Cells.Find முறையைப் பயன்படுத்தி மாறியை வரையறுத்தது. இங்கே, 7 அறிவிக்கப்பட்டதுஅளவுருக்கள். என்ன நான் பயன்படுத்திய அளவுருவில் (“*”) முதல் காலியாக இல்லாத கலத்தைக் கண்டறியும். தொடங்குவதற்கு A1 After அளவுருவில் வரம்பாக கொடுக்கப்பட்டுள்ளது. LookAt அளவுருவில் xlPart செல்லுக்குள் உள்ள உரையின் எந்தப் பகுதியையும் பார்க்க.
LookIn:=xlFormulas அளவுரு தேடும். சூத்திரங்கள் ஏதேனும் இருந்தால். SearchOrder:=xlByRows அளவுரு வலமிருந்து இடமாக நகரும், மேலும் அது காலியாக இல்லாத கலத்தைக் கண்டுபிடிக்கும் வரை ஒவ்வொரு வரிசையிலும் சுழலும்.
MatchCase:=False பெரிய அல்லது சிறிய எழுத்துக்களைக் கருத்தில் கொள்ள வேண்டாம் என்று அளவுரு கண்டுபிடி கூறும். காலியாக இல்லாதது கண்டறியப்பட்டால், அது நின்று வரிசை எண்ணை வழங்கும்.
முடிவைக் காட்ட ஒரு செய்திப் பெட்டியைப் பயன்படுத்தினேன்.
இப்போது, குறியீட்டைச் சேமிக்கவும் மற்றும் பணித்தாள்க்குத் திரும்பவும்.
இங்கே, காண்க தாவலை >> இலிருந்து மேக்ரோக்கள் >> காண்க>
இப்போது, மேக்ரோ பெயரிலிருந்து Range_Find_Method ஐத் தேர்ந்தெடுங்கள் மேக்ரோஸ் இன் இல் உள்ள பணித்தாளினையும் தேர்ந்தெடுக்கவும்.
இறுதியாக, தேர்ந்தெடுக்கப்பட்ட மேக்ரோ ஐ இயக்கவும்.
இவ்வாறு, கடைசி வரிசை எண்ணைக் காட்டும் செய்திப் பெட்டி பாப் அப் செய்யும்.
முடிவு
இந்தக் கட்டுரையில், VBA எக்செல் இல் கடைசி வரிசையைக் கண்டறிய 5 வழிகளை விளக்கியுள்ளேன். கடைசி வரிசையைக் கண்டுபிடிக்க நீங்கள் எந்த முறையையும் பின்பற்றலாம். இந்த முறைகள் குறித்து உங்களுக்கு ஏதேனும் குழப்பம் அல்லது கேள்வி இருந்தால், நீங்கள் செய்யலாம்கீழே கருத்து தெரிவிக்கவும்.
