Copy column 1 data into Column 3

theoxskyl · #2 06-18-2015, 10:49 AM

Hello,
As I understand, you need to copy all the cells of the 1st column to the cells of the 3rd column. The macro is quite simple.

Code:

Sub copy_col1_to_col3()
    Dim t As Table
    Dim r As Row
    
    For Each t In ActiveDocument.Tables
        For Each r In t.Rows
            If r.Cells(1).Range.Font.Name = "Calibri" And r.Cells(1).Range.Font.Size = 11 Then
                r.Cells(3).Range = r.Cells(1).Range
            End If
        Next
    Next
End Sub

Best regards,
Theocharis

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
documents saved with double column revert to single column when re-opened	danw	Word	6	04-08-2015 06:24 AM
Embedded Excel in Powerpoint - custom animation, display column by column	andytheanimal	PowerPoint	2	01-20-2015 06:30 AM
Copy column entries on value	Guloluseus	Excel	3	01-05-2015 08:28 PM
How can I temporarily break a 3 column format in order to type a single column paragraph	William P	Word	1	01-04-2015 06:40 PM
Want a quotient using a constant to show up in column c each time a number is added to column b	fibbermcghee	Excel	2	12-09-2014 05:48 PM