Propiedad Range.Range (Excel)

Devuelve un objeto Range que representa una celda o un rango de celdas.

Sintaxis

expresión. Rango (Cell1, Cell2)

expresión Variable que representa un objeto Range.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Cell1	Obligatorio	Variant	El nombre del intervalo. Debe ser una referencia de estilo A1 en el lenguaje de la macro. Puede incluir el operador de rango (dos puntos), el operador de intersección (un espacio) o el operador de unión (una coma). También puede incluir signos de dólar, pero se pasan por alto. Use un nombre definido localmente en cualquier parte del intervalo. Si se usa un nombre, se da por supuesto que está en el lenguaje de la macro.
Cell2	Opcional	Variant	La celda del vértice superior izquierdo e inferior derecho del rango. Puede ser un objeto a Range que contenga una sola celda, una columna completa o una fila completa, o bien ser una cadena que asigna nombre a una sola celda en el lenguaje de la macro.

Comentarios

Cuando se usa sin un calificador de objeto, esta propiedad es un acceso directo para ActiveSheet.Range (devuelve un rango de la hoja activa; si la hoja activa no es una hoja de cálculo, se produce un error en la propiedad ).

Cuando se aplica a un objeto Range, la propiedad está relacionada con el objeto Range. Por ejemplo, si la selección es la celda C3, Selection.Range("B1") devuelve la celda D3 porque es relativa al objeto Range devuelto por la propiedad Selection. En cambio, el código ActiveSheet.Range("B1") siempre devuelve la celda B1.

Ejemplo:

En este ejemplo se establece el valor de la celda superior izquierda del rango B2:C4 en Sheet1 del libro activo, es decir, el de la celda B2, en 3,14159.

With Worksheets("Sheet1").Range("B2:C4")
   .Range("A1").Value = 3.14159
End With

Este ejemplo se repite en las cuatro celdas de la esquina superior izquierda del rango B2:Z22 en Sheet1 del libro activo. Si una de las celdas presenta un valor inferior a 0,001, el código reemplaza dicho valor por un 0 (cero).

Public Sub TruncateSmallValues()
   Dim exampleRange As Excel.Range
   Set exampleRange = Worksheets("Sheet1").Range("B2:Z22") 

   Dim cell As Excel.Range
   For Each cell in exampleRange.Range("A1:B2") 
      If cell.Value < .001 Then 
         cell.Value = 0 
      End If 
   Next cell
End Sub

En este ejemplo se establece en cursiva el estilo de fuente de las celdas B2:D6 de Sheet1 del libro activo. El ejemplo usa Syntax 2 de la propiedad Range.

With Worksheets("Sheet1").Range("B2:Z22")
   .Range(.Cells(1, 1), .Cells(5, 3)).Font.Italic = True 
End With

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.