VBA Excel-ൽ അവസാന വരി കണ്ടെത്തുക (5 വഴികൾ)

Hugh West

16-10-2023 മാക്രോകൾ & എക്സൽ വി.ബി.എ
  • ഇത് പങ്കുവയ്ക്കുക
Hugh West

വിബിഎയിൽ അവസാനത്തെ വരി കണ്ടെത്താൻ നിങ്ങൾക്ക് വ്യത്യസ്ത രീതികൾ ഉപയോഗിക്കാം. ഈ ലേഖനത്തിൽ, Excel-ൽ അവസാനത്തെ വരി കണ്ടെത്തുന്ന VBA-യുടെ വ്യത്യസ്ത രീതികൾ ഞാൻ വിശദീകരിക്കാൻ പോകുന്നു.

ഈ വിശദീകരണം ദൃശ്യമാക്കാൻ, ഞാൻ ഒരു സാമ്പിൾ ഡാറ്റാസെറ്റ് ഉപയോഗിക്കാൻ പോകുന്നു. വിൽപ്പന വിവരങ്ങൾ പ്രതിനിധീകരിക്കുന്ന ഡാറ്റാസെറ്റിൽ 4 നിരകളുണ്ട്. ഈ നിരകൾ വിൽപ്പന വ്യക്തി, പ്രദേശം, ഉൽപ്പന്നം, , വില എന്നിവയാണ്.

7> പ്രാക്ടീസ് ചെയ്യാൻ ഡൗൺലോഡ് ചെയ്യുക VBA അവസാനത്തെ Row.xlsm കണ്ടെത്തുക

VBA- യ്‌ക്കുള്ള വഴികൾ Excel-ൽ അവസാന വരി കണ്ടെത്തുക

1. സ്പെഷ്യൽ സെല്ലുകൾ ഉപയോഗിച്ച് അവസാന വരി കണ്ടെത്തുന്നതിന്

നിങ്ങൾക്ക് SpecialCells രീതി ഉപയോഗിച്ച് VBA ഉപയോഗിച്ച് അവസാന വരി കണ്ടെത്താം.

ആദ്യം, ഡെവലപ്പർ തുറക്കുക ടാബ് >> തുടർന്ന് വിഷ്വൽ ബേസിക് തിരഞ്ഞെടുക്കുക

ആപ്ലിക്കേഷനുകൾക്കായുള്ള മൈക്രോസോഫ്റ്റ് വിഷ്വൽ ബേസിക് -ന്റെ ഒരു പുതിയ വിൻഡോ പോപ്പ് അപ്പ് ചെയ്യും.

ഇപ്പോൾ, ഇൻസേർട്ട് >> എന്നതിൽ നിന്ന്; മൊഡ്യൂൾ തിരഞ്ഞെടുക്കുക

ഒരു മൊഡ്യൂൾ തുറക്കും.

തുടർന്ന് <2-ൽ ഇനിപ്പറയുന്ന കോഡ് എഴുതുക>മൊഡ്യൂൾ . 

9062

ഇവിടെ, ഞാൻ LastRow_SpecialCells എന്ന പേരിൽ ഒരു ഉപ നടപടിക്രമം സൃഷ്‌ടിച്ചു, ഇവിടെ ഒരു Long തരം വേരിയബിളിന്റെ LastRow പ്രഖ്യാപിച്ചു.

തുടർന്ന് Range.SpecialCells രീതി ഉപയോഗിച്ച് വേരിയബിൾ നിർവചിച്ചു. ഇവിടെ, ഞാൻ നിരയായി A ( A:A ) നിര ഉപയോഗിച്ചു. SpecialCells എന്നതിന്റെ തരം പരാമീറ്ററായി xlCellTypeLastCell നൽകിയാൽ, ഇത് ശ്രേണിയുടെ അവസാന സെൽ നൽകും (ഈ സാഹചര്യത്തിൽ, കോളത്തിൽ നിന്ന്. A ).

ഫലം കാണിക്കാൻ ഞാൻ ഒരു സന്ദേശ ബോക്‌സ് ഉപയോഗിച്ചു.

അതിനുശേഷം, കോഡ് സംരക്ഷിച്ച് ഇതിലേക്ക് മടങ്ങുക വർക്ക്ഷീറ്റ്.

വീണ്ടും, കാണുക ടാബ് >> മാക്രോകളിൽ നിന്ന് >> മാക്രോകൾ കാണുക

അതിനുശേഷം, ഡയലോഗ് ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

<1

ഇപ്പോൾ, മാക്രോ നാമത്തിൽ നിന്ന് LastRow_SpecialCells Macros in എന്നതിനുള്ളിലെ വർക്ക്ബുക്കും തിരഞ്ഞെടുക്കുക.

അവസാനം, തിരഞ്ഞെടുത്ത മാക്രോ റൺ ചെയ്യുക.

അങ്ങനെ, അത് അവസാന വരി നമ്പർ കാണിക്കുന്ന ഒരു സന്ദേശ ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

2. ശൂന്യമല്ലാത്ത സെല്ലുകൾക്കായുള്ള Rows.Count ഉപയോഗിക്കുന്നു

നിങ്ങൾക്ക് Rows.Count രീതി ഉപയോഗിച്ച് VBA ഉപയോഗിച്ച് അവസാന വരി കണ്ടെത്താം. .

ഇപ്പോൾ, ഡെവലപ്പർ ടാബ് >> തുറക്കുക; തുടർന്ന് വിഷ്വൽ ബേസിക് തിരഞ്ഞെടുക്കുക

ആപ്ലിക്കേഷനുകൾക്കായുള്ള മൈക്രോസോഫ്റ്റ് വിഷ്വൽ ബേസിക് -ന്റെ ഒരു പുതിയ വിൻഡോ പോപ്പ് അപ്പ് ചെയ്യും.

ഇപ്പോൾ, ഇൻസേർട്ട് >> എന്നതിൽ നിന്ന്; മൊഡ്യൂൾ തിരഞ്ഞെടുക്കുക

ഒരു മൊഡ്യൂൾ തുറക്കും.

തുടർന്ന് <2-ൽ ഇനിപ്പറയുന്ന കോഡ് എഴുതുക>മൊഡ്യൂൾ . 

7382

ഇവിടെ, ഞാൻ LastRow_NonEmpty എന്ന പേരിൽ ഒരു ഉപ നടപടിക്രമം സൃഷ്ടിച്ചു, അവിടെ Long തരം വേരിയബിൾ LastRow പ്രഖ്യാപിച്ചു.

ഇപ്പോൾ, CELLS(Rows.Count, 1) ആദ്യ നിരയിൽ എത്ര വരികൾ ഉണ്ടെന്ന് കണക്കാക്കും. പിന്നീട് ഉപയോഗിച്ചത് End(xlUp).Row ഇപ്പോൾ ഇത് Excel ശ്രേണിയിൽ അവസാനം ഉപയോഗിച്ച വരി കണ്ടെത്തും.

അവസാനം, ഞാൻ ഒരു സന്ദേശ ബോക്‌സ് ഉപയോഗിച്ചുഫലം.

തുടർന്ന്, കോഡ് സംരക്ഷിച്ച് വർക്ക്ഷീറ്റിലേക്ക് മടങ്ങുക.

ഇവിടെ, കാണുക ടാബ് >> മാക്രോകളിൽ നിന്ന് >> മാക്രോകൾ കാണുക

ഇപ്പോൾ ഡയലോഗ് ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

<1

അതിനുശേഷം, മാക്രോ നാമത്തിൽ നിന്ന് LastRow_NonEmpty Macros in എന്നതിനുള്ളിലെ വർക്ക്ബുക്കും തിരഞ്ഞെടുക്കുക.

അവസാനം, തിരഞ്ഞെടുത്ത മാക്രോ റൺ ചെയ്യുക.

അങ്ങനെ, അവസാന വരി നമ്പർ കാണിക്കുന്ന ഒരു സന്ദേശ ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

3. വരികൾ ഉപയോഗിച്ച് , ഡെവലപ്പർ ടാബ് >> തുറക്കുക; തുടർന്ന് വിഷ്വൽ ബേസിക് തിരഞ്ഞെടുക്കുക

ആപ്ലിക്കേഷനുകൾക്കായുള്ള മൈക്രോസോഫ്റ്റ് വിഷ്വൽ ബേസിക് -ന്റെ ഒരു പുതിയ വിൻഡോ പോപ്പ് അപ്പ് ചെയ്യും.

ഇപ്പോൾ, ഇൻസേർട്ട് >> എന്നതിൽ നിന്ന്; മൊഡ്യൂൾ തിരഞ്ഞെടുക്കുക

ഒരു മൊഡ്യൂൾ തുറക്കും.

തുടർന്ന് <2-ൽ ഇനിപ്പറയുന്ന കോഡ് എഴുതുക>മൊഡ്യൂൾ . 

7427

ഇവിടെ, ഞാൻ LastRow_AnyColumn എന്ന പേരിൽ ഒരു ഉപ നടപടിക്രമം സൃഷ്ടിച്ചു, അവിടെ ഒരു Long തരം വേരിയബിൾ LastRow പ്രഖ്യാപിച്ചു.

പിന്നെ, റേഞ്ച് എന്ന കോളം B ഒരു പാരാമീറ്ററായി നൽകിയിരിക്കുന്നു കൂടാതെ Rows.Count , ഇത് തന്നിരിക്കുന്ന കോളത്തിൽ B എത്ര വരികൾ ഉണ്ടെന്ന് കണക്കാക്കും. അടുത്തതായി, End(xlup) ഉപയോഗിച്ചു. ഒരു Excel ശ്രേണിയിൽ അവസാനം ഉപയോഗിച്ച വരി കണ്ടെത്തുന്ന വരി ഫലം.

അടുത്തത്, കോഡ് സംരക്ഷിച്ച് വർക്ക്ഷീറ്റിലേക്ക് മടങ്ങുക.

തുടർന്ന്, കാണുക ടാബ് >> മാക്രോകളിൽ നിന്ന് >> മാക്രോകൾ കാണുക

ഇവിടെ ഡയലോഗ് ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

<1

ഇപ്പോൾ, മാക്രോ നാമത്തിൽ നിന്ന് LastRow_AnyColumn തിരഞ്ഞെടുക്കുക Macros in എന്നതിനുള്ളിലെ വർക്ക്ബുക്കും തിരഞ്ഞെടുക്കുക.

അവസാനം, തിരഞ്ഞെടുത്ത മാക്രോ റൺ ചെയ്യുക.

അങ്ങനെ, അവസാനത്തെ വരി നമ്പർ കാണിക്കുന്ന ഒരു സന്ദേശ ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

സമാനമായ വായനകൾ:

  • VBA Excel ലെ കോളത്തിൽ കണ്ടെത്തുക (7 സമീപനങ്ങൾ)
  • VBA ഉപയോഗിച്ച് കണ്ടെത്തി മാറ്റിസ്ഥാപിക്കുക (11 വഴികൾ)
  • Excel-ൽ VBA ഉപയോഗിച്ച് കൃത്യമായ പൊരുത്തം കണ്ടെത്തുക (5 വഴികൾ)
  • Excel-ൽ VBA ഉപയോഗിച്ച് സ്ട്രിംഗ് എങ്ങനെ കണ്ടെത്താം (8 ഉദാഹരണങ്ങൾ)

4. അവസാന വരി കണ്ടെത്താൻ UsedRange ഉപയോഗിച്ച്

നിങ്ങൾക്ക് വർക്ക്ഷീറ്റിന്റെ UsedRange പ്രോപ്പർട്ടി ഉപയോഗിച്ച് അവസാനത്തേത് കണ്ടെത്താനാകും VBA ഉപയോഗിച്ച് വരി.

ഇപ്പോൾ, ഡെവലപ്പർ ടാബ് >> തുടർന്ന് വിഷ്വൽ ബേസിക് തിരഞ്ഞെടുക്കുക

അതിനുശേഷം, ആപ്ലിക്കേഷനുകൾക്കായുള്ള മൈക്രോസോഫ്റ്റ് വിഷ്വൽ ബേസിക് ന്റെ ഒരു പുതിയ വിൻഡോ പോപ്പ് അപ്പ് ചെയ്യും.

ഇപ്പോൾ, ഇൻസേർട്ട് >> മൊഡ്യൂൾ തിരഞ്ഞെടുക്കുക

ഒരു മൊഡ്യൂൾ തുറക്കും.

തുടർന്ന്, <എന്നതിൽ ഇനിപ്പറയുന്ന കോഡ് എഴുതുക 2>മൊഡ്യൂൾ . 

5900

ഇവിടെ, ഞാൻ LastRow_UsedRange എന്ന പേരിൽ ഒരു ഉപ നടപടിക്രമം സൃഷ്ടിച്ചു, ഇവിടെ Long തരം വേരിയബിൾ LastRow പ്രഖ്യാപിച്ചു.

അടുത്തത്, നിർവചിച്ചു ActiveSheet.UsedRange.Rows രീതി ഉപയോഗിച്ച് വേരിയബിളും ActiveSheet.UsedRange.Rows.Count എന്ന പാരാമീറ്ററായി ActiveSheet.UsedRange.Rows നൽകുന്നു, ഇത് തിരികെ നൽകും അവസാന വരി.

ഫലം കാണിക്കാൻ ഞാൻ ഒരു സന്ദേശ ബോക്‌സ് ഉപയോഗിച്ചു.

ഇപ്പോൾ, കോഡ് സംരക്ഷിച്ച് വർക്ക്‌ഷീറ്റിലേക്ക് മടങ്ങുക.

> തുടർന്ന്, കാണുക ടാബ് >> തുറക്കുക; മാക്രോകളിൽ നിന്ന് >> മാക്രോകൾ കാണുക

അടുത്തതായി, ഒരു ഡയലോഗ് ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

തുടർന്ന്, മാക്രോയിൽ നിന്ന് പേര് LastRow_UsedRange തിരഞ്ഞെടുക്കുക Macros in എന്നതിനുള്ളിലെ വർക്ക്ബുക്കും തിരഞ്ഞെടുക്കുക.

അവസാനം, Run തിരഞ്ഞെടുത്ത Macro .

അങ്ങനെ, അവസാന വരി നമ്പർ കാണിക്കുന്ന ഒരു സന്ദേശ ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

5. റേഞ്ച് ഉപയോഗിക്കുന്നു. അവസാനമായി കണ്ടെത്തുന്നതിന് കണ്ടെത്തുക വരി

നിങ്ങൾക്ക് റേഞ്ച് ഉപയോഗിക്കാം. VBA ഉപയോഗിച്ച് അവസാന വരി കണ്ടെത്തുന്നതിന് രീതി കണ്ടെത്തുക.

ഇപ്പോൾ, <2 തുറക്കുക>ഡെവലപ്പർ ടാബ് >> തുടർന്ന് വിഷ്വൽ ബേസിക് തിരഞ്ഞെടുക്കുക

ഇവിടെ, ആപ്ലിക്കേഷനുകൾക്കായുള്ള മൈക്രോസോഫ്റ്റ് വിഷ്വൽ ബേസിക് ന്റെ ഒരു പുതിയ വിൻഡോ പോപ്പ് അപ്പ് ചെയ്യും.

ഇപ്പോൾ, <എന്നതിൽ നിന്ന് 2>തിരുകുക >> Module

A Module എന്നത് തിരഞ്ഞെടുക്കുക.

തുടർന്ന് Module എന്നതിൽ ഇനിപ്പറയുന്ന കോഡ് എഴുതുക. 

8263

ഇവിടെ, Range_Find_Method എന്ന പേരിൽ ഒരു ഉപ നടപടിക്രമം ഞാൻ സൃഷ്ടിച്ചിട്ടുണ്ട്, ഇവിടെ ഒരു Long തരം വേരിയബിൾ LastRow പ്രഖ്യാപിച്ചു. .

തുടർന്ന് Cells.Find രീതി ഉപയോഗിച്ച് വേരിയബിൾ നിർവചിച്ചു. ഇവിടെ, 7 പ്രഖ്യാപിച്ചുപരാമീറ്ററുകൾ. ഏത് പാരാമീറ്ററിൽ ഞാൻ ഉപയോഗിച്ചത് (“*”) ആദ്യത്തെ ശൂന്യമല്ലാത്ത സെൽ കണ്ടെത്തും. A1 ആരംഭിക്കാനുള്ള ആഫ്റ്റർ പാരാമീറ്ററിലെ ശ്രേണിയായി നൽകിയിരിക്കുന്നു. LookAt പാരാമീറ്ററിൽ xlPart സെല്ലിനുള്ളിലെ ടെക്‌സ്‌റ്റിന്റെ ഏതെങ്കിലും ഭാഗം നോക്കാൻ നൽകിയിരിക്കുന്നു.

LookIn:=xlFormulas പാരാമീറ്റർ തിരയും. ഫോർമുലകൾ ഉണ്ടെങ്കിൽ. SearchOrder:=xlByRows പാരാമീറ്റർ വലത്തുനിന്നും ഇടത്തേക്ക് നീങ്ങും കൂടാതെ ശൂന്യമല്ലാത്ത സെൽ കണ്ടെത്തുന്നതുവരെ ഓരോ വരിയിലൂടെയും ലൂപ്പ് ചെയ്യും.

MatchCase:=False വലിയതോ ചെറിയതോ ആയ അക്ഷരങ്ങൾ പരിഗണിക്കരുതെന്ന് കണ്ടെത്തുക എന്ന പാരാമീറ്റർ പറയും. ശൂന്യമല്ലാത്തത് കണ്ടെത്തുമ്പോൾ, അത് നിർത്തുകയും വരി നമ്പർ തിരികെ നൽകുകയും ചെയ്യുന്നു.

ഫലം കാണിക്കാൻ ഞാൻ ഒരു സന്ദേശ ബോക്‌സ് ഉപയോഗിച്ചു.

ഇപ്പോൾ, കോഡ് സംരക്ഷിക്കുക തുടർന്ന് വർക്ക്ഷീറ്റിലേക്ക് മടങ്ങുക.

ഇവിടെ, കാണുക ടാബ് >> മാക്രോകളിൽ നിന്ന് >> മാക്രോകൾ കാണുക

ഇപ്പോൾ ഡയലോഗ് ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

ഇപ്പോൾ, മാക്രോ നാമത്തിൽ നിന്ന് Range_Find_Method Macros in എന്നതിനുള്ളിലെ വർക്ക്ഷീറ്റും തിരഞ്ഞെടുക്കുക.

അവസാനം, തിരഞ്ഞെടുത്ത മാക്രോ റൺ ചെയ്യുക.

അങ്ങനെ, അവസാന വരി നമ്പർ കാണിക്കുന്ന ഒരു സന്ദേശ ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

ഉപസംഹാരം

ഈ ലേഖനത്തിൽ, Excel-ലെ അവസാന വരി VBA കണ്ടെത്തുന്നതിനുള്ള 5 വഴികൾ ഞാൻ വിശദീകരിച്ചിട്ടുണ്ട്. അവസാന വരി കണ്ടെത്തുന്നതിന് നിങ്ങൾക്ക് ഏതെങ്കിലും രീതി പിന്തുടരാം. ഈ രീതികളെക്കുറിച്ച് നിങ്ങൾക്ക് എന്തെങ്കിലും ആശയക്കുഴപ്പമോ ചോദ്യമോ ഉണ്ടെങ്കിൽ, നിങ്ങൾക്ക് ഇത് ചെയ്യാംതാഴെ കമന്റ് ചെയ്യുക.

മുൻ പോസ്റ്റ് Excel-ൽ മറ്റെല്ലാ വരികളും എങ്ങനെ തിരഞ്ഞെടുക്കാം (6 വഴികൾ)
അടുത്ത പോസ്റ്റ് Excel സ്‌പ്രെഡ്‌ഷീറ്റിലെ സ്വയം തൊഴിൽ നികുതി കാൽക്കുലേറ്റർ (എളുപ്പമുള്ള ഘട്ടങ്ങളിലൂടെ സൃഷ്‌ടിക്കുക)

വ്യവസായത്തിൽ 10 വർഷത്തിലേറെ അനുഭവപരിചയമുള്ള വളരെ പരിചയസമ്പന്നനായ എക്സൽ പരിശീലകനും അനലിസ്റ്റുമാണ് ഹ്യൂ വെസ്റ്റ്. അക്കൗണ്ടിംഗ്, ഫിനാൻസ് എന്നിവയിൽ ബിരുദവും ബിസിനസ് അഡ്മിനിസ്ട്രേഷനിൽ ബിരുദാനന്തര ബിരുദവും നേടിയിട്ടുണ്ട്. ഹ്യൂവിന് അധ്യാപനത്തിൽ അഭിനിവേശമുണ്ട് കൂടാതെ പിന്തുടരാനും മനസ്സിലാക്കാനും എളുപ്പമുള്ള ഒരു അദ്വിതീയ അധ്യാപന സമീപനം വികസിപ്പിച്ചെടുത്തിട്ടുണ്ട്. എക്സലിനെ കുറിച്ചുള്ള അദ്ദേഹത്തിന്റെ വിദഗ്ദ്ധ പരിജ്ഞാനം ലോകമെമ്പാടുമുള്ള ആയിരക്കണക്കിന് വിദ്യാർത്ഥികളെയും പ്രൊഫഷണലുകളെയും അവരുടെ കഴിവുകൾ മെച്ചപ്പെടുത്തുന്നതിനും അവരുടെ കരിയറിൽ മികവ് പുലർത്തുന്നതിനും സഹായിച്ചിട്ടുണ്ട്. തന്റെ ബ്ലോഗിലൂടെ, ഹ്യൂ തന്റെ അറിവ് ലോകവുമായി പങ്കിടുന്നു, സൗജന്യ എക്സൽ ട്യൂട്ടോറിയലുകളും ഓൺലൈൻ പരിശീലനവും വാഗ്ദാനം ചെയ്യുന്നു, വ്യക്തികളെയും ബിസിനസ്സുകളെയും അവരുടെ പൂർണ്ണ ശേഷിയിൽ എത്തിക്കാൻ സഹായിക്കുന്നു.