Cómo utilizar VBA para seleccionar el rango de la celda activa en Excel (3 métodos)

Hugh West

20-08-2023 Macros y VBA de Excel
  • Compartir Este
Hugh West

Vamos a mostrarte 3 métodos en Excel VBA a seleccionar gama de célula activa Para demostrarlo, hemos elegido un conjunto de datos con 3 columnas : " Nombre ", " Apellido ", y " Correo electrónico ". Seleccionaremos un célula y utilizando Excel VBA seleccionaremos el rango célula .

Descargar el cuaderno de prácticas

Seleccionar Rango desde Celda Activa.xlsm

3 Maneras de Seleccionar Rango de Celda Activa Usando VBA en Excel

1. Cómo utilizar VBA para seleccionar el rango desde la celda activa hasta la última celda no en blanco

Para el primer método, vamos a utilizar el método Rango.Fin propiedad.

Aquí, vamos a introducir nuestro código como un Módulo Para subir el Módulo ventana, haz esto...

Pasos:

  • En primer lugar, desde el Desarrollador tab>>> seleccionar Visual Basic .

En Visual Basic aparecerá la ventana.

  • Por último, de Inserte Seleccionar Módulo .

Aparecerá la pantalla Módulo ventana.

1.1. Uso de la propiedad End(xlUp)

En esta sección, vamos a seleccionar la opción gama hacia arriba hasta el último celda no en blanco de nuestro célula activa .

Pasos:

  • En primer lugar, abra el Módulo ventana.
  • En segundo lugar, tipo el siguiente código. 
 Sub ToUp() Range(ActiveCell, ActiveCell.End(xlUp)).Select End Sub

Llamamos a nuestro Sub Procedimiento ToUp Entonces estamos seleccionando nuestro gama El primer valor es nuestro célula activa El último valor es ActiveCell.End(xlUp) Por último, seleccionamos el gama con el Gama . Seleccione método.

  • Tercero, Guardar y cierra la ventana.
  • A continuación, seleccione célula C6 . Esto célula es nuestro activo célula .

Ahora, vamos a traer el Macro ventana. Para hacer eso-

  • Desde el Desarrollador tab>>> seleccionar Macros .

Después, el Macro cuadro de diálogo aparecerá.

  • A continuación, seleccione " ToUp " del " Nombre de macro: ".
  • Por último, haga clic en Ejecutar .

Podemos ver que, hemos seleccionado el rango de celdas C4:C6 .

Más información: Excel VBA: Copiar Rango Dinámico a Otro Libro

1.2. Incorporación de la propiedad End(xlDown)

En esta sección, vamos a seleccionar la opción gama hacia abajo de nuestro célula activa .

Pasos:

  • En primer lugar, abra el Módulo ventana.
  • En segundo lugar, tipo el siguiente código. 
 Sub ToDown() Range(ActiveCell, ActiveCell.End(xlDown)).Select End Sub

Llamamos a nuestro Sub Procedimiento ToDown Entonces estamos seleccionando nuestro gama El primer valor es nuestro célula activa El último valor es ActiveCell.End(xlDown) Por último, seleccionamos el gama con el Gama . Seleccione método.

  • Tercero, Guardar y cierra la ventana.
  • A continuación, seleccione célula C6 Este es nuestro célula activa .

  • A continuación, abre el Cuadro de diálogo de macros .
  • Seleccione " ToDown ".
  • Por último, haga clic en Ejecutar .

Así, hemos seleccionado a gama de nuestro célula activa utilizando Excel VBA .

Más información: Excel VBA para Recorrer un Rango hasta una Celda Vacía (4 Ejemplos)

Artículos similares

  • Excel VBA: Recorrer Columnas en un Rango (5 Ejemplos)
  • Cómo utilizar VBA para cada fila de un rango en Excel
  • Macro Excel: Ordenar Varias Columnas con Rango Dinámico (4 Métodos)
  • VBA para Recorrer Filas y Columnas de un Rango en Excel (5 Ejemplos)
  • Cómo convertir rango en matriz en Excel VBA (3 maneras)

1.3. Aplicación de la propiedad End(xlToLeft)

En esta sección, vamos a seleccionar la opción gama a la izquierda de nuestra célula activa .

Pasos:

  • En primer lugar, abra el Módulo ventana.
  • En segundo lugar, tipo el siguiente código. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub

Llamamos a nuestro Sub Procedimiento Hacia la izquierda Entonces estamos seleccionando nuestro gama El primer valor es nuestro célula activa El último valor es ActiveCell.End(xlToLeft) Por último, seleccionamos el gama con el Gama . Seleccione método.

  • Tercero, Guardar y cierra la ventana.
  • A continuación, seleccione celda D7 Este es nuestro célula activa .

  • A continuación, abre el Cuadro de diálogo de macros .
  • Seleccione " Hacia la izquierda ".
  • Por último, haga clic en Ejecutar .

Así, hemos seleccionado a gama de nuestro célula activa utilizando Excel VBA .

1.4. Implementación de la propiedad End(xlToRight)

En esta sección, vamos a seleccionar la opción gama a la derecha de nuestra célula activa .

Pasos:

  • En primer lugar, abra el Módulo ventana.
  • En segundo lugar, tipo el siguiente código. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub

Llamamos a nuestro Subprocedimiento ToRight Entonces estamos seleccionando nuestro gama El primer valor es nuestro célula activa El último valor es ActiveCell.End(xlToRight) Por último, seleccionamos el gama con el Gama . Seleccione método.

  • Tercero, Guardar y cierra la ventana.
  • A continuación, seleccione celda C8 Este es nuestro célula activa .

  • A continuación, abre el Cuadro de diálogo de macros .
  • Seleccione " ToRight ".
  • Por último, haga clic en Ejecutar .

Así, hemos seleccionado a gama de nuestro célula activa utilizando Excel VBA .

2. Uso de la Propiedad Range.Offset de VBA para Seleccionar el Rango desde la Celda Activa Usando VBA en Excel

Para el segundo método, vamos a utilizar el método VBA Rango.Desplazamiento para seleccionar la propiedad gama utilizando nuestro célula activa .

Pasos:

  • En primer lugar, tipo el siguiente código en el archivo Módulo ventana. 
 Sub UsingOffset() Range(ActiveCell, ActiveCell.Offset(1, 2)).Select End Sub

Hemos creado nuestro Subprocedimiento UsingOffset Entonces estamos seleccionando nuestro gama El primer valor es nuestro célula activa El último valor es CeldaActiva.Desplazamiento (1,2) Con el Propiedad offset nos movemos 1 fila hacia abajo y 2 columnas derecha Por último, seleccionamos el gama con el Gama . Seleccione método.

  • En segundo lugar, Guardar y cierra la ventana.
  • A continuación, seleccione celda B8 Este es nuestro célula activa .

  • A continuación, abre el Cuadro de diálogo de macros .
  • Seleccione " UsingOffset ".
  • Por último, haga clic en Ejecutar .

En conclusión seleccionado a gama del célula activa Además, este es el aspecto que debería tener el paso final.

Más información: Excel VBA: Obtener Rango de Celdas con Valores (7 Ejemplos)

3. Seleccionar Rango de la Celda Activa Usando VBA en Excel Utilizando la Propiedad CurrentRegion

Para el último método, utilizaremos el método Rango.Regiónactual propiedad.

Pasos:

  • En primer lugar, tipo el siguiente código en el archivo Módulo ventana. 
 Sub cRegion() ActiveCell.CurrentRegion.Select End Sub

Llamamos a nuestro Sub Procedimiento cRegión Entonces estamos seleccionando nuestro gama Con el Regiónactual estamos seleccionando la propiedad gama hasta un celda en blanco Por último, seleccionamos el gama con el Gama . Seleccione método.

  • En segundo lugar, Guardar y volver a la Excel sábana.
  • A continuación, seleccione celda C10 Este es nuestro célula activa .

  • A continuación, abre el Cuadro de diálogo de macros .
  • Seleccione " cRegión ".
  • Por último, haga clic en Ejecutar .

Así, hemos seleccionado el gama hasta un celda en blanco .

Sección práctica

Hemos proporcionado conjuntos de datos de práctica para cada método en la sección Excel archivo.

Conclusión

Le hemos mostrado 3 métodos de Excel VBA seleccionar gama de célula activa Si tienes algún problema para entender los pasos, no dudes en comentarlo a continuación. Gracias por leer, ¡sigue superándote!

Publicación anterior Cómo convertir fecha a texto AAAAMMDD (3 formas rápidas)
Siguiente publicación Cómo utilizar la función DIR de VBA en Excel (7 ejemplos prácticos)

Hugh West es un capacitador y analista de Excel altamente experimentado con más de 10 años de experiencia en la industria. Tiene una Licenciatura en Contabilidad y Finanzas y una Maestría en Administración de Empresas. Hugh tiene una pasión por la enseñanza y ha desarrollado un enfoque de enseñanza único que es fácil de seguir y comprender. Su conocimiento experto de Excel ha ayudado a miles de estudiantes y profesionales en todo el mundo a mejorar sus habilidades y sobresalir en sus carreras. A través de su blog, Hugh comparte su conocimiento con el mundo, ofreciendo tutoriales gratuitos de Excel y capacitación en línea para ayudar a las personas y empresas a alcanzar su máximo potencial.