UDF Gabung Text Dalam 1 Cells

Menjawab dari Pertanyaan di Group bagaimana menggabungkan 2 kolom menjadi 1 cells saja

Simpan script dibawah ini pada standart module, setelah itu rumus gabung bisa digunakan.

Function Gabung(RngA As Range, RngB As Range)

'-----------------------------------------------------
' Sctipt VBA    : 11 (Gabung Text)
' Author        : https://vba.co.id
'                 Situs belajar VBA No.1 di Indonesia
'------------------------------------------------------

If Not RngA.Count = RngB.Count Then
    Gabung = CVErr(xlErrRef)
    Exit Function
End If

For i = 1 To RngA.Count
    tmp = tmp & vbLf & RngA(i, 1) & ". " & RngB(i, 1)
Next
Gabung = Replace(tmp, vbLf, "", 1, 1)
End Function
List Tutorial
Apa yang sedang kamu cari?

Temukan beberapa kata kunci yang diinginkan.

Search