Excel VBA – Rechercher colonne pour le text dans une string, Copier le text dans les cellules adjacentes vers le bas

Je tente de simplifier une feuille d'Excel avec laquelle je travaille chaque semaine, mon VBA s'améliore, mais ce problème m'a complètement perplexe. J'essaie de créer une macro VBA qui ferait ce qui suit:

1 – Rechercher la colonne B pour le text "Associé", puis, lorsqu'il est trouvé, je veux copyr tout le contenu de la cellule dans une colonne adjacente, en le remplissant, où datatables sont liées …aghh ???

Essentiellement, je veux 1 table avec des lignes qui ont des informations complètes, afin de pouvoir pivoter, etc. Voir les captures d'écran avant et après.

Avant:
Après:

• xlwings émet des écritures sur des cellules dans Excel 2010
• Comment désactiver la notation scientifique dans Excel?
• Si la fonction utilise ISTEXT
• Dessinez un tracé de ligne / dispersion à partir de cellules spécifiques dans un file Excel?
• Filtre avancé sur 2 feuilles. Copier et coller problème

Ce n'est qu'un petit échantillon de données que j'ai avec 3 personnes, mais j'ai près de 100 personnes et je ne peux pas continuer à le faire manuellement car cela me rend plus bon.

Tout conseil ou aide serait grandement apprécié, car je ne sais pas où commencer par ce problème.

Merci

• Impossible d'parsingr la string "N / A" de .XLSX dans Python 2.7 avec des pandas
• Déclaration IF: la cellule IF est vide, laissez vide, sinon affichez 1
• Ignorer les duplicates et créer une nouvelle list de valeurs uniques dans Excel avec décalage
• L'erreur VBA SQL alter table après l'ajout d'une colonne unique
• Accédez à 2016 – Excel Excel lié dans Qry – Obtenez le type de données incompatible lors de l'essai Inégalé

Dim c as range, a for each c in Range(Range("B1"),cells(rows.count,2).End(xlUp)) If c.Value like "Associate:*" then a = c.value else if c.value<>"" then c.offset(0,-1).value=a End If next c