Çoğu Excel kullanıcısının, sayfalarda tablolar oluştururken her şeyden önce kendi rahatlık ve rahatlıklarını düşündüğü bir sır değil. Bu, aynı zamanda hiç filtrelenemeyen veya sıralanamayan karmaşık “başlıklara” sahip güzel, renkli ve hantal tablolar böyle doğar ve pivot tablolu otomatik bir rapor düşünmemek daha iyidir.
Er ya da geç, böyle bir masanın kullanıcısı “çok güzel olmayabilir, ancak işe yarayabilir” sonucuna varır ve masasının tasarımını basitleştirmeye başlar ve klasik önerilere uygun hale getirir:
- her sütunun kendi benzersiz adına (alan adı) sahip olacağı basit bir tek satırlık başlık
- tek satır – tamamlanmış bir işlem (anlaşma, satış, ilan, proje vb.)
- birleştirilmiş hücre yok
- boş satırlar ve sütunlar şeklinde aralar olmadan
Ancak, çok seviyeli bir başlıktan tek satırlık bir başlık yaparsanız veya bir sütunu birkaç sütuna bölerseniz, bu oldukça basittir, o zaman tablonun yeniden oluşturulması çok zaman alabilir (özellikle büyük boyutlarda). Aşağıdaki durum anlamına gelir:
| Of |  | do |  |
Veritabanları açısından, doğru tabloya genellikle düz (düz) denir - bu tür tablolara göre, pivot tablolar (pivot tablolar) raporları oluşturmak ve analitik yürütmek en iyisidir.
Basit bir makro kullanarak iki boyutlu bir tabloyu düz bir tabloya dönüştürebilirsiniz. Sekme aracılığıyla Visual Basic Düzenleyicisini açın Geliştirici – Visual Basic (Geliştirici — Visual Basic Düzenleyicisi) veya klavye kısayolu Ara Toplam+F11. Yeni bir modül takın (Ekle – Modül) ve bu makronun metnini buraya kopyalayın:
Sub Redesigner() Dim i As Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколевкопистола hr) False i = 1 Set inpdata = Seçim Seti ns = Worksheets.Add For r = (sa + 1) İçin inpdata.Rows.Count For c = (hc + 1) To inpdata.Columns.Count For j = 1 için hc ns. Cells(i, j) = inpdata.Cells(r, j) Sonraki j For k = 1 To hr ns.Cells(i, j + k - 1) = inpdata.Cells(k, c) Sonraki k ns.Cells( i, j + k - 1) = inpdata.Cells(r, c) i = i + 1 Sonraki c Sonraki r End Sub Daha sonra VBA düzenleyicisini kapatabilir ve Excel'e dönebilirsiniz. Şimdi orijinal tabloyu seçebiliriz (tamamen, bir başlık ve ilk sütun aylarla birlikte) ve makromuzu çalıştırabiliriz. Geliştirici – Makrolar (Geliştirici — Makrolar) veya kombinasyona basarak Ara Toplam+F8.
Makro, kitaba yeni bir sayfa ekler ve üzerinde seçilen tablonun yeni, yeniden yapılandırılmış bir sürümünü oluşturur. Büyük listeleri işlemek ve analiz etmek için tüm Excel araçlarını kullanarak böyle bir tabloyla “tam” çalışabilirsiniz.
- Makrolar nedir, VBA'da makro kodu nereye eklenir, nasıl kullanılır
- PivotTable'larla Rapor Oluşturma
- PLEX eklentisinden XNUMXD tabloları düz olanlara yeniden tasarlama aracı