parscon
09-14-2012, 11:43 AM
This will combine all data in row 1 into A1. I need to do this for another rows also (that mean loop), how can I do it ?
Sub Comb()
For x = 2 To 256
If Cells(1, x).Value = "" Then
Else
Cells(1, 1).Value = Cells(1, 1).Value & ", " & Cells(1, x).Value
End If
Next x
End Sub
Sub Comb()
For x = 2 To 256
If Cells(1, x).Value = "" Then
Else
Cells(1, 1).Value = Cells(1, 1).Value & ", " & Cells(1, x).Value
End If
Next x
End Sub