Excel 2003 Macro to move data around worksheet

  • Thread starter Thread starter recorder
  • Start date Start date
R

recorder

I need to convert data for the three columns below by repeating these
 
Test on a copy of your workbook
Sub moveStuff()
Const columnA = "A"
Const columnC = "C"
Dim lastRow As Long
Dim i As Long

Range(columnA & 1).EntireRow.Insert
lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row * 2

For i = 2 To lastRow
Range(columnA & i).Offset(-1, 0) = Range(columnC & i)
Range(columnC & i) = ""
Range(columnA & i).Offset(1, 0).EntireRow.Insert
i = i + 1
Next i

End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel Copy cells from one worksheet to another workseet - increment row & do again 0
VBA set thick borders around non empty cells in range 0
Convert to Excel Macro 3
convert columns to rows 6
Convert to Excel Macro 2
Excel 2003 VBA In directory Open Spreadsheets Extract data 1
Excel 2013 Merge Data 2
Excel Columns moving up and down on their own in a worksheet. What Goes? 2

Back
Top