none
Excel localizar e substituir caracteres RRS feed

  • Pergunta

  • Boa tarde pessoal,

    Encontrei o código abaixo na internet e ele quase me atende. O que preciso é fazer com que ele só busque os primeiros caracteres de cada célula assim como só meio e também só nos últimos caracteres da célula,


    Sub ChgInfo() Dim WS As Worksheet Dim Search As String Dim Replacement As String Dim Prompt As String Dim Title As String Dim MatchCase As Boolean Prompt = "What is the original value you want to replace?" Title = "Search Value Input" Search = InputBox(Prompt, Title) Prompt = "What is the replacement value?" Title = "Search Value Input" Replacement = InputBox(Prompt, Title) For Each WS In Worksheets WS.Cells.Replace What:=Search, Replacement:=Replacement, _ LookAt:=xlPart, MatchCase:=False Next End Sub
    • Editado rbbahia terça-feira, 16 de julho de 2013 17:09
    terça-feira, 16 de julho de 2013 16:42

Respostas