Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim value As String
- value=Cells(1,1).Value
- Dim value as string
- Dim x as Variant
- Dim i as integer
- x = split(Cells(1,1),Chr(10))
- for i = 0 to ubound(x)
- value = value & x(i)
- Next i
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement