Hello all,
I am trying to seperate values in a single cell (delimiter=[alt+enter] into seperate roles. Along with this, when a new row is created, the cell to the left represents the group where the value cam from. Below is an easier to understand:
Column A=Sky (A1)
Values= clouds [alt+enter] (B1)
birds [alt+enter] (B1)
Planes (B1)
-------------------------------------------------------
and instead I want it to look like:
Column A Column B
Sky Clouds
Sky Birds
Sky Planes
Thanks!
Try it once.
Sub hsv() Dim rw As Long, sq As Variant For rw = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 sq = Split(Cells(rw, 2), Chr(10)) Cells(rw, 1).Offset(1).Resize(UBound(sq)).EntireRow.Insert Cells(rw, 1).Offset(1).Resize(UBound(sq)) = Cells(rw, 1) Cells(rw, 2).Resize(UBound(sq) + 1) = Application.Transpose(sq) Next rw End Sub
Harry.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks