Início / computer / Perguntas / 1547526
Accepted
User1974
Asked: 2020-05-01 17:06:57 +0800 CST

Dividir o texto na última instância do caractere (manter o lado esquerdo)

  • 772

Eu tenho valores de caminho de hierarquia na coluna A de uma planilha do Excel:

FLEET
FLEET \ AIR SYSTEM
FLEET \ AIR SYSTEM \ COMPRESSOR - DRYER
FLEET \ AIR SYSTEM \ VALVES
FLEET \ AIR SYSTEM \ RESERVOIRS
FLEET \ AIR SYSTEM \ HOSES - LINES - FITTINGS

FLEET \ BODY EXTERIOR
FLEET \ BODY EXTERIOR \ BODY PANELS
FLEET \ BODY EXTERIOR \ WIPERS
FLEET \ BODY EXTERIOR \ MIRRORS
FLEET \ BODY EXTERIOR \ ACCESSORIES
FLEET \ BODY EXTERIOR \ ACCESSORIES \ CATEGORY 1
FLEET \ BODY EXTERIOR \ ACCESSORIES \ CATEGORY 2

Gostaria de dividir cada string na última instância \e manter o lado esquerdo da string dividida.

[null]
FLEET
FLEET \ AIR SYSTEM
FLEET \ AIR SYSTEM
FLEET \ AIR SYSTEM
FLEET \ AIR SYSTEM

FLEET
FLEET \ BODY EXTERIOR
FLEET \ BODY EXTERIOR
FLEET \ BODY EXTERIOR
FLEET \ BODY EXTERIOR
FLEET \ BODY EXTERIOR \ ACCESSORIES
FLEET \ BODY EXTERIOR \ ACCESSORIES

É possível fazer isso por meio de uma fórmula do Excel 2016?

microsoft-excel microsoft-excel-2016

2 respostas

  1. Best Answer
    =IFERROR(LEFT(A1,FIND(CHAR(1),SUBSTITUTE(A1,"\",CHAR(1),LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))-1),"")

    Em seu comentário, você indica que deseja remover o terminal spaceque está presente nos dados originais. Você só precisa usar a TRIMfunção na fórmula:

    =TRIM(IFERROR(LEFT(A2,FIND(CHAR(1),SUBSTITUTE(A2,"\",CHAR(1),LEN(A2)-LEN(SUBSTITUTE(A2,"\",""))))-1),""))

    e preencher

    insira a descrição da imagem aqui

    Se a sua versão do Excel tiver as funções FILTERXMLe TEXTJOIN, você pode usar o seguinte (que não terá um terminal space).

    =IFERROR(TEXTJOIN("\",TRUE,FILTERXML("<t><s>" & SUBSTITUTE(A1&"\","\","</s><s>") & "</s></t>","//s[position()<last()-1]")),"")
    • 2

  2. Você também pode tentar uma função definida pelo usuário:

    Function LPath(Target As Range) As String

LPath = Trim(Left(Target.Value, InStrRev(Target.Value, "\") - 1))

End Function

    Coloque em um módulo usando ALT F11 para entrar no desenvolvedor e inserir o módulo, use: LPath(A1) Se você quiser manter o final "\" então remova o "-1"... se você quiser manter o espaço final " " remova a função de compensação.

    insira a descrição da imagem aqui

    • 2

relate perguntas