Move text to another cell

NoSparks · #1 06-05-2017, 07:59 AM

Maybe something along the lines of this...

Code:

With Sheets("Sheet1")
    'get last row of col A
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    'move second value
    For i = 1 To lr Step 3
        .Cells(i, 2).Value = .Cells(i + 1, 1).Value
    Next i
    'remove rows where B is blank
    .Range("B1:B" & lr).SpecialCells(xlBlanks).EntireRow.Delete
End With

ewso · #2 06-05-2017, 09:55 AM

Quote:

Originally Posted by NoSparks

Maybe something along the lines of this...

Code:

With Sheets("Sheet1")
    'get last row of col A
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    'move second value
    For i = 1 To lr Step 3
        .Cells(i, 2).Value = .Cells(i + 1, 1).Value
    Next i
    'remove rows where B is blank
    .Range("B1:B" & lr).SpecialCells(xlBlanks).EntireRow.Delete
End With

Hi..is there something missing, because I can't get the macro to run.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
extract time from a cell and move it to front of cell before text	ewso	Excel	20	03-19-2017 11:34 AM
Move the data at bottom cell to right side of the cell	kcyag91	Excel	1	01-28-2016 12:28 AM
Macro to move focus after entry in a cell	Phil H	Excel Programming	3	06-18-2015 01:20 PM
Move data from 1 cell to another cell	Catalin.B	Excel	1	06-25-2011 12:51 PM
Auto-populate an MS Word table cell with text from a diff cell?	dreamrthts	Word Tables	0	03-20-2009 01:49 PM