Hi Magnadyne,
Welcome to the forum!!
Try this (just change the variables I've commented 'Change to suit' if required):
Option Explicit
Sub Macro1()
Dim i As Long
Dim j As Long
Dim x As Long
Dim y As Long
Dim wsSourceTab As Worksheet
Dim wsOutputTab As Worksheet
Application.ScreenUpdating = False
Set wsSourceTab = Sheets("Sheet1") 'Sheet name where data resides. Change to suit if necessary.
Set wsOutputTab = Sheets("Sheet2") 'Sheet name to output data. Change to suit if necessary.
x = 1 'Initial 'wsOutputTab' output row. Change to suit if necessary.
y = 1 'Initial 'wsOutputTab' output column. Change to suit if necessary.
For i = 1 To wsSourceTab.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For j = 1 To wsSourceTab.Cells(i, wsSourceTab.Columns.Count).End(xlToLeft).Column
wsOutputTab.Cells(x, y).Value = wsSourceTab.Cells(i, j).Value
y = y + 1
If Evaluate(j Mod 2) = 0 Then
x = x + 1
y = 1
End If
Next j
Next i
Set wsSourceTab = Nothing
Set wsOutputTab = Nothing
Application.ScreenUpdating = True
End Sub
Regards,
Robert
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks