Copy and paste (as values) every nth column

[vonborge]

Dear forum,

I have a very large workobbok that I wish to make lighter by hardcoding parts of it. The idea is to take every second column (A, C, E, ...) in Sheet2 (which references to Sheet1) and paste it back as values so that I can delete Sheet1 altogheter afterwards and only have formulas in B, D, F etc.

Any ideas on how this can be done efficiently?

I have attached an example of the workbook. copypasteexample.xlsx

Looking forward to your replies - many thanks in advance!

/Borge

[arlu1201]

Try this code

Option Explicit

Sub copy_paste()
Dim i As Long, lrow As Long, lcol As Long

Application.ScreenUpdating = False

With Worksheets("Sheet2")
    lcol = .Range("IV1").End(xlToLeft).Column
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To lcol Step 2
        .Range(.Cells(2, i), .Cells(lrow, i)).Copy
        .Cells(2, i).PasteSpecial (xlPasteValues)
    Next i
End With

Application.ScreenUpdating = True

End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button

[vonborge]

Thanks Arlu, this works wonders!