Hello, I'm trying to move the first row of data into a new sheet and column and it's corresponding row of data into a second column then separate the second column into the two different data points. Attached is the spreadsheet with original and modified tab of how the original looks and end result would look. Hopefully I'm making sense! Thank you!
Run time is appoximately 3 seconds.
Please Login or Register to view this content.
Any code provided by me should be tested on a copy or a mock up of your original data before applying it to the original. Some events in VBA cannot be reversed with the undo facility in Excel. If your original post is satisfied, please mark the thread as "Solved". To upload a file, see the banner at top of this page.
Just when I think I am smart, I learn something new!
God like! Works perfect thanks so much!!!
You're welcome,Originally Posted by augr
regards, JLG
Hi ! Try this ‼
According to the attachment an instant result demonstration to paste to the modified worksheet module :
PHP Code:Sub Demo1()
Dim V, W(), L&, R&, S
Me.UsedRange.Clear
V = Sheets(1).UsedRange.Columns(1).Value2
ReDim W(1 To UBound(V) \ 2, 2)
For L = 1 To UBound(V) Step 2
R = R + 1
S = Split(V(L + 1, 1), ", ")
W(R, 0) = V(L, 1)
W(R, 1) = S(0)
W(R, 2) = S(1)
Next
[A1:C1].Resize(R).Value2 = W
End Sub
Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !
Hi augr,
If you have a newer version of Excel, that has Power Query, you can use that tool to do your work. See the attached that uses Power Query, Index Column, Modulo function and Fill down to get your answer.
Email Domains Power Query Mod Fill Down.xlsx
One test is worth a thousand opinions.
Click the * Add Reputation below to say thanks.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks