¿Cómo seleccionar cada enésima columna en Excel?
Por ejemplo, tiene una hoja de trabajo grande con cientos de columnas de datos. Y ahora, debe copiar los datos de cada tercera columna y pegarlos en otra hoja de trabajo nueva. Llevará mucho tiempo seleccionar cada enésima columna una por una, y ¿hay alguna manera fácil de hacerlo?
Seleccione cada enésima columna con VBA
Seleccione cada enésima columna con Kutools para Excel
Seleccione cada enésima columna con VBA
No parece una forma sencilla, excepto el código VBA, de resolver este problema. Siga los siguientes pasos:
1. Resalte el rango que desea seleccionar cada enésima columna.
2.Click Developer > Visual Basic o pulse Alt + F11, Un nuevo Microsoft Visual Basic para aplicaciones aparecerá la ventana, haga clic en recuadro > Módulo para ingresar 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 Sub
3. Luego haga clic para ejecutar el código, y aparecerá un cuadro emergente para recordarle que seleccione un rango para trabajar. Ver captura de pantalla:
4. Hacer clic en OKy luego ingrese el número de intervalos en el otro cuadro de diálogo emergente. En este caso, ingrese 3 en el cuadro. Ver captura de pantalla:
5. Hacer clic en OK. Ahora selecciona cada tercera columna de la selección. Ver captura de pantalla:
Note: Puede especificar el número en el segundo KutoolsparaExcel diálogo para satisfacer sus necesidades.
Pero a veces, es necesario seleccionar dos columnas con dos intervalos. El código anterior no puede funcionar, ¿cómo debería hacerlo?
Seleccione cada enésima columna con Kutools para Excel
Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. Consiguelo ahora.
Con Kutools for Excel, puede seleccionar un número específico de columnas a intervalos específicos. Siga los siguientes pasos:
1.Click Kutools > Seleccionar herramientas > Seleccionar filas / columnas de intervalo, ver captura de pantalla:
2. Un Seleccionar filas / columnas de intervalo aparecerá el cuadro de diálogo. Luego haga clic en para seleccionar el rango que necesita, elija Columnas Desde Seleccionar seccióny especifique el número que desea en el Intervalo de y Columnas lista desplegable, aquí seleccionamos dos columnas en cada 3td columnas. Ver captura de pantalla:
3.Click OK. Seleccionará dos columnas con dos intervalos en la selección. Ver captura de pantalla:
Note: Si marca Seleccionar columnas enteras en el cuadro de diálogo emergente, seleccionará todas las columnas de la hoja. Ver captura de pantalla:
Artículos relativos:
- Seleccione cada fila o enésima fila en Excel
- Copiar cada dos filas
- Eliminar cada dos filas
- Ocultar cada dos filas
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!