Bukan rahasia lagi bahwa sebagian besar pengguna Excel, saat membuat tabel di lembar, pertama-tama memikirkan kenyamanan dan kemudahan mereka sendiri. Ini adalah bagaimana tabel yang indah, penuh warna dan rumit dengan "tajuk" kompleks lahir, yang, pada saat yang sama, tidak dapat difilter atau diurutkan sama sekali, dan lebih baik tidak memikirkan laporan otomatis dengan tabel pivot sama sekali.
Cepat atau lambat, pengguna meja semacam itu sampai pada kesimpulan bahwa "itu mungkin tidak begitu indah, tetapi dapat bekerja" dan mulai menyederhanakan desain mejanya, membawanya sesuai dengan rekomendasi klasik:
- tajuk satu baris sederhana, di mana setiap kolom akan memiliki nama uniknya sendiri (nama bidang)
- satu baris – satu operasi selesai (kesepakatan, penjualan, posting, proyek, dll.)
- tidak ada sel yang digabungkan
- tanpa jeda dalam bentuk baris dan kolom kosong
Tetapi jika Anda membuat header satu baris dari multi-level atau membagi satu kolom menjadi beberapa kolom, itu cukup sederhana, maka rekonstruksi tabel dapat memakan banyak waktu (terutama pada ukuran besar). Ini berarti situasi berikut:
| Of |  | do |  |
Dalam hal database, tabel kanan biasanya disebut datar (flat) – menurut tabel seperti itu yang terbaik adalah membuat laporan tabel pivot (tabel pivot) dan melakukan analitik.
Anda dapat mengonversi tabel dua dimensi menjadi tabel datar menggunakan makro sederhana. Buka Editor Visual Basic melalui tab Pengembang – Visual Basic (Pengembang — Editor Visual Basic) atau pintasan keyboard lain+F11. Masukkan modul baru (Sisipkan – Modul) dan salin teks makro ini di sana:
Sub Redesigner() Dim i As Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк одписями сверху?") hc = InputBox("Сколько олбцов с одписями ева?") Application.ScreenUpdating Salah i = 1 Set inpdata = Seleksi Set ns = Worksheets.Add For r = (hr + 1) Ke inpdata.Rows.Count For c = (hc + 1) Ke inpdata.Columns.Count For j = 1 To hc ns. Sel(i, j) = inpdata.Sel(r, j) Selanjutnya j Untuk k = 1 Ke hr ns.Sel(i, j + k - 1) = inpdata.Sel(k, c) Selanjutnya k ns.Sel( i, j + k - 1) = inpdata.Sel(r, c) i = i + 1 Berikutnya c Berikutnya r Akhir Sub Anda kemudian dapat menutup editor VBA dan kembali ke Excel. Sekarang kita dapat memilih tabel asli (sepenuhnya, dengan header dan kolom pertama dengan bulan) dan menjalankan makro kita melalui Pengembang – Makro (Pengembang — Makro) atau menekan kombinasi lain+F8.
Makro akan menyisipkan lembar baru ke dalam buku dan membuat versi baru yang direkonstruksi dari tabel yang dipilih di atasnya. Anda dapat bekerja dengan tabel seperti itu "secara penuh", menggunakan seluruh gudang alat Excel untuk memproses dan menganalisis daftar besar.
- Apa itu makro, di mana memasukkan kode makro di VBA, bagaimana menggunakannya
- Membuat Laporan dengan PivotTable
- Alat untuk mendesain ulang tabel XNUMXD menjadi tabel datar dari add-on PLEX