Hi,
I found this great macro to use in a spreadsheet I'm trying to transpose from rows to columns, however, I need a place holder for blank cells:
http://www.excelforum.com/excel-prog...o-columns.html
I was able to use the macro in the last post by Ochenden but the blank cells need to have a placeholder.
Can anyone change the macro or come up with a different script for me to use?
Attached is how I need the spreadsheet to look.
Script I used:
Sub aaa()
Dim OutSH As Worksheet
Set OutSH = Sheets("Sheet2")
Range("A:A").AdvancedFilter Action:=xlFilterCopy, copytorange:=OutSH.Range("A1"), Unique:=xlYes
'determine last column based on header
lastcol = Cells(1, Columns.Count).End(xlToLeft).Column
For Each ce In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Set findit = OutSH.Range("A:A").Find(what:=ce.Value)
For i = 2 To lastcol
OutSH.Cells(findit.Row, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Cells(ce.Row, i).Value
Next i
Next ce
With OutSH
End With
End Sub
Thanks,Transpose_Duplicates_Examples.xlsx
Bookmarks