You can use this, change Sheet1 and Sheet2 to your source and destination
sheets respectively
Sub NewRearrangeMacro()
Dim wks As Worksheet, wks2 As Worksheet
Dim Lrow As Long, I As Long, j As Long, k As Long
Dim Colcount As Long
Set wks = Worksheets("Sheet1")
Set wks2 = Worksheets("Sheet2")
Lrow = wks.Range("A" & Rows.Count).End(xlUp).Row
k = 1
For I = 1 To Lrow
Colcount = Cells(I, Columns.Count).End(xlToLeft).Column
For j = 2 To Colcount
wks2.Cells(k, 1) = wks.Cells(I, 1)
wks2.Cells(k, 2) = wks.Cells(I, j)
k = k + 1
Next j
Next I
End Sub
Regards
Victor
On Fri, Apr 15, 2016 at 5:47 AM, <jorgeexcel2...@gmail.com> wrote:
>
>
> Hi Excel Group,
>
> Please can you help me with an Excel Macro that process the entire
> information saved on Sheet 1, and generates a report on Sheet 2
>
> Sheet 1
> A B C D E F G
> 1 Door A2 B3 C2 L1
> 2 furniture B2 B3
> 3 TV A1 A2
> 4 Kitchen L2 L4 Z1 M2 R3 W5
> (Total rows: 500, total columns: 100)
>
>
>
> Sheet 2
>
> A B
> 1 Door A2
> 2 Door B3
> 3 Door C2
> 4 Door L1
> 5 Furniture B2
> 6 Furniture B3
> 7 TV A1
> 8 TV A2
> 9 Kitchen L2
> 10 Kitchen L4
> 11 Kitchen Z1
> 12 Kitchen M2
> 13 Kitchen R3
> 14 Kitchen W5
>
>
> Thank you
>
> Jorge Cardenas
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at https://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
