Henteu aya rahasia yén kalolobaan pangguna Excel, nalika nyiptakeun tabel dina lambar, pikir heula ngeunaan kanyamanan sareng genah sorangan. Ieu kumaha geulis, warni tur pajeujeut tabel kalawan kompléks "headers" dilahirkeun, nu, dina waktos anu sareng, teu bisa disaring atawa diurutkeun pisan, sarta eta leuwih hade teu mikir ngeunaan laporan otomatis kalawan tabel pangsi.
Moal lami deui atanapi engké, pangguna méja sapertos kitu nyimpulkeun yén "éta henteu saé pisan, tapi tiasa dianggo" sareng mimiti nyederhanakeun desain méja na, nyarengan kana saran klasik:
- lulugu hiji-garis basajan, dimana unggal kolom bakal boga ngaran unik sorangan (ngaran widang)
- hiji garis - hiji operasi réngsé (deal, diobral, posting, proyék, jsb)
- euweuh sél ngahiji
- tanpa ngarecah dina bentuk baris kosong sarta kolom
Tapi lamun nyieun header hiji-garis kaluar tina hiji multi-tingkat atawa dibagi hiji kolom kana sababaraha, éta cukup basajan, rekonstruksi tabel tiasa nyandak loba waktu (utamana dina ukuran badag). Éta hartosna kaayaan di handap ieu:
| Of |  | do |  |
Dina watesan basis data, tabel katuhu biasana disebut datar (datar) - éta nurutkeun tabel misalna yén éta téh pangalusna pikeun ngawangun laporan tabel pangsi (tabel pangsi) jeung ngalaksanakeun analytics.
Anjeun tiasa ngarobah tabel dua diménsi ka tabel datar maké makro basajan. Buka Visual Basic Editor via tab Pamekar - Visual Basic (Pamekar - Éditor Visual Basic) atawa potong kompas keyboard Alt+F11. Selapkeun modul anyar (Selapkeun - Modul) sareng salin téks makro ieu di dinya:
Sub Redesigner() Taram i Sapanjang Taram hc Salaku Integer, hr Salaku Integer Taram ns Salaku Lembar Kerja hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Skолько столбдов столбдов?" Palsu i = 1 Set inpdata = Pilihan Set ns = Worksheets.Tambahkeun Pikeun r = (hr + 1) Pikeun inpdata.Rows.Count Pikeun c = (hc + 1) Pikeun inpdata.Columns.Count Pikeun j = 1 Pikeun hc ns. Sél(i, j) = inpdata.Sél(r, j) Salajengna j Pikeun k = 1 Ka hr ns.Sél(i, j + k - 1) = inpdata.Sél(k, c) Salajengna k ns.Sél( i, j + k - 1) = inpdata.Sél(r, c) i = i + 1 Salajengna c Salajengna r Tungtung Sub Anjeun teras tiasa nutup redaktur VBA sareng uih deui ka Excel. Ayeuna urang tiasa milih tabel asli (lengkep, kalayan lulugu sareng kolom kahiji sareng bulan) sareng ngajalankeun makro kami. Pamekar - Macros (Pamekar - Macros) atawa kombinasi mencét Alt+F8.
Makro bakal nyelapkeun lambaran anyar kana buku sareng nyiptakeun versi anu direkonstruksi tina tabel anu dipilih dina éta. Anjeun tiasa damel sareng tabel sapertos "sapinuhna", ngagunakeun sadaya arsenal alat Excel pikeun ngolah sareng nganalisa daptar ageung.
- Naon macros, dimana nyelapkeun kode makro di VBA, kumaha carana make eta
- Nyiptakeun Laporan nganggo PivotTables
- Alat pikeun ngadesain ulang tabel XNUMXD janten datar tina tambihan PLEX