У ВБА можете користити различите методе да пронађете последњи ред. У овом чланку ћу објаснити различите методе ВБА проналажења последњег реда у Екцел-у.

Да бих ово објашњење учинио видљивим, користићу пример скупа података. У скупу података постоје 4 колоне које представљају информације о продаји. Ове колоне су Продавац, Регион, Производ, и Цена .

Преузми за вежбање

Начини да ВБА пронађе последњи ред у програму Екцел

1. Коришћење специјалних ћелија да бисте пронашли последњи ред

Можете да користите метод СпециалЦеллс да бисте пронашли последњи ред користећи ВБА .

Прво, отворите Програмер таб &гт;&гт; затим изаберите Висуал Басиц

Појавиће се нови прозор Мицрософт Висуал Басиц за апликације .

Сада, од Инсерт &гт;&гт; изаберите Модул

Отвориће се Модул .

Затим упишите следећи код у Модул .

5815

Овде сам направио потпроцедуру под називом ЛастРов_СпециалЦеллс , где је тип Лонг декларисана је променљива ЛастРов .

Затим је дефинисана променљива помоћу методе Ранге.СпециалЦеллс . Овде сам користио колону А ( А:А ) као опсег. Уз клЦеллТипеЛастЦелл као параметар типа СпециалЦеллс , ово ће вратити последњу ћелију за опсег (у овом случају, из колоне А ).

Користио сам оквир за поруке да прикажем резултат.

Након тога, Сачувајте код и вратите се на радни лист.

Поново отворите картицу Приказ &гт;&гт; из Макрои &гт;&гт; изаберите Прикажи макрое

Онда ће се појавити дијалошки оквир .

Сада, из Имена макроа изаберите ЛастРов_СпециалЦеллс такође изаберите радну свеску у оквиру Макрои у .

Коначно, Покрените одабрани макро .

Тако ће се појавити оквир са поруком који приказује број последњег реда.

2. Коришћење Ровс.Цоунт за непразне ћелије

Можете користити метод Ровс.Цоунт да бисте пронашли последњи ред користећи ВБА .

Сада отворите картицу Програмер &гт;&гт; затим изаберите Висуал Басиц

Појавиће се нови прозор Мицрософт Висуал Басиц за апликације .

Сада, од Инсерт &гт;&гт; изаберите Модул

Отвориће се Модул .

Затим упишите следећи код у Модул .

8517

Овде сам направио потпроцедуру под називом ЛастРов_НонЕмпти, где је тип променљиве Лонг ЛастРов је декларисано.

Сада ће ЦЕЛЛС(Ровс.Цоунт, 1) бројати колико редова има у првој колони. Затим се користи Енд(клУп).Ров сада ће ово пронаћи последњи коришћени ред у Екцел опсегу.

На крају, користио сам оквир за поруке да прикажемрезултат.

Затим, Сачувајте код и вратите се на радни лист.

Овде отворите картицу Приказ &гт;&гт; из Макрои &гт;&гт; изаберите Прикажи макрое

Сада ће се појавити дијалошки оквир .

Затим из Име макроа изаберите ЛастРов_НонЕмпти такође изаберите радну свеску у оквиру Макрои у .

Коначно, Покрените одабрани макро .

На тај начин ће се појавити оквир са поруком који приказује број последњег реда.

3. Коришћење Ровс.Цоунт за било коју изабрану колону

Употребом било које изабране колоне у ВБА, можете пронаћи последњи ред.

Први , отворите картицу Програмер &гт;&гт; затим изаберите Висуал Басиц

Појавиће се нови прозор Мицрософт Висуал Басиц за апликације .

Сада, од Инсерт &гт;&гт; изаберите Модул

Отвориће се Модул .

Затим упишите следећи код у Модул .

9581

Овде сам направио потпроцедуру под називом ЛастРов_АниЦолумн, где је тип променљиве Лонг ЛастРов је декларисано.

Онда, у Опсег датој колони Б као параметар и такође Ровс.Цоунт , ово ће рачунати колико редова има у датој колони Б . Затим се користи Енд(клуп). Ред који ће пронаћи последњи коришћени ред у Екцел опсегу.

На крају, користио сам оквир за поруке да прикажемрезултат.

Даље, Сачувајте код и вратите се на радни лист.

Затим отворите картицу Приказ &гт;&гт; из Макрои &гт;&гт; изаберите Прикажи макрое

Овде ће се појавити дијалошки оквир .

Сада, из Имена макроа изаберите ЛастРов_АниЦолумн такође изаберите радну свеску у оквиру Макрои у .

Коначно, Покрените одабрани макро .

На тај начин ће се појавити оквир са поруком који приказује број последњег реда.

Слична очитавања:

• ВБА Пронађи у колони у Екцел-у (7 приступа)
• Пронађи и замени користећи ВБА (11 Начини)
• Пронађите тачно подударање користећи ВБА у Екцел-у (5 начина)
• Како пронаћи стринг са ВБА у Екцел-у (8 примера)

4. Коришћење УседРанге за проналажење последњег реда

Можете користити својство УседРанге радног листа да пронађете последњи ред користећи ВБА .

Сада отворите картицу Програмер &гт;&гт; затим изаберите Висуал Басиц

Онда ће се појавити нови прозор Мицрософт Висуал Басиц за апликације .

Сада, од Инсерт &гт;&гт; изаберите Модуле

Отвориће се Модул .

Затим упишите следећи код у Модул .

1111

Овде сам направио потпроцедуру под називом ЛастРов_УседРанге, где је тип променљиве Лонг ЛастРов је декларисана.

Следеће, дефинисанопроменљива која користи метод АцтивеСхеет.УседРанге.Ровс такође обезбеђује АцтивеСхеет.УседРанге.Ровс.Цоунт као параметар за АцтивеСхеет.УседРанге.Ровс , ово ће вратити последњи ред.

Користио сам оквир за поруке да прикажем резултат.

Сада, Сачувајте код и вратите се на радни лист.

Затим отворите картицу Приказ &гт;&гт; из Макрои &гт;&гт; изаберите Прикажи макрое

Следеће ће се појавити дијалошки оквир .

Затим, из Макроа име изаберите ЛастРов_УседРанге такође изаберите радну свеску у оквиру Макрои у .

На крају, Покрени изабрани Макро .

На тај начин, појавиће се оквир са поруком који приказује број последњег реда.

5. Коришћење Ранге.Финд за проналажење последњег Ред

Можете користити Ранге.Финд метод да пронађете последњи ред користећи ВБА .

Сада отворите Картица Програмер &гт;&гт; затим изаберите Висуал Басиц

Овде ће се појавити нови прозор Мицрософт Висуал Басиц за апликације .

Сада, од Убаци &гт;&гт; изаберите Модуле

Отвориће се Модул .

Затим упишите следећи код у Модул .

7433

Овде сам креирао подпроцедуру под називом Ранге_Финд_Метход, где је декларисан тип променљиве Лонг ЛастРов .

Затим дефинишемо променљиву помоћу методе Целлс.Финд . Овде, проглашено 7параметара. У параметру Шта користио сам (“*”) који ће пронаћи прву непразну ћелију. Дато је А1 као опсег у параметру После за почетак. У параметру ЛоокАт који је дат клПарт да погледате било који део текста унутар ћелије.

ЛоокИн:=клФормулас параметар ће тражити формуле ако их има. СеарцхОрдер:=клБиРовс параметар ће се померати здесна налево и такође ће се кретати кроз сваки ред док не пронађе непразну ћелију.

МатцхЦасе:=Фалсе параметар ће рећи Финд да не узима у обзир велика или мала слова. Када се пронађе непразно, зауставља се и враћа број реда.

Користио сам оквир за поруке да прикажем резултат.

Сада, Сачувај код и вратите се на радни лист.

Овде отворите картицу Приказ &гт;&гт; из Макрои &гт;&гт; изаберите Прикажи макрое

Сада ће се појавити дијалошки оквир .

Сада, са Име макроа изаберите Метод_проналажења опсега такође изаберите радни лист у оквиру Макрои у .

Коначно, Покрените одабрани макро .

На тај начин ће се појавити оквир са поруком који приказује број последњег реда.

Закључак

У овом чланку сам објаснио 5 начина за ВБА проналажење последњег реда у Екцел-у. Можете пратити било који од метода да пронађете последњи ред. У случају да имате било какву забуну или питање у вези са овим методама, можетекоментар доле.