En este artículo, aprenderemos cómo eliminar columnas vacías a través de VBA en Microsoft Excel. Eliminaremos las columnas que están completamente vacías, es decir, si no hay datos dentro de toda la columna, esos datos.
Tomemos un ejemplo y entendamos:
Tenemos datos en el rango A1: I21, en los que la columna A contiene el nombre, la columna B está en blanco, la columna C contiene la dirección, la columna D Ciudad, la columna E está en blanco, la columna F contiene la región, la columna G está en blanco, la columna H contiene el país nombre y la columna I contiene el número de teléfono.
Queremos eliminar las columnas en blanco de los datos, siga los pasos y el código que se indican a continuación:
- Abra la página VBE para presionar la tecla Alt + F11
- Inserte el módulo para escribir el código
- Escriba el código mencionado a continuación:
Sub Delete_Columns () Dim C As Integer C = ActiveSheet.Cells.SpecialCells (xlLastCell) .Column Do until C = 0 If WorksheetFunction.CountA (Columns (C)) = 0 Then Columns (C) .Delete End If C = C - 1 Sub de final de bucle
Explicación del código:
Primero hemos definido todas las variables. Luego, el rango de columnas en blanco, luego hemos usado "Hacer hasta el ciclo" para eliminar las columnas en blanco. Y ahora hemos definido la columna en blanco y el comando de eliminación.
Para ejecutar el código, presione la tecla F5 en su teclado,
- Se eliminarán todas las columnas en blanco.
De esta manera, podemos eliminar las columnas vacías a través de VBA en Microsoft Excel.
Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico