Propiedad Range.Rows (Excel)

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

Sintaxis

expresión. Filas

expresión Variable que representa un objeto Range.

Comentarios

Para devolver una sola fila, use la propiedad Item o incluya de forma equivalente un índice entre paréntesis. Por ejemplo, y Selection.Rows(1)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 solo del primer área del intervalo. Por ejemplo, si el objeto someRangeRange tiene dos áreas(A1:B2 y C3:D4),someRange.Rows.Count devuelve 2, no 4. Si quiere usar 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. Si es así, ejecute un bucle sobre cada área del rango, como se muestra en el tercer ejemplo.

Es posible que el intervalo devuelto esté fuera del rango especificado. Por ejemplo, Range("A1:B2").Rows(5) devuelve las celdas A5:B5. Para obtener más información, vea la propiedad Item .

El uso de la propiedad Rows sin un calificador de objeto equivale a usar ActiveSheet.Rows. Para obtener más información, vea la propiedad Worksheet.Rows .

Ejemplo

En este ejemplo se elimina el intervalo B4:Z4 en Sheet1 del libro activo.

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

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

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.

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 If
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.