Macro di Excel per estrarre dati specifici

0

Ho un foglio di calcolo con una cella che contiene ogni app su un computer. Voglio una macro per estrarre un'applicazione specifica dall'elenco ed eliminare il resto delle app e visualizzare semplicemente l'applicazione che voglio nella stessa cella o nella cella successiva.

Ad esempio i dati della cella si presentano così:

"Microsoft Office Project Professional 2010 - 14.0.6029.1000"; "Aggiornamento di sicurezza per Microsoft Office 2010 (KB2598039) Edizione a 32 bit"; "Aggiornamento della sicurezza per Microsoft Office 2010 (KB2553091)"; "Aggiornamento definizione per Microsoft Office 2010 (KB982726) Edizione a 32 bit"; "Aggiornamento per Microsoft Office 2010 (KB2553455) Edizione a 32 bit"; "Aggiornamento per Microsoft Office 2010 (KB2494150)"; "Aggiornamento per Microsoft Office 2010 (KB2553181) Edizione a 32 bit"; "Microsoft Project 2010 Service Pack 1 (SP1)";

Vorrei cercare nella cella qualsiasi versione di "Microsoft Office Project", quindi eliminare il resto del testo della cella e visualizzare Microsoft Office Project Professional 2010 - 14.0.6029.1000.

Non so da dove iniziare perché non ho mai creato una macro. Qualche idea su come posso farlo?

microsoft-excel macros

— Michael
fonte

1

Ecco una soluzione formula. Se il testo è in A1, puoi inserire quanto segue in B1:

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

— Excellll
fonte

Grazie mille, che funziona bene, basta modificarlo un po '. Molto apprezzato

— Michael

Come potrei modificare la formula per rispondere con uno 0 o qualcos'altro se non trova nulla. Sembra di far scendere il risultato dalla casella sopra se non viene trovato nulla?

— Michael

Dovrebbe generare un errore se non viene trovato nulla. Forse ti sei perso un A1 nella formula quando la aggiusta?

— Excellll

0

Ecco un'altra soluzione che mostra "non trovato" se la stringa di ricerca non è stata trovata:

= IF (ISNUMBER (TROVA ("Microsoft Office Project Professional", A1)), MID (A1, TROVA ("Progetto Microsoft Office Professional ", A1), TROVA (" "" ", A1, TROVA" (Progetto Microsoft Office Professional ", A1) +1) -FIND (" Progetto Microsoft Office Professional ", A1))," non trovato ")

— Tom74
fonte