VBA හි ඔබට අවසාන පේළිය සොයා ගැනීමට විවිධ ක්‍රම භාවිතා කළ හැක. මෙම ලිපියෙන්, මම Excel හි අවසාන පේළිය සොයා ගන්නා VBA හි විවිධ ක්‍රම විස්තර කිරීමට යන්නෙමි.

මෙම පැහැදිලි කිරීම දෘශ්‍යමාන කිරීමට, මම නියැදි දත්ත කට්ටලයක් භාවිතා කරන්නෙමි. විකුණුම් තොරතුරු නියෝජනය කරන දත්ත කට්ටලයේ තීරු 4ක් ඇත. මෙම තීරු විකුණුම් පුද්ගලයා, කලාපය, නිෂ්පාදනය, සහ මිල .

3568

මෙහි, මම LastRow_SpecialCells නමින් උප ක්‍රියා පටිපාටියක් සාදා ඇත, එහිදී දිගු වර්ගයකි. විචල්‍යයේ LastRow ප්‍රකාශ කර ඇත.

ඉන්පසු Range.SpecialCells ක්‍රමය භාවිතයෙන් විචල්‍යය නිර්වචනය කරන ලදී. මෙන්න, මම පරාසය ලෙස A ( A:A ) තීරුව භාවිතා කර ඇත. xlCellTypeLastCell SpecialCells හි වර්ග පරාමිතිය ලෙස සපයා ඇත, මෙය පරාසය සඳහා අවසාන කොටුව ලබා දෙනු ඇත (මෙම අවස්ථාව සඳහා, තීරුවෙන් A ).

මම ප්‍රතිඵලය පෙන්වීමට පණිවිඩ පෙට්ටියක් භාවිතා කර ඇත.

ඉන් පසු, කේතය සුරකින්න සහ ආපසු යන්න වැඩ පත්‍රිකාව.

නැවතත්, View tab >> Macros >> තෝරන්න මැක්‍රෝස් බලන්න

ඉන්පසු, සංවාද පෙට්ටියක් උපතේවි.

දැන්, මැක්‍රෝ නාමයෙන් LastRow_SpecialCells තෝරන්න Macros in තුළ වැඩපොතද තෝරන්න.

අවසානය, තෝරාගත් මැක්‍රෝ ධාවනය කරන්න.

මේ අනුව, එය අවසාන පේළි අංකය පෙන්වන පණිවිඩ පෙට්ටියක් උත්පතන වනු ඇත.

2. හිස් නොවන සෛල සඳහා Rows.Count භාවිතා කිරීම

ඔබට VBA භාවිතයෙන් අවසාන පේළිය සොයා ගැනීමට Rows.Count ක්‍රමය භාවිත කළ හැක. .

දැන්, Developer tab >> ඉන්පසු Visual Basic

Microsoft Visual Basic for Applications හි නව කවුළුවක් උත්පතන වනු ඇත.

දැන්, ඇතුළු කරන්න >> මොඩියුලය තෝරන්න

A මොඩියුලය විවෘත වේ.

ඉන්පසු <2 හි පහත කේතය ලියන්න>මොඩියුලය .

3646

මෙහි, මම LastRow_NonEmpty නමින් උප ක්‍රියා පටිපාටියක් සාදා ඇත, එහිදී Long ආකාරයේ විචල්‍ය LastRow ප්‍රකාශ කර ඇත.

දැන්, CELLS(පේළි ගණන, 1) පළමු තීරුවේ පේළි කීයක් තිබේ දැයි ගණන් කරනු ඇත. ඉන්පසු End(xlUp).Row භාවිත කළා දැන් මෙය Excel පරාසයක අවසන් වරට භාවිත කළ පේළිය සොයා ගනී.

අවසානයේදී, මම පණිවිඩ පෙට්ටියක් භාවිතා කළෙමිප්රතිඵලය.

ඉන්පසු, කේතය සුරකින්න සහ වැඩ පත්රිකාව වෙත ආපසු යන්න.

මෙහි, View tab >> Macros >> තෝරන්න මැක්‍රෝස් බලන්න

දැන්, සංවාද පෙට්ටියක් උපතේවි.

ඉන්පසු, මැක්‍රෝ නාමයෙන් LastRow_NonEmpty ද තෝරන්න Macros in තුළ වැඩපොත තෝරන්න.

අවසානය, තෝරාගත් මැක්‍රෝ ධාවනය කරන්න.

මේ අනුව, එය අවසාන පේළි අංකය පෙන්වන පණිවිඩ පෙට්ටියක් උත්පතන වනු ඇත.

3. පේළි භාවිතා කිරීම. තෝරාගත් ඕනෑම තීරුවක් සඳහා ගණන් කරන්න

VBA හි තෝරාගත් ඕනෑම තීරුවක් භාවිතා කිරීමෙන්, ඔබට අවසාන පේළිය සොයා ගත හැක.

පළමු , Developer tab >> ඉන්පසු Visual Basic

Microsoft Visual Basic for Applications හි නව කවුළුවක් උත්පතන වනු ඇත.

දැන්, ඇතුළු කරන්න >> මොඩියුලය තෝරන්න

A මොඩියුලය විවෘත වේ.

ඉන්පසු <2 හි පහත කේතය ලියන්න>මොඩියුලය .

9386

මෙහි, මම LastRow_AnyColumn නමින් උප ක්‍රියා පටිපාටියක් සාදා ඇත, එහිදී Long ආකාරයේ විචල්‍යයක් LastRow ප්‍රකාශ කර ඇත.

ඉන්පසු, පරාසය පරාමිතියක් ලෙස B තීරුව ලබා දී ඇති අතර පේළි ගණන් , මෙය දී ඇති තීරුවක B පේළි කීයක් තිබේ දැයි ගණන් කරනු ඇත. ඊළඟට, End(xlup) භාවිත කළා. පේළිය එය Excel පරාසයක අවසන් වරට භාවිතා කළ පේළිය සොයා ගනී.

අවසානය, මම පෙන්වීමට පණිවිඩ පෙට්ටියක් භාවිතා කළෙමිප්රතිඵලය.

ඊළඟට, කේතය සුරකින්න සහ වැඩ පත්රිකාව වෙත ආපසු යන්න.

ඉන්පසු, View tab >> Macros >> තෝරන්න මැක්‍රෝස් බලන්න

මෙහි, සංවාද කොටුවක් උත්පත වනු ඇත.

දැන්, මැක්‍රෝ නාමයෙන් LastRow_AnyColumn තෝරන්න Macros in තුළ වැඩපොතද තෝරන්න.

අවසානය, තෝරාගත් මැක්‍රෝ ධාවනය කරන්න.

මේ අනුව, එය අවසාන පේළි අංකය පෙන්වන පණිවිඩ පෙට්ටියක් උත්පතන වනු ඇත.

සමාන කියවීම්:

• VBA Excel හි තීරුවෙන් සොයන්න (ප්‍රවේශ 7)
• VBA භාවිතා කර ප්‍රතිස්ථාපනය කරන්න (11 ක්‍රම)
• Excel හි VBA භාවිතයෙන් නිවැරදි ගැළපීම සොයන්න (ක්‍රම 5)
• Excel හි VBA සමඟ String සොයන්නේ කෙසේද (උදාහරණ 8)

4. අවසාන පේළිය සොයා ගැනීමට UsedRange භාවිතා කිරීම

ඔබට වැඩ පත්‍රිකාවේ UsedRange ගුණය භාවිතා කර අවසාන එක සොයා ගත හැක. පේළිය VBA භාවිතා කරන්න.

දැන්, සංවර්ධක tab >> ඉන්පසු Visual Basic

ඉන්පසු, Microsoft Visual Basic for Applications හි නව කවුළුවක් උත්පතන වනු ඇත.

A මොඩියුලය විවෘත වනු ඇත.

ඉන්පසු, <හි පහත කේතය ලියන්න 2>මොඩියුලය .

7831

මෙහි, මම LastRow_UsedRange නමින් උප ක්‍රියා පටිපාටියක් සාදා ඇත, එහිදී Long ආකාරයේ විචල්‍ය LastRow ප්‍රකාශ කර ඇත.

ඊළඟට, අර්ථ දක්වා ඇත ActiveSheet.UsedRange.Rows.Rows ක්‍රමය භාවිතා කරමින් විචල්‍යය ActiveSheet.UsedRange.Rows.Count ActiveSheet.UsedRange.Rows හි පරාමිතිය ලෙසද සපයා ඇත. අවසාන පේළිය.

ප්‍රතිඵලය පෙන්වීමට මම පණිවිඩ පෙට්ටියක් භාවිතා කළෙමි.

දැන්, කේතය සුරකින්න සහ වැඩ පත්‍රිකාව වෙත ආපසු යන්න.

>ඉන්පසු, View tab >> Macros >> තෝරන්න මැක්‍රෝ බලන්න

ඊළඟට, සංවාද කොටුවක් උපතේවි.

ඉන්පසු, මැක්‍රෝ වෙතින් නම LastRow_UsedRange තෝරන්න Macros in තුළ වැඩපොතද තෝරන්න.

අවසානය, Run තෝරාගත් Macro .

මේ අනුව, එය අවසාන පේළි අංකය පෙන්වන පණිවිඩ පෙට්ටියක් උත්පතන වනු ඇත.

5. Range.Find to Find Last භාවිතා කිරීම පේළිය

ඔබට පරාසය භාවිතා කළ හැක. VBA භාවිතයෙන් අවසාන පේළිය සොයා ගැනීමට ක්‍රමය සොයන්න.

දැන්, <2 විවෘත කරන්න>සංවර්ධක tab >> ඉන්පසු Visual Basic

මෙහි, Microsoft Visual Basic for Applications හි නව කවුළුවක් උත්පතන වනු ඇත.

දැන්, <වෙතින් 2>ඇතුළු කරන්න >> Module

A Module විවෘත වනු ඇත.

ඉන්පසු Module හි පහත කේතය ලියන්න.

8266

මෙහි, මම Range_Find_Method නමින් උප ක්‍රියා පටිපාටියක් සාදා ඇත, එහිදී Long ආකාරයේ විචල්‍යයක් LastRow ප්‍රකාශ කර ඇත. .

ඉන්පසු Cells.Find ක්‍රමය භාවිතයෙන් විචල්‍යය නිර්වචනය කරන ලදී. මෙන්න, ප්රකාශිත 7පරාමිතීන්. මම භාවිතා කළ මොන පරාමිතිය තුළ (“*”) පළමු හිස් නොවන කොටුව සොයා ගනු ඇත. ආරම්භ කිරීමට පසු පරාමිතියෙහි පරාසය ලෙස A1 ලබා දී ඇත. කොටුව තුළ ඇති පෙළෙහි ඕනෑම කොටසක් බැලීමට LookAt පරාමිතිය තුළ xlPart .

LookIn:=xlFormulas පරාමිතිය සොයනු ඇත. සූත්‍ර තිබේ නම්. SearchOrder:=xlByRows පරාමිතිය දකුණේ සිට වමට චලනය වන අතර හිස් නොවන කොටුවක් සොයා ගන්නා තෙක් එක් එක් පේළිය හරහා ලූප් වේ.

MatchCase:=False පරාමිතිය සොයා ගන්න ට කියනු ඇත විශාල හෝ කුඩා අකුරු නොසලකන්න. හිස් නොවන එකක් සොයාගත් විට එය නතර වී පේළි අංකය ආපසු ලබා දෙයි.

මම ප්‍රතිඵලය පෙන්වීමට පණිවිඩ පෙට්ටියක් භාවිතා කළෙමි.

දැන්, කේතය සුරකින්න සහ වැඩ පත්‍රිකාව වෙත ආපසු යන්න.

මෙහි, View tab >> Macros >> තෝරන්න මැක්‍රෝස් බලන්න

දැන්, සංවාද පෙට්ටියක් උපතේවි.

දැන්, මැක්‍රෝ නාමයෙන් තෝරන්න Range_Find_Method එමෙන්ම Macros in තුළ ඇති වැඩ පත්‍රිකාව තෝරන්න.

අවසානය, තෝරාගත් මැක්‍රෝ ධාවනය කරන්න.

මේ අනුව, එය අවසාන පේළි අංකය පෙන්වන පණිවිඩ පෙට්ටියක් උත්පතන වනු ඇත.

නිගමනය

මෙම ලිපියෙන්, මම VBA එක්සෙල් හි අවසාන පේළිය සොයා ගැනීමට ක්‍රම 5ක් පැහැදිලි කර ඇත්තෙමි. අවසාන පේළිය සොයා ගැනීමට ඔබට ඕනෑම ක්රමයක් අනුගමනය කළ හැකිය. මෙම ක්‍රම සම්බන්ධයෙන් ඔබට කිසියම් ව්‍යාකූලත්වයක් හෝ ප්‍රශ්නයක් තිබේ නම්, ඔබට එය කළ හැකියපහතින් අදහස් දක්වන්න.