Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara mengubah tabel gaya matriks menjadi tiga kolom di Excel?

Misalkan Anda memiliki tabel bergaya matriks yang berisi judul kolom dan judul baris, dan sekarang Anda ingin mengonversi tabel gaya ini menjadi tabel tiga kolom, itu juga disebut tabel daftar seperti gambar berikut yang ditampilkan, apakah Anda memiliki cara yang baik untuk menyelesaikannya? masalah di Excel?

Ubah tabel gaya matriks menjadi daftar dengan PivotTable

Ubah tabel gaya matriks menjadi daftar dengan kode VBA

Ubah tabel gaya matriks menjadi daftar dengan Kutools for Excel

doc mengubah matriks ke daftar 1


Di Excel, tidak ada fitur langsung bagi kami untuk mengonversi tabel gaya matriks menjadi tabel tiga kolom, tetapi, jika Anda terbiasa dengan PivotTable, ini mungkin membantu Anda. Silakan lakukan dengan langkah-langkah berikut:

1. Aktifkan lembar kerja yang ingin Anda gunakan, lalu tahan Alt + D, lalu tekan P di keyboard, di munculkan Panduan PivotTable dan PivotChart dialog, pilih Beberapa rentang konsolidasi bawah Di mana data yang ingin Anda analisis bagian, lalu pilih Tabel pivot bawah Jenis laporan apa yang ingin Anda buat bagian, lihat tangkapan layar:

doc mengubah matriks ke daftar 2

2. Lalu klik Next tombol, di Langkah 2a dari 3 wizard, pilih Saya akan membuat bidang halaman opsi, lihat tangkapan layar:

doc mengubah matriks ke daftar 3

3. Lanjutkan mengklik Next tombol, di Langkah 2b dari 3 wizard, klik doc mengubah matriks ke daftar 5 tombol untuk memilih rentang data yang ingin Anda ubah, lalu klik Add tombol untuk menambahkan rentang data ke Semua rentang kotak daftar, lihat tangkapan layar:

doc mengubah matriks ke daftar 4

4. Dan klik Next tombol, masuk Langkah 3 dari 3 wizard, pilih lokasi untuk tabel pivot yang Anda inginkan.

doc mengubah matriks ke daftar 6

5. Lalu klik Finish tombol, tabel pivot telah dibuat sekaligus, lihat tangkapan layar:

doc mengubah matriks ke daftar 7

6. Di tabel pivot, klik dua kali sel yang berpotongan dari Grand Total, dalam hal ini, saya akan mengklik dua kali sel F22, dan itu akan menghasilkan tabel tiga kolom seperti gambar berikut yang ditampilkan:

doc mengubah matriks ke daftar 8

7. Dan terakhir, Anda dapat mengonversi format tabel ke kisaran normal dengan memilih tabel lalu pilih tabel > Ubah ke Range dari menu konteks, lihat tangkapan layar:

doc mengubah matriks ke daftar 9


Jika Anda tidak menyukai metode pertama, kode VBA berikut juga dapat membantu Anda.

1. tekan Alt + F11 untuk menampilkan Microsoft Visual Basic untuk Aplikasi jendela.

2. Di jendela, klik Menyisipkan > Modul untuk menampilkan jendela modul baru, lalu salin dan tempel kode VBA berikut ke jendela modul.

Kode VBA: Ubah tabel gaya matriks menjadi daftar

Sub ConvertTable()
'Update 20150512
Dim Rng As Range
Dim cRng As Range
Dim rRng As Range
Dim xOutRng As Range
xTitleId = "KutoolsforExcel"
Set cRng = Application.InputBox("Select your Column labels", xTitleId, Type:=8)
Set rRng = Application.InputBox("Select Your Row Labels", xTitleId, Type:=8)
Set Rng = Application.InputBox("Select your data", xTitleId, Type:=8)
Set outRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set xWs = Rng.Worksheet
k = 1
xColumns = rRng.Column
xRow = cRng.Row
For i = Rng.Rows(1).Row To Rng.Rows(1).Row + Rng.Rows.Count - 1
    For j = Rng.Columns(1).Column To Rng.Columns(1).Column + Rng.Columns.Count - 1
        outRng.Cells(k, 1) = xWs.Cells(i, xColumns)
        outRng.Cells(k, 2) = xWs.Cells(xRow, j)
        outRng.Cells(k, 3) = xWs.Cells(i, j)
        k = k + 1
    Next j
Next i
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk membiarkan Anda memilih label kolom data, lihat tangkapan layar:

doc mengubah matriks ke daftar 10

4. Dan kemudian klik OK tombol, di kotak prompt berikutnya, pilih label baris, lihat tangkapan layar:

doc mengubah matriks ke daftar 11

5. Lanjutkan mengklik OK, lalu pilih rentang data tidak termasuk judul kolom dan baris di kotak prompt, lihat tangkapan layar:

doc mengubah matriks ke daftar 12

6. Dan kemudian klik OK, di kotak dialog ini, pilih sel di mana Anda ingin mencari hasilnya. Lihat tangkapan layar:

doc mengubah matriks ke daftar 13

7. Terakhir, klik OK, dan Anda akan mendapatkan tabel tiga kolom sekaligus.


Kedua metode di atas agak merepotkan, berikut saya perkenalkan cara yang mudah - Kutools untuk Excel, Dengan yang Ubah Urutan Dimensi Tabel fitur, Anda dapat dengan cepat mengkonversi antara matriks sel dan tabel daftar.

Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari

Setelah menginstal Kutools untuk Excel, lakukan langkah-langkah berikut:

1. Klik Kutools > Jarak > Ubah Urutan Dimensi Tabel, lihat tangkapan layar:

2. di Ubah Urutan Dimensi Tabel kotak dialog:

(1.) Pilih Tabel silang ke daftar pilihan di bawah Jenis transpose.

(2.) Lalu klik doc mengubah matriks ke daftar 5 tombol di bawah Rentang sumber untuk memilih rentang data yang ingin Anda ubah.

(3.) Kemudian klik doc mengubah matriks ke daftar 5 tombol di bawah Rentang hasil untuk memilih sel tempat Anda ingin meletakkan hasilnya.

doc mengubah matriks ke daftar 15

3. Dan kemudian klik OK tombol, dan Anda akan mendapatkan hasil berikut yang termasuk pemformatan sel asli:

doc mengubah matriks ke daftar 16

Dengan utilitas ini, Anda juga mengubah tabel daftar datar menjadi tabel silang 2 dimensi.

Untuk mengetahui lebih lanjut tentang fitur Dimensi Tabel Transpose ini.

Unduh dan uji coba gratis Kutools untuk Excel Sekarang!


Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (10)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
bagaimana jika saya memiliki 4 kolom atau lebih?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih, ini adalah persis apa yang saya cari. Luar biasa:)
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak untuk alat yang berguna ini
Komentar ini diminimalkan oleh moderator di situs
Terima kasih Ton, sangat menghargai cara Anda menjelaskan. sangat berguna
Komentar ini diminimalkan oleh moderator di situs
apakah Anda memiliki kode dengan tweak di mana kolom paling kiri dari pilihan adalah label kolom dan baris paling atas dari pilihan adalah label baris?

Terima kasih sebelumnya,
Komentar ini diminimalkan oleh moderator di situs
Sub ConvertTable_UseThis()

Dim Rng Sebagai Rentang
Redupkan cRng Sebagai Rentang
Redupkan rRng Sebagai Rentang
Redupkan xOutRng Sebagai Rentang
Redupkan xRng Sebagai Rentang, cRow Sebagai Integer, cCol Sebagai Integer


xTitleId = "Konversi Tabel"
Tetapkan xRng = Aplikasi.Pilihan
Set xRng = Application.InputBox("Silahkan pilih range:", "Number Range", Selection.Address, , , , , 8)
cRow = xRng.Rows.Count
cCol = xRng.Columns.Count


Atur cRng = Range(xRng.Cells(1, 2), xRng.Cells(1, cCol))
Atur rRng = Range(xRng.Cells(2, 1), xRng.Cells(cRow, 1))
Atur Rng = Range(xRng.Cells(2, 2), xRng.Cells(cRow, cCol))
Set outRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Tetapkan xWs = Rng.Lembar Kerja
k = 1
xKolom = rRng.Kolom
xRow = cRng.Baris
Untuk i = Rng.Baris(1).Baris Ke Rng.Baris(1).Baris + Rng.Baris.Hitung - 1
Untuk j = Rng.Columns(1).Column Ke Rng.Columns(1).Column + Rng.Columns.Count - 1
outRng.Sel(k, 1) = xWs.Sel(i, xColumns)
outRng.Sel(k, 2) = xWs.Sel(xRow, j)
outRng.Sel(k, 3) = xWs.Sel(i, j)
k = k + 1
J berikutnya
Selanjutnya saya
End Sub
Komentar ini diminimalkan oleh moderator di situs
Untuk Kode VBA, seseorang tampaknya sangat membutuhkan ini:xColumns = cRng.Column
xRow = rRng.Baris
Komentar ini diminimalkan oleh moderator di situs
Sub ConvertTable_UseThis()

Dim Rng Sebagai Rentang
Redupkan cRng Sebagai Rentang
Redupkan rRng Sebagai Rentang
Redupkan xOutRng Sebagai Rentang
Redupkan xRng Sebagai Rentang, cRow Sebagai Integer, cCol Sebagai Integer


xTitleId = "Konversi Tabel"
Tetapkan xRng = Aplikasi.Pilihan
Set xRng = Application.InputBox("Silahkan pilih range:", "Number Range", Selection.Address, , , , , 8)
cRow = xRng.Rows.Count
cCol = xRng.Columns.Count


Atur cRng = Range(xRng.Cells(1, 2), xRng.Cells(1, cCol))
Atur rRng = Range(xRng.Cells(2, 1), xRng.Cells(cRow, 1))
Atur Rng = Range(xRng.Cells(2, 2), xRng.Cells(cRow, cCol))
Set outRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Tetapkan xWs = Rng.Lembar Kerja
k = 1
xKolom = rRng.Kolom
xRow = cRng.Baris
Untuk i = Rng.Baris(1).Baris Ke Rng.Baris(1).Baris + Rng.Baris.Hitung - 1
Untuk j = Rng.Columns(1).Column Ke Rng.Columns(1).Column + Rng.Columns.Count - 1
outRng.Sel(k, 1) = xWs.Sel(i, xColumns)
outRng.Sel(k, 2) = xWs.Sel(xRow, j)
outRng.Sel(k, 3) = xWs.Sel(i, j)
k = k + 1
J berikutnya
Selanjutnya saya
End Sub
Komentar ini diminimalkan oleh moderator di situs
Adakah yang tahu bagaimana melakukan ini di mac?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk tipsnya. Ini sangat menghemat waktu dan upaya manual saya.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan