Tabla de contenido
Cuando tienes una tabla de datos pequeña con unas pocas columnas, puedes contarlas todas fácilmente. Pero para una tabla de datos grande, es bastante difícil contar todas las columnas sin ningún error. Además, algunas columnas pueden contener datos, mientras que otras pueden estar completamente en blanco. Por lo tanto, contar todas las columnas con datos en el caso de una tabla de datos grande es bastante difícil. En este artículo, aprenderás 2 formas de contarcolumnas con datos utilizando VBA en Excel con facilidad.
Descargar el cuaderno de prácticas
Puede descargar el archivo Excel del siguiente enlace y practicar con él.
Contar Columnas con Datos.xlsm
2 Maneras de Contar Columnas con Datos Usando VBA en Excel
1. Contar todas las columnas de una hoja de cálculo con datos utilizando un simple código VBA
Podemos ver las 3 columnas en la siguiente tabla de datos. Ahora utilizaremos un código VBA para determinar el número de columnas utilizadas en una única hoja de cálculo de Excel.
❶ En primer lugar, pulse ALT + F11 para abrir el editor VBA.
❷ Después de eso crear un nuevo módulo de Insertar> Módulo.
❸ Después copie el siguiente script VBA.
Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "El número de columnas con Datos es: " & .Columns.Count End With End Sub ❹ A continuación, vuelva al editor VBA y pulse CTRL + V para pegarlo.
❺ Ahora guarda el código VBA pulsando CTRL + S botón.
❻ Para ejecutar el código VBA, vaya a la sección Desarrollador y haga clic en Macros O simplemente pulse la tecla F5 llave.
En Macro aparecerá un cuadro de diálogo.
❼ Todo lo que necesitas hacer es, haga clic en el Ejecutar botón.
Ahora verás que ha aparecido un cuadro de diálogo que dice que el número de columnas con datos es 3.
Más información: Cómo Contar el Número de Columnas en Excel (3 Métodos Fáciles)
2. Contar Todas las Columnas de un Rango Dado con Datos Usando un Código VBA de Excel
El siguiente código VBA le permitirá contar todas las columnas con datos en un rango determinado.
Para utilizar el código,
❶ En primer lugar, abra el editor VBA pulsando ALT + F11.
❷ A continuación, vaya a Insertar> Módulo para crear un nuevo módulo.
❸ Después copie el siguiente script VBA.
Sub CountColumnsInARange() Dim xRng As Worksheet Set xRng = Worksheets("Sheet1") MsgBox "Total column: " & xRng.Range("B5:D5").Columns.Count End Sub ❹ Vuelve al editor VBA y pulsa CTRL + V para pegarlo.
❺ Ahora guarda el código pulsando CTRL + S.
❻ Ir al Desarrollador y pulse el botón Macros para abrir el Macro ventana.
O simplemente pulse la tecla F5 para utilizar el Macro cuadro de diálogo.
❼ En el cuadro de diálogo, seleccione el nombre de la función. ContarColumnasEnRango y golpeó el Ejecutar botón.
Finalmente, aparecerá un pequeño cuadro de diálogo que dice que el número total de columnas es 3.
Más información: Cómo Contar Columnas para VLOOKUP en Excel (2 Métodos)
Más Códigos VBA para Contar Columnas en Excel
1. Utilice el método Range.End de VBA para devolver el número de la última columna utilizada
Para obtener el último número de columna utilizado en una hoja de cálculo Excel,
❶ En primer lugar, abra el editor VBA pulsando ALT + F11.
❷ A continuación, vaya a Insertar> Módulo para crear un nuevo módulo.
❸ Copie lo siguiente VBA código:
Option Explicit Sub LastColumn() Dim xRng As Integer xRng = Range("B4").End(xlToRight).Column MsgBox xRng End Sub ❹ Pega y guarda el código en el editor VBA.
❺ Pulse la tecla F5 para ejecutar el código anterior.
Obtendrá el número de la última columna en un cuadro de diálogo emergente como en la imagen de abajo:
Más información: Cómo Contar Columnas hasta Alcanzar el Valor en Excel
2. Utilice el método Range.Find para obtener el último número de columna utilizado en Excel
Si está buscando códigos VBA para devolver el último número de columna utilizado, siga los pasos que se indican a continuación:
❶ En primer lugar, pulse ALT + F11 para abrir el editor VBA.
❷ Después de eso crear un nuevo módulo de Insertar> Módulo.
❸ Copie el siguiente código VBA:
Sub LastUsedColumnNo() Dim xRng As Long xRng = Cells.Find(What:="*", _ After:=Range("B4"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column MsgBox "Last Used Column Numeber: " & xRng End Sub ❹ A continuación, vuelva al editor VBA y pulse CTRL + V para pegarlo.
❺ Ahora guarda el código VBA pulsando CTRL + S botón.
Ahora, pulse el botón F5 para ejecutar el código anterior.
Obtendrá el último número de columna utilizado en un cuadro de diálogo emergente, como en la imagen siguiente:
Cosas para recordar
- Pulse ALT + F11 para abrir el editor VBA.
- Puede pulsar ALT + F8 aprovechar la Macros cuadro de diálogo.
- Para ejecutar el código VBA, pulse la tecla F5.
Conclusión
En resumen, hemos discutido 2 formas de contar columnas con datos utilizando VBA en Excel. Se recomienda descargar el libro de práctica adjunto junto con este artículo y practicar todos los métodos con eso. Y no dude en hacer cualquier pregunta en la sección de comentarios a continuación. Vamos a tratar de responder a todas las consultas pertinentes lo antes posible. Y por favor visite nuestro sitio web ExcelWIKI para explorar más.
