Cell Distribution

[dhen21dx]

Hello,

Just want to ask if there is an easy way to distribute the data from Column A to Column B, the result will be on Column D&E.

 

[PaddyD]

I suspect a little more info might help here

 

[dhen21dx]

Sorry didnt get it, can you have a simple code?

 

[PaddyD]

Let me try again...

Your question is too vague for anyone to be able to answer. What data? What do you mean by 'distribute'? What does '...the result will be on Column D&E" mean etc etc.

A worked example would help...

 

[dhen21dx]

Here is the sample: Column A = Material1; B = Material2, D&E is the combination result.

[TABLE="width: 408"]
<colgroup><col><col><col><col span="2"></colgroup><tbody>[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD="colspan: 2"]Result[/TD]
[/TR]
[TR]
[TD]Material1[/TD]
[TD]Material2[/TD]
[TD] [/TD]
[TD]Material1[/TD]
[TD]Material2[/TD]
[/TR]
[TR]
[TD="align: right"]40000000001[/TD]
[TD="align: right"]50000000201[/TD]
[TD] [/TD]
[TD="align: right"]40000000001[/TD]
[TD="align: right"]50000000201[/TD]
[/TR]
[TR]
[TD="align: right"]40000000002[/TD]
[TD="align: right"]50000000202[/TD]
[TD] [/TD]
[TD="align: right"]40000000002[/TD]
[TD="align: right"]50000000201[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD="align: right"]50000000203[/TD]
[TD] [/TD]
[TD="align: right"]40000000001[/TD]
[TD="align: right"]50000000202[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD="align: right"]50000000204[/TD]
[TD] [/TD]
[TD="align: right"]40000000002[/TD]
[TD="align: right"]50000000202[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD="align: right"]40000000001[/TD]
[TD="align: right"]50000000203[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD="align: right"]40000000002[/TD]
[TD="align: right"]50000000203[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD="align: right"]40000000001[/TD]
[TD="align: right"]50000000204[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD="align: right"]40000000002[/TD]
[TD="align: right"]50000000204[/TD]
[/TR]
</tbody>[/TABLE]

 

[Rick Rothstein]

Give this macro a try...

[table="width: 500"]
[tr]
	[td]Sub Distribute()
  Dim X As Long, R As Long, Acount As Long, Bcount As Long
  Acount = Range("A2", Cells(Rows.Count, "A").End(xlUp)).Rows.Count
  Bcount = Range("B2", Cells(Rows.Count, "B").End(xlUp)).Rows.Count
  Range("D1:E1").Value = Range("A1:B1").Value
  For X = 1 To Bcount
    R = Cells(Rows.Count, "D").End(xlUp).Offset(1).Row
    Cells(R, "D").Resize(Acount).Value = Range("A2", Cells(Rows.Count, "A").End(xlUp)).Value
    Cells(R, "E").Resize(Acount).Value = Cells(1 + X, "B").Value
  Next
End Sub[/td]
[/tr]
[/table]