I have the following macro that removes blank cells from column A.
On the same sheet I have the following excel formula to transfer the first 3 items from column A into "B1, C1, D1" then "B2, C2, D2", etc.
This is because items in column A are in groups of 3 related items that I need to move into rows.
I have tried to build a macro to transfer that does the same as the excel formula but am new to this and don't know where to start. Can anyone help with this??
Code:
Sub RemoveEmptyCellsFromColumn()
On Error Resume Next
Columns("A").SpecialCells(xlBlanks).EntireRow.Delete
End Sub
On the same sheet I have the following excel formula to transfer the first 3 items from column A into "B1, C1, D1" then "B2, C2, D2", etc.
This is because items in column A are in groups of 3 related items that I need to move into rows.
I have tried to build a macro to transfer that does the same as the excel formula but am new to this and don't know where to start. Can anyone help with this??
Code:
[FONT=Lucida Grande]=OFFSET([COLOR=#0057D6]$A$1[/COLOR],COLUMN[COLOR=#006107]()[/COLOR]-2+[COLOR=#006107]([/COLOR]ROW[COLOR=#AB30D6]()[/COLOR]-1[COLOR=#006107])[/COLOR]*3,0)[/FONT]