Taula de continguts
A VBA podeu utilitzar diferents mètodes per trobar l'última fila. En aquest article, explicaré diferents mètodes de cerca de l'última fila de VBA a Excel.
Per fer visible aquesta explicació, faré servir un conjunt de dades de mostra. Hi ha 4 columnes al conjunt de dades que representen la informació de vendes. Aquestes columnes són Vendedor, regió, producte, i Preu .
Baixeu per practicar
VBA Find Last Row.xlsm
Maneres de VBA Trobar l'última fila a Excel
1. Ús de SpecialCells per trobar l'última fila
Podeu utilitzar el mètode SpecialCells per trobar l'última fila mitjançant VBA .
Primer, obriu el Desenvolupador pestanya >> a continuació, seleccioneu Visual Basic
Apareixerà una finestra nova de Microsoft Visual Basic per a aplicacions .
Ara, des de Insereix >> seleccioneu Mòdul
S'obrirà un Mòdul .
A continuació, escriviu el codi següent al Mòdul .
5734
Aquí, he creat un subprocediment anomenat LastRow_SpecialCells , on un tipus Long de la variable LastRow s'ha declarat.
A continuació, definiu la variable mitjançant el mètode Range.SpecialCells . Aquí, he utilitzat la columna A ( A:A ) com a interval. Si es proporciona xlCellTypeLastCell com a paràmetre de tipus de SpecialCells , retornarà l'última cel·la de l'interval (en aquest cas, de la columna A ).
He utilitzat un quadre de missatge per mostrar el resultat.
Després, Deseu el codi i torneu al full de treball.
De nou, obriu la pestanya Visualitza >> de Macros >> seleccioneu Mostra les macros
A continuació, apareixerà un quadre de diàleg .
Ara, des del Nom de la macro seleccioneu LastRow_SpecialCells també seleccioneu el llibre de treball dins de Macros a .
Finalment, Executeu la Macro seleccionada.
Així, apareixerà un quadre de missatge que mostra l'últim número de fila.
2. Ús de Rows.Count per a cel·les no buides
Podeu utilitzar el mètode Rows.Count per trobar l'última fila mitjançant VBA .
Ara, obriu la pestanya Desenvolupador >> a continuació, seleccioneu Visual Basic
Apareixerà una finestra nova de Microsoft Visual Basic per a aplicacions .
Ara, des de Insereix >> seleccioneu Mòdul
S'obrirà un Mòdul .
A continuació, escriviu el codi següent al Mòdul .
4915
Aquí, he creat un subprocediment anomenat LastRow_NonEmpty, on un tipus Long de variable LastRow S'ha declarat .
Ara, CELLS(Rows.Count, 1) comptarà quantes files hi ha a la primera columna. Després s'utilitza End(xlUp).Row , ara trobarà l'última fila utilitzada en un interval d'Excel.
Al final, he utilitzat un quadre de missatge per mostrar elresultat.
A continuació, Deseu el codi i torneu al full de treball.
Aquí, obriu la pestanya Visualitza >> de Macros >> seleccioneu Mostra les macros
Ara, apareixerà un quadre de diàleg .
A continuació, des del Nom de la macro seleccioneu LastRow_NonEmpty també seleccioneu el llibre de treball a Macros a .
Finalment, Executeu la Macro seleccionada.
Així, apareixerà un quadre de missatge que mostra l'últim número de fila.
3. Ús de Rows.Count per a qualsevol columna seleccionada
En utilitzar qualsevol columna seleccionada a VBA, podeu trobar l'última fila.
Primer , obriu la pestanya Desenvolupador >> a continuació, seleccioneu Visual Basic
Apareixerà una finestra nova de Microsoft Visual Basic per a aplicacions .
Ara, des de Insereix >> seleccioneu Mòdul
S'obrirà un Mòdul .
A continuació, escriviu el codi següent al Mòdul .
3741
Aquí, he creat un subprocediment anomenat LastRow_AnyColumn, on un tipus Long de variable LastRow S'ha declarat .
A continuació, a l' Interval donada la columna B com a paràmetre i també Rows.Count , aquest comptarà quantes files hi ha en una columna determinada B . A continuació, s'utilitza End(xlup). Fila que trobarà l'última fila utilitzada en un interval d'Excel.
Per últim, he utilitzat un quadre de missatge per mostrar elresultat.
A continuació, Deseu el codi i torneu al full de treball.
A continuació, obriu la pestanya Visualitza >> de Macros >> seleccioneu Mostra les macros
Aquí, apareixerà un quadre de diàleg .
Ara, des del Nom de la macro seleccioneu LastRow_AnyColumn també seleccioneu el llibre de treball dins de Macros a .
Finalment, Executeu la Macro seleccionada.
Així, apareixerà un quadre de missatge que mostra l'últim número de fila.
Lectures similars:
- VBA Cerca a la columna d'Excel (7 enfocaments)
- Troba i substitueix amb VBA (11 Maneres)
- Trobar la concordança exacta amb VBA a Excel (5 maneres)
- Com trobar una cadena amb VBA a Excel (8 exemples)
4. Ús d'UsedRange per trobar l'última fila
Podeu utilitzar la propietat UsedRange del full de treball per trobar l'última fila fila utilitzant VBA .
Ara, obriu la pestanya Desenvolupador >> a continuació, seleccioneu Visual Basic
A continuació, apareixerà una finestra nova de Microsoft Visual Basic per a aplicacions .
Ara, des de Insereix >> seleccioneu Mòdul
S'obrirà un Mòdul .
A continuació, escriviu el codi següent a Mòdul .
4468
Aquí, he creat un subprocediment anomenat LastRow_UsedRange, on un tipus Long de variable LastRow s'ha declarat.
A continuació, s'ha definit elvariable utilitzant el mètode ActiveSheet.UsedRange.Rows també va proporcionar ActiveSheet.UsedRange.Rows.Count com a paràmetre de ActiveSheet.UsedRange.Rows , això retornarà el darrera fila.
He utilitzat un quadre de missatge per mostrar el resultat.
Ara, Deseu el codi i torneu al full de treball.
A continuació, obriu la pestanya Visualitza >> de Macros >> seleccioneu Mostra les macros
A continuació, apareixerà un quadre de diàleg .
A continuació, des de la Macro nom seleccioneu el LastRow_UsedRange també seleccioneu el llibre de treball dins de Macros a .
Finalment, Executeu la macro<5 seleccionada>.
Així, apareixerà un quadre de missatge que mostra l'últim número de fila.
5. Utilitzant Range.Find per trobar l'últim Fila
Podeu utilitzar el mètode Range.Find per trobar l'última fila mitjançant VBA .
Ara, obriu el Desenvolupador pestanya >> a continuació, seleccioneu Visual Basic
Aquí, apareixerà una finestra nova de Microsoft Visual Basic per a aplicacions .
Ara, des de Insereix >> seleccioneu Mòdul
S'obrirà un Mòdul .
A continuació, escriviu el codi següent al Mòdul .
5728
Aquí, he creat un subprocediment anomenat Range_Find_Method, on s'ha declarat un tipus Long de variable LastRow .
A continuació, es va definir la variable mitjançant el mètode Cells.Find . Aquí, va declarar 7paràmetres. En Quin paràmetre he utilitzat ("*") que trobarà la primera cel·la no buida. Donat A1 com l'interval del paràmetre Després per començar. Al paràmetre LookAt proporcionat xlPart per mirar qualsevol part del text dins de la cel·la.
LookIn:=xlFormulas el paràmetre cercarà fórmules si n'hi ha. El paràmetre SearchOrder:=xlByRows es mourà de dreta a esquerra i també recorre cada fila fins que trobi una cel·la no buida.
MatchCase:=False El paràmetre indicarà a Find que no tingui en compte les majúscules o minúscules. Quan es troba un no en blanc, s'atura i retorna el número de fila.
He utilitzat un quadre de missatge per mostrar el resultat.
Ara, Desa el codi. i torneu al full de treball.
Aquí, obriu la pestanya Visualitza >> de Macros >> seleccioneu Mostra les macros
Ara, apareixerà un quadre de diàleg .
Ara, des del Nom de la macro seleccioneu el Range_Find_Method també seleccioneu el full de treball a Macros a .
Finalment, Executeu la Macro seleccionada.
Així, apareixerà un quadre de missatge amb l'últim número de fila.
Conclusió
En aquest article, he explicat 5 maneres de VBA trobar l'última fila a Excel. Podeu seguir qualsevol dels mètodes per trobar l'última fila. En cas que tingueu alguna confusió o dubte sobre aquests mètodes, podeucomenta a continuació.
