Pessoal eu tenho uma macro assim e estou com duvidas como fazer ela percorrer pela coluna e fazer esses termos definidos na gravação da macro:
Sub procurar()
'
' procurar Macro
'
' Atalho do teclado: Ctrl+ç
'
Sheets("Planilha2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Planilha3").Select
Range("I133").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "30825|31190708684547001560550000003308251132317336"
Sheets("Planilha2").Select
Range("J133").Select
ActiveCell.FormulaR1C1 = "'31190708684547001560550000003308251132317336"
Range("J134").Select
End Sub