Hi,
Thanks to Alansidman, who helped to solve my previous question.
Option ExplicitHTML Code:
Sub LikeNr()
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Dim lc As Long
lc = 25
Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
For i = 1 To lr
For j = 1 To lc
If Cells(i, j) Like "19*" Then 'change this value as necessary or add an inputbox to search for a particular value.
Cells(i, j).Copy Cells(i, 26)
End If
Next j
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "complete"
End Sub
By above VBA solution I was able to move the cells beginning with specific numbers to a new column.
Now I have 4 lines (all might be in different lengths), where every 2 of them are identical with first four cells. I want to copy user1 from shorter line to the most right of longer one.
Above codes are only for moving S1 & T2 to the new columns.
My second question, how can we add W1 & V2 to the side columns?
Here I pictured what I tried to explain
Attachment 364711
Any help would appreciated.
Bookmarks