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

Bagaimana cara cepat menggabungkan baris berdasarkan satu nilai kolom lalu melakukan beberapa perhitungan di Excel?

Misalnya, Anda memiliki rentang data dan satu kolom memiliki duplikat, sekarang Anda ingin menggabungkan baris berdasarkan kolom A (memiliki duplikat) kemudian melakukan beberapa perhitungan ke kolom lain berdasarkan baris yang digabungkan seperti gambar yang ditampilkan:

Di Excel, tidak ada metode cepat untuk menggabungkan baris berdasarkan satu nilai kolom, tapi di sini saya perkenalkan
trik yang dapat membantu Anda menggabungkan baris duplikat lalu menjumlahkan atau melakukan penghitungan lain di kolom lain.


panah gelembung kanan biru Gabungkan baris berdasarkan satu kolom lalu jumlahkan nilai dengan VBA

Ada kode VBA yang dapat membantu Anda menggabungkan baris duplikat lalu menjumlahkan nilai kolom lain.

Menjelajah dengan tab & mengedit beberapa buku kerja Excel / dokumen Word sebagai Firefox, Chrome, Internet Explore 10!

Anda mungkin tidak asing lagi untuk melihat beberapa halaman web di Firefox / Chrome / IE, dan beralih di antaranya dengan mengklik tab yang sesuai dengan mudah. Di sini, Office Tab mendukung pemrosesan serupa, yang memungkinkan Anda menelusuri beberapa buku kerja Excel atau dokumen Word dalam satu jendela Excel atau jendela Word, dan dengan mudah beralih di antara keduanya dengan mengklik tabnya. Klik untuk uji coba gratis 30 hari Tab Office!

atau unggul

1. tekan F11 + Alt kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela, lalu klik Menyisipkan > Modul dan salin dan tempel kode VBA di bawah ini ke yang baru Modul jendela.

VBA: Gabungkan baris berdasarkan satu nilai kolom

Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
    If Not .Exists(Rng.Value) Then
        .Add Rng.Value, Rng.Offset(, 1)
    Else
        .Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
            If nRng Is Nothing Then
                Set nRng = Rng
            Else
                Set nRng = Union(nRng, Rng)
            End If
    End If
Next
If Not nRng Is Nothing Then
    nRng.EntireRow.Delete
End If
End With
End Sub

2. tekan F5 Atau klik Run tombol untuk menjalankan VBA, dan dialog muncul untuk memilih rentang data untuk bekerja. lihat tangkapan layar:

doc menggabungkan kolom berdasarkan satu kolom 3

3. Setelah memilih rentang kerja, klik OK. Sekarang data telah digabungkan dengan kolom pertama dan jumlahkan nilainya di kolom kedua.

doc menggabungkan kolom berdasarkan satu kolom 4

Note: Kode VBA ini hanya dapat bekerja dengan benar saat menggabungkan berdasarkan kolom pertama dan menjumlahkan nilai di kolom kedua.


panah gelembung kanan biru Gabungkan baris berdasarkan satu kolom lalu jumlahkan nilai dengan Advanced Combine Rows

Jika Anda tidak terbiasa dengan kode VBA, Anda dapat menggunakan Lanjutan Gabungkan Baris fitur dari alat tambahan bagian ketiga - Kutools untuk Excel untuk dengan mudah dan cepat menggabungkan baris duplikat lalu menjumlahkan nilainya di kolom lain.

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. Pilih data yang ingin Anda gunakan dan klik Kutools > Gabungkan & Pisahkan > Lanjutan Gabungkan Baris. Lihat tangkapan layar:

doc lanjutan menggabungkan baris 1

2. Kemudian pada dialog popping, pilih kolom yang akan Anda gabungkan berdasarkan kolom lain lalu klik primer Key, dan klik kolom lain dan klik Dihitung lalu pilih Jumlah.

jenis: Jika rentang yang Anda pilih memiliki tajuk, periksa Data saya memiliki tajuk, dan cek Gunakan nilai yang diformat akan mempertahankan pemformatan setelah penggabungan.

doc menggabungkan kolom berdasarkan satu kolom 6

3. Lalu klik Ok. Sekarang data telah digabungkan berdasarkan kolom utama, dan satu lagi adalah jumlah. Lihat tangkapan layar:

doc menggabungkan kolom berdasarkan satu kolom 7


panah gelembung kanan biru Gabungkan baris berdasarkan satu kolom lalu lakukan operasi berbeda di kolom lain dengan Advanced Combine Rows.

Lanjutan Gabungkan Baris sangat kuat, karena tidak hanya dapat menggabungkan baris duplikat dalam satu kolom lalu menjumlahkan kolom lain, tetapi juga dapat menggabungkan baris duplikat dalam satu kolom lalu melakukan operasi yang berbeda pada kolom lain.

Misalkan saya memiliki berbagai data seperti gambar di bawah ini yang ditampilkan, dan saya ingin menggabungkan nilai di Kolom B dan menjumlahkan nilai di Kolom C berdasarkan Kolom A.
doc menggabungkan kolom berdasarkan satu kolom 8

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. Pilih rentang data dan klik Kutools > Gabungkan & Pisahkan > Lanjutan Gabungkan Baris. Lihat tangkapan layar:

doc lanjutan menggabungkan baris 1

2. Dalam Gabungkan Baris Berdasarkan Kolom dialog, lakukan seperti ini:

(1) Klik pada kolom yang ingin Anda gabungkan berdasarkan, dan klik Kunci utama;

doc menggabungkan kolom berdasarkan satu kolom 10

(2) Klik pada kolom yang ingin Anda gabungkan datanya, dan klik Menggabungkan, lalu pilih satu pemisah yang Anda perlukan dari daftar;

doc menggabungkan kolom berdasarkan satu kolom 11

(3) Klik pada kolom yang ingin Anda jumlahkan nilainya dan klik Dihitung, Lalu pilih Jumlah.

doc menggabungkan kolom berdasarkan satu kolom 12

3. klik Ok. Sekarang Anda bisa melihat hasilnya seperti di bawah ini:

doc menggabungkan kolom berdasarkan satu kolom 13

Dengan Lanjutan Gabungkan Baris Fitur, Anda juga dapat menggabungkan baris berdasarkan satu kolom lalu menghitung, rata-rata, menyimpan data pertama atau terakhir di kolom lain. 


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 (3)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hai, modul Anda juga berfungsi untuk tabel besar (mis. Anda ingin menjumlahkan menurut Tahun tetapi Anda memiliki Penjualan 1, Penjualan 2, Penjualan 3....dst). Tapi sekarang hanya kolom pertama yang benar (Penjualan 1) dan yang lainnya tidak dijumlahkan dengan benar. Apakah Anda mengubah sesuatu?
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Hai, IK, mungkin Anda bisa menggunakan fungsi sumproduct SUMPRODUCT((A2:A10=”Pen”)*(B2:E10)) untuk menghitungnya satu per satu. A2:A10 adalah rentang yang berisi nilai pencarian, pena adalah kriteria, B2:E10 adalah rentang yang ingin Anda jumlahkan berdasarkan kriteria.
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki pertanyaan yang sama/mirip. Saya mencoba menjumlahkan semua kolom di sebelah kanan sel referensi tetapi hanya menjumlahkan satu. Bagaimana saya membuatnya menjumlahkan semua itu di sebelah kanan secara individual?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan