Et ass kee Geheimnis datt déi meescht Excel Benotzer, wann Dir Dëscher op Blieder erstellt, fir d'éischt un hiren eegene Komfort a Komfort denken. Esou entstinn schéi, faarweg an ëmständlech Dëscher mat komplexe „Header“, déi gläichzäiteg guer net gefiltert oder zortéiert kënne ginn, an et ass besser net iwwer en automatesche Bericht mat enger Pivot-Tabel ze denken.
Fréier oder spéider kënnt de Benotzer vun esou engem Dësch zu der Conclusioun datt "et vläicht net sou schéin ass, awer et kann funktionnéieren" a fänkt un den Design vu sengem Dësch ze vereinfachen, et mat de klassesche Empfehlungen unzepassen:
- en einfachen One-Line Header, wou all Kolonn säin eegenen eenzegaartegen Numm huet (Feldnumm)
- eng Zeil - eng ofgeschloss Operatioun (Deal, Verkaf, Post, Projet, asw.)
- keng fusionéiert Zellen
- ouni Pausen a Form vun eidel Reihen a Kolonnen
Awer wann Dir en One-Line Header aus engem Multi-Level mécht oder eng Kolonn an e puer opdeelt, ass et ganz einfach, da kann d'Rekonstruktioun vum Dësch vill Zäit daueren (besonnesch a grousse Gréissten). Et heescht déi folgend Situatioun:
| Of |  | do |  |
Wat d'Datenbanken ugeet, gëtt de richtegen Dësch normalerweis flaach (flaach) genannt - et ass laut sou Dëscher datt et am beschten ass Rapporte vu Pivottabellen (Pivottabellen) ze bauen an Analyse ze maachen.
Dir kënnt en zweedimensionalen Dësch an e flaach Dësch mat engem einfachen Macro konvertéieren. Öffnen de Visual Basic Editor iwwer de Tab Entwéckler - Visual Basic (Entwéckler - Visual Basic Editor) oder Tastatur Ofkiirzung Alt+F11. En neie Modul setzen (Insert - Modul) a kopéiert den Text vun dësem Makro do:
Sub Redesigner() Dim i As Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколько столбцов столбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с подписями с подписями сверху?") Falsch i = 1 Set inpdata = Selection Set ns = Worksheets.Add For r = (hr + 1) To inpdata.Rows.Count For c = (hc + 1) To inpdata.Columns.Count For j = 1 To hc ns. Zellen(i, j) = inpdata.Cells(r, j) Next j Fir k = 1 To hr ns.Cells(i, j + k - 1) = inpdata.Cells(k, c) Next k ns.Cells( i, j + k - 1) = inpdata.Cells(r, c) i = i + 1 Next c Next r End Sub Dir kënnt dann de VBA Editor zoumaachen an zréck op Excel. Elo kënne mir d'Original Tabell auswielen (komplett, mat engem Header an der éischter Kolonn mat Méint) an eise Macro duerch lafen Entwéckler - Macros (Entwéckler - Macros) oder dréckt Kombinatioun Alt+F8.
De Makro setzt en neit Blat an d'Buch an erstellt eng nei, rekonstruéiert Versioun vun der gewielter Tabell drop. Dir kënnt mat sou engem Dësch "voll" schaffen, mat dem ganze Arsenal vun Excel Tools fir d'Veraarbechtung an d'Analyse vu grousser Lëschten.
- Wat sinn Makroen, wou ee Makrocode an VBA setzt, wéi se se benotzen
- Erstellt Berichter mat PivotTables
- Tool fir XNUMXD Dëscher op flaach aus dem PLEX Add-on ze designen