Ghép bảng mã tiêu chuẩn kỹ thuật (1 người xem)

[qv7tb]

Nhờ a/e forum viết giúp code VBA cho cả Workbook, ghép các tiêu chuẩn với mã tiêu chuẩn hàng ngang với hàng ngang cho ra cột theo thứ tự.
Thanks a/e forum!

 

[ChanhTQ@]

Macro của bạn đây

Option Explicit
Sub Ghep2Vung()
 Dim Cls As Range, Rng As Range, Rg0 As Range, Cll As Range
 
 [V1].CurrentRegion.Offset(1).ClearContents
 [V2].Resize(, 3).Value = "GPE"
 For Each Cls In Range("A2:J4")
    If Cls.Value <> "" Then
        For Each Cll In Range("L2:s4")
            If Cll.Value <> "" Then
                If Cls.Row = Cll.Row Then _
                    Cells(65500, 20 + Cls.Row).End(xlUp).Offset(1).Value = Cls.Value & Cll.Value
            End If
        Next Cll
    End If
 Next Cls
End Sub