Cómo escribir un programa usando el script VBA de EXCEL para eliminar filas y columnas vacías

La función de este código VBA es eliminar filas y columnas vacías en todas las hojas de cálculo del libro de Excel. El código contiene tres subprocesos:

Sub elimina todas las filas y columnas vacías ()

Este subproceso primero atraviesa cada hoja de trabajo del libro. Para cada hoja de cálculo, hace lo siguiente:

Separar celdas para que las filas y columnas vacías se eliminen sin dejar celdas en blanco.

Llame a la subrutina DeleteEmptyRows para eliminar todas las filas vacías.

Llame al subprocedimiento DeleteEmptyColumns para eliminar todas las columnas vacías.

Ajusta automáticamente la altura de las filas y el ancho de las columnas para que se ajusten a los datos.

Sub DeleteEmptyRows()

Este subproceso se utiliza para eliminar filas vacías en la hoja de trabajo. Primero determina el número de línea de la última línea y luego recorre hacia arriba desde la última línea, verificando línea por línea si la línea es una línea vacía. Si la línea está vacía, elimínela. Determine si hay celdas que no estén vacías en la fila utilizando la función CountA.

Sub DeleteEmptyColumns()

Este subproceso se utiliza para eliminar columnas vacías en la hoja de trabajo. Primero determina el número de columna de la última columna, luego comienza desde la última columna y recorre hacia la izquierda, verificando columna por columna si la columna es una columna vacía. Si la columna está vacía, se elimina. También utilizando la función CountA para determinar si hay celdas que no estén vacías en la columna.

Cabe señalar que dado que este código opera en cada hoja de trabajo, si hay una gran cantidad de hojas de trabajo en el libro de trabajo o la cantidad de datos es grande, la eficiencia de ejecución del código puede verse afectada.