Macro do Excel para extrair dados específicos

Question

Eu tenho uma planilha com uma célula que contém todos os aplicativos em um computador. Eu quero uma macro para extrair um aplicativo específico da lista e excluir o resto dos aplicativos e simplesmente exibir o aplicativo que eu quero na mesma ou na próxima célula.

Por exemplo, os dados da célula são assim:

"Microsoft Office Project Professional 2010 - 14.0.6029.1000"; "Security Update for Microsoft Office 2010 (KB2598039) 32-Bit Edition"; "Security Update for Microsoft Office 2010 (KB2553091)"; "Definition update for Microsoft Office 2010 (KB982726) 32-Bit Edition"; "Update for Microsoft Office 2010 (KB2553455) 32-Bit Edition"; "Update for Microsoft Office 2010 (KB2494150)"; "Update for Microsoft Office 2010 (KB2553181) 32-Bit Edition"; "Microsoft Project 2010 Service Pack 1 (SP1)";

Eu gostaria que ele pesquisasse na célula por qualquer versão do "Microsoft Office Project", em seguida, excluísse o restante do texto da célula e exibisse o Microsoft Office Project Professional 2010 - 14.0.6029.1000.

Não sei por onde começar, pois nunca criei uma macro. Alguma idéia de como posso fazer isso?

    

Answer 1

Aqui está uma solução de fórmula. Se o texto estiver em A1 , você poderá inserir o seguinte em B1 :

=MID(A1,FIND("Microsoft Office Project",A1),FIND("""",A1,FIND("Microsoft Office Project",A1))-FIND("Microsoft Office Project",A1))

    

Answer 2

Aqui está outra solução que exibe "não encontrado" se a string de pesquisa não foi encontrada:

=IF(ISNUMBER(FIND("Microsoft Office Project Professional",A1)),MID(A1,FIND("Microsoft Office Project Professional",A1),FIND("""",A1,FIND("Microsoft Office Project Professional",A1)+1)-FIND("Microsoft Office Project Professional",A1)),"not found")