Note: The other languages of the website are Google-translated. Back to English

¿Cómo enumerar todos los nombres de las tablas en Excel?

Para enumerar todos los nombres de tablas en un libro de trabajo, los métodos de este artículo pueden ayudarlo a leerlo.

Enumere todos los nombres de las tablas en el cuadro Nombre
Enumere todos los nombres de las tablas en la barra de fórmulas
Enumere todos los nombres de las tablas con código VBA


Enumere todos los nombres de las tablas en el cuadro Nombre

Todos los nombres de las tablas se enumeran en el cuadro Nombre de forma predeterminada.

Haga clic en la flecha de la lista desplegable en la esquina superior izquierda Nombre de buzón para mostrar todos los nombres de las tablas. Ver captura de pantalla:

Nota:: Todos los nombres clasificados también se enumeran en el Cuadro de nombres con todos los nombres de las tablas.


Enumere todos los nombres de las tablas en la barra de fórmulas

Si todas las tablas fueron nombradas por el nombre de la tabla original como Table1, Table2…, puede intentar listar todos estos nombres de tabla en la barra de fórmulas.

1. Ingrese la fórmula =ROW(T en la barra de fórmulas, todos los nombres de las tablas se enumeran en el cuadro de lista como se muestra a continuación.

Nota:: Los nombres de tablas que se han modificado no se incluirán en este método.


Enumere todos los nombres de las tablas con código VBA

Si hay un nombre de tabla predeterminado y un nombre de tabla modificado en su libro de trabajo. Puede enumerarlos juntos a la vez con el siguiente código VBA.

1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie el código de VBA a continuación en la ventana del Módulo.

Código VBA: enumere todos los nombres de las tablas en Excel.

Sub ListTables()
'Updated by Extendoffice 20180503
    Dim xTable As ListObject
    Dim xSheet As Worksheet
    Dim I As Long
    I = -1
    Sheets.Add.Name = "Table Name"
    For Each xSheet In Worksheets
        For Each xTable In xSheet.ListObjects
            I = I + 1
            Sheets("Table Name").Range("A1").Offset(I).Value = xTable.Name
        Next xTable
    Next
End Sub

3. presione el F5 o haga clic en el botón Ejecutar para ejecutar el código.

Luego, se crea una nueva hoja de trabajo llamada Nombre de tabla con todos los nombres de tabla enumerados como se muestra a continuación:


Artículos relacionados:


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (2)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Usando ListTables VB, ¿hay alguna manera de incluir también el número de tabla en la columna correspondiente?
La razón por la que pregunto es porque Excel ha informado algunos errores que se refieren a los números de las tablas, pero ya no tengo visibilidad de los números porque cambié los nombres de las tablas a algo más descriptivo, pero como Excel todavía usa los números de las tablas originales en su informe de error, es imposible para mí identificar con cuál de las muchas tablas tuvo un problema.

Este comentario fue minimizado por el moderador en el sitio
Gracias por esta publicación tan útil.
Me he estado preguntando por qué mi vista personalizada está atenuada, ¡y descubrí que se debía a una tabla insertada! (no es obvio)
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL