5 Excel Macros to Improve Your AdWords Worflow

Macros provide a great way to automate common operations when working with AdWords in Excel. Below are 5 macros that I use on an almost daily basis.

Broad Match to +Broad +Match +Modified

Sub makeBmm()
'Keyboard Shortcut: option+cmd+b
    For Each cell In Selection
cell.Value = WorksheetFunction.Trim(cell.Value)
Next
    For Each cell In Selection
cell.Value = "+" & cell.Value
Next
    For Each cell In Selection
cell.Value = Replace(cell.Value, " ", " +")
Next
End Sub

Text to Columns

Sub splitColumns()
'Keyboard Shortcut: option+cmd+s

Dim separator As Variant
separator = InputBox("Split by:")
Selection.TextToColumns , DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, Other:=True, OtherChar _
:=separator
End Sub

Paste Values

Sub pasteValues()
'Keyboard Shortcut: option+cmd+v
    Selection.Copy
Selection.PasteSpecial Paste:=xlValues
End Sub

BMM → Exact → BMM

Sub bmmExact()
'Keyboard Shortcut: Option+Cmd+e

For Each cell In Selection
If InStr(cell.Value, "BMM") Then
cell.Value = Replace(cell.Value, "BMM", "Exact")
Else
cell.Value = Replace(cell.Value, "Exact", "BMM")
End If
Next
End Sub

Delete Irrelevant Columns

Sub delColumns()
'Keyboard Shortcut: Option+Cmd+d
    Dim currentColumn As Integer
Dim columnHeaders As String
    For currentColumn = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
        columnHeaders = ActiveSheet.UsedRange.Cells(1, currentColumn).Value
        'Check which columns to keep/delete
Select Case columnHeaders
'Do nothing
            Case "Campaign", "Ad Group", "Keyword", "Criterion Type"

Case Else
'Delete column
                 ActiveSheet.Columns(currentColumn).Delete
        End Select
Next
End Sub

About the author

Lars C. L. Larsen is an Online Marketing Specialist & Partner at AdNudging.com. You can connect with him on LinkedIn.

One clap, two clap, three clap, forty?

By clapping more or less, you can signal to us which stories really stand out.