Para transferir completamente los datos del rango de celdas actual a una nueva tabla, necesita saber qué tan grande es el rango de celdas utilizado alrededor de la celda activa. O puede dejar que Excel haga esto por usted y copie el g
¿Le gustaría copiar automáticamente todas las celdas de un rango contiguo de celdas en una macro? Esto es particularmente útil si desea reaccionar de manera flexible a las entradas de los usuarios y no sabe qué tan grandes son las áreas de datos ingresadas.
Puede utilizar una macro para hacer este trabajo. La macro determina todas las celdas alrededor de la celda activa y copia exactamente estas celdas en un nuevo libro de trabajo.
La siguiente figura muestra una tabla con tres áreas de datos diferentes. Están codificados por colores para que sean más fáciles de ver.
Se considera que todas las celdas que se conectan a celdas vecinas sin celdas vacías pertenecen juntas.
Con una macro adecuada, puede asegurarse de que después de hacer clic en una celda de un rango de celdas, todas las celdas que le pertenecen se copien en una nueva tabla. Aquí está el código de programa apropiado:
Área actual de copia secundaria ()
Área de fuente atenuada como rango
Atenuar hoja nueva como hoja de trabajo
Establecer el área de origen = ActiveCell.CurrentRegion
Establecer NeuesBlatt = Workbooks.Add.Worksheets (1)
Área de origen. Copiar destino: = NeuesBlatt.Range ("A1")
End Sub
Antes de llamar a la macro, haga clic en cualquier celda de una tabla. La macro determina todas las celdas que, junto con la celda seleccionada, pertenecen a un rango y copia este rango de datos en un libro de trabajo nuevo y vacío. La siguiente figura muestra cómo se ve el resultado después de llamar a la macro si se selecciona la celda E9 en la tabla de la primera figura antes de que comience la macro.
Para ingresar a la macro, presione ALT F11 en Excel para abrir el editor de VBA. Seleccione el comando INSERTAR - MODULE en el editor de VBA e ingrese la macro. Para iniciar la macro, active la combinación de teclas ALT F8 en Excel. Los dos atajos de teclado para iniciar el editor de VBA y la macro funcionan en todas las versiones de Excel.
