Propiedad Range.Propiedad Rows (Excel)

• o
• M
• O
• k
• K
• +2

Devuelve un objeto Range que representa las filas del rango especificado.

Sintaxis

expresión.Filas

expresión Una variable que representa un objeto Range.

Observaciones

Para devolver una sola fila, utilice la propiedad Item o, de forma equivalente, incluya un índice entre paréntesis. Por ejemplo, tanto Selection.Rows(1) como Selection.Rows.Item(1) devuelven la primera fila de la selección.

Cuando se aplica a un objeto Range que es una selección múltiple, esta propiedad devuelve filas sólo de la primera zona del rango. Por ejemplo, si el objeto Range someRange tiene dos áreas-A1:B2 y C3:D4-,someRange.Rows.Count devuelve 2, no 4. Para utilizar esta propiedad en un rango que puede contener una selección múltiple, pruebe Areas.Count para determinar si el rango es una selección múltiple. Si lo es, haga un bucle sobre cada área del rango, como se muestra en el tercer ejemplo.

El rango devuelto podría estar fuera del rango especificado. Por ejemplo, Range("A1:B2").Rows(5) devuelve las celdas A5:B5. Para obtener más información, consulte la propiedad Item.

Usar la propiedad Rows sin un calificador de objeto equivale a utilizar ActiveSheet.Rows. Para más información, consulte la propiedad Worksheet.Rows.

Ejemplo

Este ejemplo elimina el rango B5:Z5 en la Hoja1 del libro de trabajo activo.

Worksheets("Sheet1").Range("B2:Z44").Rows(3).Delete

Este ejemplo elimina las filas de la región actual en la hoja de trabajo uno del libro activo donde el valor de la celda uno de la fila es el mismo que el valor de la celda uno de la fila anterior.

For Each rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows this = rw.Cells(1, 1).Value If this = last Then rw.Delete last = this Next

Este ejemplo muestra el número de filas de la selección en la Hoja1. Si se selecciona más de un área, el ejemplo recorre cada área.

Public Sub ShowNumberOfRowsInSheet1Selection Worksheets("Sheet1").Activate Dim selectedRange As Excel.Range Set selectedRange = Selection Dim areaCount As Long areaCount = Selection.Areas.Count If areaCount <= 1 Then MsgBox "The selection contains " & _ Selection.Rows.Count & " rows." Else Dim areaIndex As Long areaIndex = 1 For Each area In Selection.Areas MsgBox "Area " & areaIndex & " of the selection contains " & _ area.Rows.Count & " rows." areaIndex = areaIndex + 1 Next End IfEnd Sub

Soporte y comentarios

¿Tiene preguntas o comentarios sobre Office VBA o esta documentación? Por favor, consulte el soporte y los comentarios de Office VBA para obtener orientación sobre las formas en que puede recibir soporte y proporcionar comentarios.