- Sub tt()
- arr = Range("a6").CurrentRegion
- For i = 2 To UBound(arr)
- arr(i, 16) = ""
- For j = 17 To UBound(arr, 2)
- If Len(arr(i, j)) > 0 Then arr(i, 16) = arr(i, 16) & "," & arr(1, j)
- Next
- If Len(arr(i, 16)) Then arr(i, 16) = Mid(arr(i, 16), 2)
- Next
- [p6].Resize(UBound(arr), 1) = Application.Index(arr, , 16)
- End Sub
复制代码 |