Tabulas pārveidotājs

Saturs

Nav noslēpums, ka lielākā daļa Excel lietotāju, veidojot tabulas uz loksnēm, pirmām kārtām domā par savu komfortu un ērtībām. Tā rodas skaistas, krāsainas un smagnējas tabulas ar sarežģītām “galvenēm”, kuras tajā pašā laikā nemaz nevar ne filtrēt, ne kārtot, un par automātisko atskaiti ar pivot tabulu labāk nemaz nedomāt.

Agrāk vai vēlāk šāda galda lietotājs nonāk pie secinājuma, ka “varbūt tas nav tik skaists, bet var darboties” un sāk vienkāršot sava galda dizainu, saskaņojot to ar klasiskajiem ieteikumiem:

  • vienkārša vienas rindiņas galvene, kur katrai kolonnai būs savs unikālais nosaukums (lauka nosaukums)
  • viena rinda – viena pabeigta operācija (darījums, pārdošana, izvietošana, projekts utt.)
  • nav apvienotu šūnu
  • bez pārtraukumiem tukšu rindu un kolonnu veidā

Bet, ja izveidojat vienas rindiņas galveni no daudzlīmeņu virsraksta vai sadalāt vienu kolonnu vairākās, tas ir diezgan vienkārši, tad tabulas rekonstrukcija var aizņemt daudz laika (īpaši lielos izmēros). Tas nozīmē šādu situāciju:

Of     Tabulas pārveidotājs   do     Tabulas pārveidotājs  

Runājot par datu bāzēm, pareizo tabulu parasti sauc par plakanu (plakanu) – tieši pēc šādām tabulām vislabāk ir veidot rakurstabulu (rakurstabulu) atskaites un veikt analīzi.

Divdimensiju tabulu var pārveidot par plakanu galdu, izmantojot vienkāršu makro. Atveriet Visual Basic redaktoru, izmantojot cilni Izstrādātājs – Visual Basic (Izstrādātājs — Visual Basic redaktors) vai īsinājumtaustiņš cits+F11. Ievietojiet jaunu moduli (Ievietot - modulis) un kopējiet tur šī makro tekstu:

Sub Redesigner() Dim i As Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = Screening полилсбопо) Nepareizi i = 1 Iestatīt inpdata = atlases kopa ns = darblapas. Pievienot r = (hr + 1) Pie inpdata.Rows.Count For c = (hc + 1) Uz inpdata.Columns.Count For j = 1 To hc ns. Šūnas(i, j) = inpdata.Cells(r, j) Nākamais j Ja k = 1 līdz hr ns.Cells(i, j + k - 1) = inpdata.Cells(k, c) Nākamais k ns.Cells( i, j + k - 1) = inpdata.Cells(r, c) i = i + 1 Next c Next r End Sub  

Pēc tam varat aizvērt VBA redaktoru un atgriezties programmā Excel. Tagad mēs varam atlasīt sākotnējo tabulu (pilnībā, ar galveni un pirmo kolonnu ar mēnešiem) un palaist savu makro Izstrādātājs – Makro (Izstrādātājs — makro) vai presēšanas kombinācija cits+F8.

Makro ievietos grāmatā jaunu lapu un tajā izveidos jaunu, rekonstruētu atlasītās tabulas versiju. Jūs varat strādāt ar šādu tabulu “pilnībā”, izmantojot visu Excel rīku arsenālu lielu sarakstu apstrādei un analīzei.

  • Kas ir makro, kur ievietot makro kodu VBA, kā tos izmantot
  • Atskaišu izveide, izmantojot rakurstabulas
  • Rīks XNUMXD tabulu pārveidošanai uz plakanām tabulām no PLEX papildinājuma

 

Atstāj atbildi