સામગ્રીઓનું કોષ્ટક
VBA માં તમે છેલ્લી પંક્તિ શોધવા માટે વિવિધ પદ્ધતિઓનો ઉપયોગ કરી શકો છો. આ લેખમાં, હું એક્સેલમાં છેલ્લી પંક્તિ શોધવા માટે VBA ની વિવિધ પદ્ધતિઓ સમજાવવા જઈ રહ્યો છું.
આ સમજૂતીને દૃશ્યક્ષમ બનાવવા માટે, હું નમૂના ડેટાસેટનો ઉપયોગ કરવા જઈ રહ્યો છું. વેચાણની માહિતી રજૂ કરતી ડેટાસેટમાં 4 કૉલમ છે. આ કૉલમ્સ છે સેલ્સ પર્સન, પ્રદેશ, પ્રોડક્ટ, અને કિંમત .
પ્રેક્ટિસ કરવા માટે ડાઉનલોડ કરો
વીબીએ છેલ્લી પંક્તિ શોધો છેલ્લી પંક્તિ શોધવા માટેતમે VBA નો ઉપયોગ કરીને છેલ્લી પંક્તિ શોધવા માટે SpecialCells પદ્ધતિનો ઉપયોગ કરી શકો છો.
પ્રથમ, વિકાસકર્તાને ખોલો ટેબ >> પછી વિઝ્યુઅલ બેઝિક
એક નવી વિન્ડો પસંદ કરો એપ્લીકેશન માટે માઇક્રોસોફ્ટ વિઝ્યુઅલ બેઝિક પોપ અપ થશે.
હવે, Insert >> મોડ્યુલ
એ મોડ્યુલ ને પસંદ કરો.
પછી <2 માં નીચેનો કોડ લખો>મોડ્યુલ
.1875
અહીં, મેં LastRow_SpecialCells નામની પેટા પ્રક્રિયા બનાવી છે, જ્યાં Long પ્રકાર વેરીએબલની છેલ્લી હરોળ જાહેર કરવામાં આવી છે.
પછી રેંજ.સ્પેશિયલસેલ્સ પદ્ધતિનો ઉપયોગ કરીને વેરીએબલને વ્યાખ્યાયિત કરો. અહીં, મેં શ્રેણી તરીકે કૉલમ A ( A:A ) નો ઉપયોગ કર્યો છે. SpecialCells ના પ્રકાર પરિમાણ તરીકે xlCellTypeLastCell પ્રદાન કરેલ, આ શ્રેણી માટે છેલ્લો કોષ આપશે (આ કેસ માટે, કૉલમમાંથી A ).
મેં પરિણામ બતાવવા માટે સંદેશ બોક્સનો ઉપયોગ કર્યો છે.
તે પછી, સેવ કોડ અને પર પાછા જાઓ વર્કશીટ.
ફરીથી, જુઓ ટેબ >> ખોલો. મેક્રોઝ >> મેક્રો જુઓ
પછી, એક સંવાદ બોક્સ પૉપ અપ થશે.
<1 પસંદ કરો>
હવે, મેક્રો નામ માંથી LastRow_SpecialCells પસંદ કરો મેક્રો માં.
છેવટે, ની અંદર વર્કબુક પણ પસંદ કરો પસંદ કરેલ મેક્રો ચલાવો.
આ રીતે, તે છેલ્લી પંક્તિ નંબર દર્શાવતો સંદેશ બોક્સ પોપ અપ કરશે.
2. બિન-ખાલી કોષો માટે Rows.Count નો ઉપયોગ કરીને
તમે VBA નો ઉપયોગ કરીને છેલ્લી પંક્તિ શોધવા માટે Rows.Count પદ્ધતિનો ઉપયોગ કરી શકો છો. .
હવે, વિકાસકર્તા ટેબ >> ખોલો. પછી વિઝ્યુઅલ બેઝિક
એપ્લીકેશન માટે માઇક્રોસોફ્ટ વિઝ્યુઅલ બેઝિક ની નવી વિન્ડો પૉપ અપ થશે પસંદ કરો.
હવે, Insert >> મોડ્યુલ
એ મોડ્યુલ ને પસંદ કરો.
પછી <2 માં નીચેનો કોડ લખો>મોડ્યુલ .
9454
અહીં, મેં LastRow_NonEmpty નામની પેટા પ્રક્રિયા બનાવી છે, જ્યાં Long પ્રકારનું ચલ LastRow જાહેર કરવામાં આવ્યું છે.
હવે, સેલ્સ(રો.કાઉન્ટ, 1) ગણતરી કરશે કે પ્રથમ કૉલમમાં કેટલી પંક્તિઓ છે. પછી End(xlUp).પંક્તિનો ઉપયોગ કર્યો હવે આ એક્સેલ શ્રેણીમાં છેલ્લી વપરાયેલી પંક્તિ શોધી કાઢશે.
અંતમાં, મેં સંદેશ બૉક્સનો ઉપયોગ બતાવવા માટે કર્યો છે.પરિણામ.
પછી, કોડ સાચવો અને વર્કશીટ પર પાછા જાઓ.
અહીં, જુઓ ટેબ >> ખોલો. મેક્રોઝ >> મેક્રો જુઓ
હવે, એક સંવાદ બોક્સ પૉપ અપ થશે.
<1 પસંદ કરો>
ત્યારબાદ, મેક્રો નામ માંથી LastRow_NonEmpty પસંદ કરો મેક્રો ની અંદરની વર્કબુક પણ પસંદ કરો.
છેવટે, પસંદ કરેલ મેક્રો ચલાવો.
આ રીતે, તે છેલ્લી પંક્તિ નંબર દર્શાવતો સંદેશ બોક્સ પોપ અપ કરશે.
3. કોઈપણ પસંદ કરેલ કૉલમ માટે પંક્તિઓ. ગણતરીનો ઉપયોગ કરીને
VBA, માં કોઈપણ પસંદ કરેલ કૉલમનો ઉપયોગ કરીને તમે છેલ્લી પંક્તિ શોધી શકો છો.
પ્રથમ , વિકાસકર્તા ટેબ >> ખોલો. પછી વિઝ્યુઅલ બેઝિક
એક નવી વિન્ડો પસંદ કરો એપ્લીકેશન માટે માઇક્રોસોફ્ટ વિઝ્યુઅલ બેઝિક પોપ અપ થશે.
હવે, Insert >> મોડ્યુલ
એ મોડ્યુલ ને પસંદ કરો.
પછી <2 માં નીચેનો કોડ લખો>મોડ્યુલ .
2434
અહીં, મેં LastRow_AnyColumn નામની પેટા પ્રક્રિયા બનાવી છે, જ્યાં Long પ્રકારનું ચલ LastRow જાહેર કરવામાં આવ્યું છે.
પછી, રેન્જ માં કૉલમ B પેરામીટર તરીકે આપેલ છે અને એ પણ પંક્તિઓ. ગણક , આ આપેલ કૉલમ B માં કેટલી પંક્તિઓ છે તેની ગણતરી કરશે. આગળ, વપરાયેલ End(xlup). પંક્તિ જે એક્સેલ શ્રેણીમાં છેલ્લી વપરાયેલી પંક્તિ શોધી કાઢશે.
છેલ્લે, મેં સંદેશ બોક્સનો ઉપયોગપરિણામ.
આગળ, સેવ કોડ અને વર્કશીટ પર પાછા જાઓ.
પછી, જુઓ ટેબ >> ખોલો. મેક્રોઝ >> પસંદ કરો મેક્રો જુઓ
અહીં, એક સંવાદ બોક્સ પોપ અપ થશે.
હવે, મેક્રો નામ માંથી LastRow_AnyColumn પસંદ કરો મેક્રો માં.
છેવટે, માં વર્કબુક પણ પસંદ કરો. પસંદ કરેલ મેક્રો ચલાવો.
આ રીતે, તે છેલ્લી પંક્તિ નંબર દર્શાવતો સંદેશ બોક્સ પોપ અપ કરશે.
સમાન રીડિંગ્સ:
- VBA એક્સેલમાં કૉલમમાં શોધો (7 અભિગમો)
- VBA નો ઉપયોગ કરીને શોધો અને બદલો માર્ગો)
- એક્સેલમાં VBA નો ઉપયોગ કરીને ચોક્કસ મેળ શોધો (5 રીતો)
- એક્સેલમાં VBA સાથે સ્ટ્રિંગ કેવી રીતે શોધવી (8 ઉદાહરણો)
4. છેલ્લી પંક્તિ શોધવા માટે UsedRange નો ઉપયોગ કરવો
તમે છેલ્લી પંક્તિ શોધવા માટે વર્કશીટની UsedRange ગુણધર્મનો ઉપયોગ કરી શકો છો VBA નો ઉપયોગ કરીને પંક્તિ.
હવે, વિકાસકર્તા ટેબ >> ખોલો. પછી વિઝ્યુઅલ બેઝિક
પછી, એપ્લીકેશન માટે માઈક્રોસોફ્ટ વિઝ્યુઅલ બેઝિક ની નવી વિન્ડો પોપ અપ થશે.
હવે, માંથી Insert >> મોડ્યુલ
એ મોડ્યુલ ને પસંદ કરો.
પછી, <માં નીચેનો કોડ લખો 2>મોડ્યુલ .
3201
અહીં, મેં LastRow_UsedRange નામની પેટા પ્રક્રિયા બનાવી છે, જ્યાં Long પ્રકારનું ચલ LastRow જાહેર કરવામાં આવ્યું છે.
આગળ, વ્યાખ્યાયિત કરો ActiveSheet.UsedRange.Rows પદ્ધતિનો ઉપયોગ કરીને ચલ પણ ActiveSheet.UsedRange.Rows.Count ને ActiveSheet.UsedRange.Rows ના પેરામીટર તરીકે પ્રદાન કરે છે, આ છેલ્લી પંક્તિ.
મેં પરિણામ બતાવવા માટે સંદેશ બોક્સનો ઉપયોગ કર્યો છે.
હવે, સેવ કોડ અને વર્કશીટ પર પાછા જાઓ.
ત્યારબાદ, જુઓ ટેબ >> ખોલો. મેક્રોઝ >> મેક્રો જુઓ
પસંદ કરો, આગળ, સંવાદ બોક્સ પોપ અપ થશે.
પછી, મેક્રોમાંથી નામ LastRow_UsedRange પસંદ કરો Macros in ની અંદર પણ વર્કબુક પસંદ કરો.
છેલ્લે, ચલાવો પસંદ કરેલ મેક્રો >.
આમ, તે છેલ્લી પંક્તિ નંબર દર્શાવતો સંદેશ બોક્સ પોપ અપ કરશે.
5. રેન્જનો ઉપયોગ કરીને.છેલ્લું શોધવા માટે શોધો પંક્તિ
તમે VBA નો ઉપયોગ કરીને છેલ્લી પંક્તિ શોધવા માટે રેન્જ. શોધો પદ્ધતિનો ઉપયોગ કરી શકો છો.
હવે, <2 ખોલો>વિકાસકર્તા ટેબ >> પછી વિઝ્યુઅલ બેઝિક 1>
અહીં, એપ્લીકેશન માટે માઈક્રોસોફ્ટ વિઝ્યુઅલ બેઝિક ની નવી વિન્ડો પૉપ અપ થશે.
હવે, અહીંથી શામેલ કરો >> મોડ્યુલ
એ મોડ્યુલ ખોલવામાં આવશે.
પછી મોડ્યુલ માં નીચેનો કોડ લખો.
8534
અહીં, મેં Range_Find_Method નામની પેટા પ્રક્રિયા બનાવી છે, જ્યાં Long પ્રકારનું ચલ LastRow જાહેર કરવામાં આવ્યું છે. .
પછી સેલ્સ. શોધો પદ્ધતિનો ઉપયોગ કરીને ચલ વ્યાખ્યાયિત કરો. અહીં, 7 જાહેરપરિમાણો મેં કયા પેરામીટરનો ઉપયોગ કર્યો છે (“*”) જેમાં પ્રથમ બિન-ખાલી કોષ મળશે. A1 પ્રારંભ કરવા માટે પછી પેરામીટરમાં શ્રેણી તરીકે આપેલ છે. સેલની અંદરના ટેક્સ્ટના કોઈપણ ભાગને જોવા માટે આપેલા LookAt પેરામીટર xlPart માં.
LookIn:=xlFormulas પેરામીટર શોધશે સૂત્રો જો કોઈ હોય તો. SearchOrder:=xlByRows પેરામીટર જમણે-થી-ડાબે જશે અને દરેક પંક્તિમાંથી લૂપ અપ પણ કરશે જ્યાં સુધી તે બિન-ખાલી કોષ શોધે.
MatchCase:=False પરિમાણ શોધો કહેશે કે અપર કે લોઅર કેસ અક્ષરો ધ્યાનમાં ન લેવા. જ્યારે બિન-ખાલી મળે છે ત્યારે તે અટકી જાય છે અને પંક્તિ નંબર પરત કરે છે.
મેં પરિણામ બતાવવા માટે સંદેશ બોક્સનો ઉપયોગ કર્યો છે.
હવે, સાચવો કોડ અને વર્કશીટ પર પાછા જાઓ.
અહીં, જુઓ ટેબ >> ખોલો. મેક્રોઝ >> મેક્રો જુઓ
હવે, એક સંવાદ બોક્સ પૉપ અપ થશે.
<1 પસંદ કરો>
હવે, મેક્રો નામ માંથી રેંજ_શોધ_પદ્ધતિ પસંદ કરો મેક્રોઝ ની અંદરની કાર્યપત્રક પણ પસંદ કરો.
છેવટે, પસંદ કરેલ મેક્રો ચલાવો.
આ રીતે, તે છેલ્લી પંક્તિ નંબર દર્શાવતો સંદેશ બોક્સ પોપ અપ કરશે.
નિષ્કર્ષ
આ લેખમાં, મેં VBA એક્સેલમાં છેલ્લી પંક્તિ શોધવા માટેની 5 રીતો સમજાવી છે. છેલ્લી પંક્તિ શોધવા માટે તમે કોઈપણ પદ્ધતિને અનુસરી શકો છો. જો તમને આ પદ્ધતિઓ વિશે કોઈ મૂંઝવણ અથવા પ્રશ્ન હોય તો તમે કરી શકો છોનીચે ટિપ્પણી કરો.
