Rows (propiedad)

Importante

Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

Devuelve un objeto Range que representa todas las filas de la hoja de cálculo activa. Si el documento activo no es una hoja de cálculo, la propiedad Rows devuelve un error. Range de solo lectura.

Sintaxis

expresión .Rows

expresión Variable que representa un objetoApplication object.

Notas

El uso de esta propiedad sin un calificador de objeto equivale a usar ActiveSheet.Rows.

Si se aplica a un objeto Range que es una selección de varias áreas, la propiedad únicamente devuelve las filas de la primera área del rango. Por ejemplo, si el objeto Range tiene dos áreas, A1:B2 y C3:D4, Selection.Rows.Count devuelve 2, no 4. Si desea utilizar esta propiedad en un rango que puede contener una selección múltiple, compruebe Areas.Count para determinar si el rango es una selección múltiple. En ese caso, ejecute un bucle sobre cada área del rango, tal como se muestra en el tercer ejemplo.

Ejemplo

En este ejemplo se elimina la fila tres de Sheet1.

Worksheets("Sheet1").Rows(3).Delete

Ejemplo

En este ejemplo se eliminan las filas de la región actual de la hoja de cálculo uno en las que 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

Ejemplo

En este ejemplo se muestra el número de filas de la selección de Sheet1. Si se ha seleccionado más de un área, el ejemplo ejecuta un bucle en cada área.

Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
    MsgBox "The selection contains " & _
        Selection.Rows.Count & " rows."
Else
    i = 1
    For Each a In Selection.Areas
        MsgBox "Area " & i & " of the selection contains " & _
            a.Rows.Count & " rows."
        i = i + 1
    Next a
End If

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.