¿Cómo convertir todas las tablas a rangos en la hoja de trabajo activa?
En Excel, puede usar algunas tablas para registrar datos, pero, en algunas ocasiones, desea convertir la tabla en un rango para realizar alguna edición. En general, solo puede convertir una tabla en rango una vez, será problemático si hay docenas de tablas en una hoja que se deben convertir a rangos. Aquí tengo un código VBA que puede convertir tablas de hojas activas en un rango a la vez.
Convierta todas las tablas en rangos de hoja activa con VBA
Convierta todas las tablas en rangos de hoja activa con VBA
1. Active la hoja que desea convertir sus tablas, luego presione Alt + F11 claves para habilitar Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Módulo para crear un nuevo script de módulo, copie y pegue el siguiente código en el módulo en blanco.
VBA: convierte todas las tablas de la hoja activa en rangos
Sub ConvertTablesToRange()
'UpdatebyExtendoffice20180530
Dim xSheet As Worksheet
Dim xList As ListObject
Set xSheet = ActiveWorkbook.ActiveSheet
For Each xList In xSheet.ListObjects
xList.Unlist
Next
End Sub
3. Prensa F5 para ejecutar el código, ahora todas las tablas de la hoja actual se han convertido a rangos.
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!