No és cap secret que la majoria dels usuaris d'Excel, quan creen taules en fulls, pensen en primer lloc en la seva pròpia comoditat i conveniència. Així neixen taules boniques, vistoses i feixugues amb “capçaleres” complexes, que, alhora, no es poden filtrar ni ordenar en absolut, i és millor no pensar en un informe automàtic amb una taula dinàmica.
Tard o d'hora, l'usuari d'aquesta taula arriba a la conclusió que "pot ser que no sigui tan bonic, però pot funcionar" i comença a simplificar el disseny de la seva taula, alineant-lo amb les recomanacions clàssiques:
- una simple capçalera d'una línia, on cada columna tindrà el seu propi nom únic (nom del camp)
- una línia: una operació completada (oferta, venda, publicació, projecte, etc.)
- no hi ha cel·les combinades
- sense interrupcions en forma de files i columnes buides
Però si feu una capçalera d'una línia a partir d'una de diversos nivells o dividiu una columna en diverses, és bastant senzill, aleshores la reconstrucció de la taula pot trigar molt de temps (especialment en mides grans). Significa la següent situació:
| Of |  | do |  |
Pel que fa a les bases de dades, la taula adequada se sol anomenar plana (plana): és segons aquestes taules que el millor és crear informes de taules dinàmiques (taules dinàmiques) i realitzar anàlisis.
Podeu convertir una taula bidimensional en una taula plana mitjançant una macro simple. Obriu l'Editor de Visual Basic mitjançant la pestanya Desenvolupador - Visual Basic (Desenvolupador — Editor Visual Basic) o drecera de teclat Alt+F11. Insereix un mòdul nou (Inserir – Mòdul) i copieu el text d'aquesta macro allà:
Sub Redissenyador() Dim i As Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколько строк сколько строк Fals i = 1 Conjunt inpdata = Conjunt de selecció ns = Fulls de treball. Afegir per r = (hr + 1) A inpdata.Rows.Count For c = (hc + 1) A inpdata.Columns.Count For j = 1 A hc ns. Cells(i, j) = inpdata.Cells(r, j) Següent j Per k = 1 A hr ns.Cells(i, j + k - 1) = inpdata.Cells(k, c) Següent k ns.Cells( i, j + k - 1) = inpdata.Cells(r, c) i = i + 1 Següent c Següent r Final Sub A continuació, podeu tancar l'editor VBA i tornar a Excel. Ara podem seleccionar la taula original (completament, amb una capçalera i la primera columna amb mesos) i executar la nostra macro Desenvolupador - Macros (Desenvolupador - Macros) o combinació prement Alt+F8.
La macro inserirà un full nou al llibre i crearà una versió nova i reconstruïda de la taula seleccionada. Podeu treballar amb aquesta taula "complet", utilitzant tot l'arsenal d'eines d'Excel per processar i analitzar llistes grans.
- Què són les macros, on inserir el codi de macro a VBA, com utilitzar-les
- Creació d'informes amb taules dinàmiques
- Eina per redissenyar taules XNUMXD a planes del complement PLEX