¿Cómo seleccionar cada enésima columna en Excel?
Por ejemplo, tiene una hoja de cálculo grande con cientos de columnas de datos. Ahora necesita copiar los datos de cada tercera columna y pegarlos en una hoja de cálculo nueva. ¿Existe alguna forma sencilla de hacerlo sin tener que seleccionar manualmente cada enésima columna, lo que sería muy lento?
Seleccionar cada enésima columna con VBA
Seleccionar cada enésima columna con Kutools para Excel
Seleccionar cada enésima columna con VBA
Parece que no hay una forma sencilla de resolver este problema sin recurrir a código VBA. Siga estos pasos:
1. Resalte el rango del que desea seleccionar cada enésima columna.
2. Haga clic en Desarrollador > Visual Basic o pulse Alt+F11. Aparecerá una nueva ventana de Microsoft Visual Basic para Aplicaciones. Haga clic en Insertar > Módulo e introduzca el siguiente código en el módulo:
Sub EveryOtherColumn()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = «KutoolsforExcel»
Set InputRng = Application.Selection
Set InputRng = Application.InputBox(«Range :», xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox(«Enter column interval», xTitleId, Type:=1)
For i = 1 To InputRng.Columns.Count Step xInterval + 1
Set rng = InputRng.Cells(1, i)
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
Next
OutRng.EntireColumn.Select
End Sub3. A continuación, haga clic en el botón 
para ejecutar el código; aparecerá un cuadro de diálogo que le pedirá que seleccione un rango con el que trabajar. Vea la captura de pantalla:
4. Haga clic en Aceptar y, a continuación, introduzca el número de intervalos en otro cuadro de diálogo emergente. En este caso, escriba 3 en el cuadro. Vea la captura de pantalla:
5. Haga clic en Aceptar. A continuación, se seleccionará cada tercera columna dentro del rango elegido. Vea la captura de pantalla:
Nota: Puede especificar el número que desee en el segundo cuadro de diálogo de Kutools for Excel para adaptarlo a sus necesidades.
Pero a veces necesita seleccionar dos columnas con dos rangos distintos. El código anterior no funciona en ese caso; ¿qué debería hacer?
Seleccionar cada enésima columna con Kutools para Excel
Kutools para Excel: con más de 300 complementos útiles para Excel, pruébelo gratis sin limitaciones durante 30 días.Descárguelo ahora.
Con Kutools para Excel, puede seleccionar un número específico de columnas a intervalos regulares. Siga estos pasos:
1. Haga clic en Kutools > Seleccionar > Seleccionar Intervalo de Filas/Columnas.
2. Aparecerá el cuadro de diálogo Seleccionar Intervalo de Filas/Columnas. Haga clic en el botón 
para seleccionar el rango necesario, elija Columnas en la sección Seleccionar y especifique el número deseado en las listas desplegables de Intervalo de y Columnas. En este ejemplo, seleccionamos dos columnas cada 3.ª columna. Vea la captura de pantalla:
3. Haga clic en Aceptar. Se seleccionarán dos columnas con dos intervalos dentro del rango elegido. Vea la captura de pantalla:
Nota: Si marca la casilla Seleccionar Columna Completa en el cuadro de diálogo emergente, se seleccionarán las columnas completas de la hoja. Vea la captura de pantalla:
Artículos relacionados:
- Seleccione cada fila alterna o cada enésima fila en Excel
- Copiar cada fila alterna
- Eliminar cada fila alterna
- Ocultar cada fila alterna
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos