Menggabungkan Teks dari beberapa kolom

  1. 2 minggu lalu

    Selamat malam Master2 BE semua
    Selamat malam kak @manweljs_

    Mohon bantuannya jika berkenan,,, jadi saya mau menggabungkan beberapa kolom menjadi 1 kolom
    seperti lampiran berikut ini untuk lebih jelasnya.... :)

    Smga suhu2 disini dilancarkan rezekinya ,karena sudah banyak membantu saya :)

  2. @anggun123

    coba skrip berikut

    Sub tes()
    Dim rng As Range, sel As Range
    Dim s As String, var As String, sTemp As String, cek As String
    
    x = Cells(Rows.Count, 1).End(xlUp).Row
    Set rng = Range("AE1:AE" & x)
    
    For Each sel In rng
        sTemp = ""
        s = ""
        var = ""
        For i = 37 To 150
            If i Mod 4 = 1 Then
                r = sel.Row
                cek = Cells(r, i) & Cells(r, i + 1)
                If InStr(1, sTemp, cek) Then
                    GoTo lanjut
                Else
                    sTemp = sTemp & "|" & cek
                    s = s & Cells(r, i + 1) & ":" & Cells(r, i + 2) & ","
                    var = var & Cells(r, i) & ","
                End If
            End If
    lanjut:
        Next i
        sel = Left(s, Len(s) - 1): sel.Offset(0, 1) = Left(var, Len(var) - 1)
    Next
    End Sub

  3. Terima kasih banyak kak @manweljs_

    sempurna,,

    sekali lagi saya ucapkan terima kasih,, smga dilancarkan rezekinya

    amin

  4. @manweljs_

    Di kolom variasi warna,, terkadang ada juga teks koma ( , )
    semisal 17, hitam
    kalau mau replace dri koma menjadi spasi,,,, edit dibagian mana yaa kak

  5. @anggun123

    pada bagian :

    var = var & Cells(r, i) & ","

    edit menjadi :

    var = var & Replace(Cells(r, i), ",", " ") & ","

  6. Terima kasih kak @manweljs_

    sempurna

 

atau Mendaftar untuk ikut berdiskusi!