LinkBack URL
About LinkBacks
Thanks for the rep' !
Was confused by single column …
PHP Code:Sub Demo2()
Application.ScreenUpdating = False
[RD].Rows(1)(0).Copy [OT]
ReDim VA(1 To [RD].Rows.Count, 1 To [RD].Columns.Count)
With CreateObject("System.Collections.SortedList")
For C& = 1 To [RD].Columns.Count
For Each V In [RD].Columns(C).Value: .Item(V) = "": Next
For R& = 1 To .Count: VA(R, C) = .GetKey(R - 1): Next
.Clear
Next
End With
[OT].Offset(1).Resize(UBound(VA), UBound(VA, 2)).Value = VA
[OT].CurrentRegion.HorizontalAlignment = xlCenter
End Sub
You may like it !
Register To Reply
Bookmarks