Excel: Bagaimana cara menggabungkan daftar kata kunci yang dipisahkan koma dari sel yang berbeda secara dinamis menjadi satu sel tunggal?

0

Saya memiliki tabel berikut dengan kata kunci:

---------------------------------------
|group   | keywords                   |
---------------------------------------
|1       | lorem, ipsum, aeque, dolor |
---------------------------------------
|2       | ipsum, oratio, vim, lorem  |
---------------------------------------
|3       | lorem, qualisque, dolor    |
---------------------------------------

Dan saya ingin mendapatkan ringkasan dengan semua kata kunci digabung menjadi satu sel dengan fungsi excel:

---------------------------------------------------------------
|summary | aeque, dolor, ipsum, lorem, oratio, qualisque, vim |
---------------------------------------------------------------

Pengguna harus dapat mengedit kata kunci di tabel pertama dan ringkasan harus dibangun kembali secara otomatis.

Saya dapat menggunakan CONCATENATE untuk bergabung dengan semua kata kunci, tetapi bagaimana cara mendapatkan string yang diurutkan dengan kata kunci unik dari string ini?

LarS
sumber
Apakah Anda menginginkan solusi VBA, atau formula? Apa yang sudah Anda coba sejauh ini?
BruceWayne
Apa pun yang berhasil diterima, saya rasa formula akan lebih mudah.
LarS

Jawaban:

3

Dengan data dalam kolom SEBUAH seperti:

enter image description here

Fungsi Tentukan Pengguna berikut (UDF) :

Public Function KonKat(rIN As Range) As String
    Dim r As Range, c As Collection
    Set c = New Collection

    For Each r In rIN
        ary = Split(Replace(r.Value, " ", ""), ",")
        On Error Resume Next
        For Each a In ary
            c.Add a, CStr(a)
            If Err.Number = 0 Then
                KonKat = KonKat & ", " & a
            Else
                Err.Number = 0
            End If
        Next a
        On Error GoTo 0
    Next r
    KonKat = Mid(KonKat, 3)
End Function

akan melakukan penggabungan dan menghapus duplikat:

enter image description here

Fungsi yang Ditentukan Pengguna (UDF) sangat mudah dipasang dan digunakan:

  1. ALT-F11 menampilkan jendela VBE
  2. ALT-I ALT-M membuka modul baru
  3. rekatkan barang-barang di dan tutup jendela VBE

Jika Anda menyimpan buku kerja, UDF akan disimpan bersamanya. Jika Anda menggunakan versi Excel di kemudian 2003, Anda harus menyimpan file sebagai .xlsm daripada .xlsx

Untuk menghapus UDF:

  1. buka jendela VBE seperti di atas
  2. hapus kode
  3. tutup jendela VBE

Untuk menggunakan UDF dari Excel:

=konkat(A1:Z1)

Untuk mempelajari lebih lanjut tentang makro secara umum, lihat:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

dan

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

dan untuk spesifik tentang UDF, lihat:

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

Makro harus diaktifkan agar ini berfungsi!

Gary's Student
sumber