Filas Excel – macros VBA
Encontrar última fila
intUltimaFila = _ Columns("A:A").Range("A65536").End(xlUp).Row |
Encontrar última fila
intUltimaFila = _ ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count |
Encontrar última fila
MaxRow = Cells.SpecialCells(xlLastCell).Row MaxCol = Cells.SpecialCells(xlLastCell).Column |
Encontrar última celda (buscar al revés)
Dim lngUltimaCelda As Long If WorksheetFunction.CountA(Cells) > 0 Then lngUltimaCelda = Cells.Find(What:="*", After:=[A1], _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row MsgBox lngUltimaCelda End If |
Encontrar última fila (en columna especificada)
Dim intUltimaFila As Range If WorksheetFunction.CountA(Columns(1)) > 0 Then Set intUltimaFila = Range("65536").End(xlUp) MsgBox intUltimaFila.Address End If |
Suprimir filas vacías
intLastRow = Columns("A:A").Range("A65536").End(xlUp).Row For r = intLastRow To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r |
Suprimir filas vacías
Dim intNumDeFilas As Long Selection.SpecialCells(xlCellTypeLastCell).Select intNumDeFilas = Selection.Row For i = 1 To intNumDeFilas If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete End If Next |
Suprimir filas vacías
intUltimaFila = _ ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count For r = intUltimaFila To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r |
Suprimir filas por condición
Dim rngString As Range Do Set rngString = Cells.Find("Aglis", MatchCase:=False, _ LookAt:=xlPart, LookIn:=xlValues) If Not rngString Is Nothing Then rngString.EntireRow.Delete End If Loop Until rngString Is Nothing |
Suprimir filas vacías por dos condiciónes X, Y
For i = intUltimaFila To 1 Step -1 Let strTest= Application.Cells(i, 2) If strTest <> "X" And strTest <> "Y" Then Rows(i).Delete Next i |


RSS