VBABEGINER
Well-known Member
- Joined
- Jun 15, 2011
- Messages
- 1,232
Hello All,
Below is my code. I've values from Col B to F and getting all this cell value in Col A cell. Now I'm looking to have space between every cell value. Can anyone here to guide code for the same. I really appreciate if provide me something on this..
Thanks..!!
Sincerely.. vbabeginer
Below is my code. I've values from Col B to F and getting all this cell value in Col A cell. Now I'm looking to have space between every cell value. Can anyone here to guide code for the same. I really appreciate if provide me something on this..
Thanks..!!
Sincerely.. vbabeginer
VBA Code:
Dim lstRw As Long
Dim lstCl As Long
Dim i As Long
Dim j As Long
Dim result As Variant
lstRw = Sheets("Output").Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 3 To lstRw
lstCl = Sheets("Output").Cells(lstRw, Columns.Count).End(xlToLeft).Column
For j = 2 To lstCl
result = result & Sheets("Output").Cells(i, j)
Next j
Sheet6.Range("A" & i) = result
result = ""
Next i