VBA Excel: Criando URLs em massa

Este VBA para Excel lê o conteúdo das células na coluna A e coloca em B o seu conteúdo normalizado (tira o ” ” e substitui por “-”), assim como o prefixo do URL e o sufixo .html.

Lê as colunas A até estas serem nulas e pára.

Sub Chad()

Dim iRow       As Long

For iRow = 1 To 1000

If Cells(iRow, “A”) = “” Then Exit For

Cells(iRow, “B”) = “http://www.blabla.pt/search/” & Replace(Cells(iRow, “A”), ” “, “-”) & “.html”

Next iRow

End Sub