把左框的数据加工成右框的样子，蹲个大佬

复制B列到K列，L3公式：=IF(C3=B3,"",C3)

Option Explicit
Sub abc()
　Dim a, i, j, p, n
　a = Range("b3:h" & Cells(Rows.Count, "b").End(xlUp).row).Value
　ReDim b(1 To UBound(a), 1 To 6)
　For i = 1 To UBound(a)
　　p = 1: n = 0
　　For j = 2 To UBound(a, 2)
　　　If a(i, j) <> a(i, p) Then n = n + 1: b(i, n) = a(i, p): p = j
　　Next
　Next
　[k3].Resize(UBound(b), 6) = b
End Sub