Wenn die Zelle eine Teilzeichenfolge enthält, ändern Sie den Zellenwert

Question

Ich habe eine Liste von Hunderten von Unternehmen in einer Spalte.Es gibt Wiederholungsfirmen, die anders eingegeben wurden.(also."Nike" gegen "Nike Inc")

Ich versuche, ein Makro in Excel so zu programmieren, dass es die Spalte durchläuft, um nach "Nike" zu suchen, und wenn es gefunden wird, ersetzt es den Inhalt dieser Zelle durch einen konsistenten Firmennamen (z."Nike, Inc.") Ziel wäre es, die Makrosuche für viele Unternehmen durchzuführen.

Ich freue mich über jede Hilfe!

Answer 1

Hier ist ein Beispiel für nike und ford

generasacodicetagpre.

Erweitern Sie ary () nach Bedarf.

Answer 2

dim configSht as WorkSheet, compArray() as String, x as Integer
set configSht = thisWorkbook.Sheets("Config")'This identifies your config sheet
redim compArray(0)
for x = 1 to Cells(Rows.Count, "A").End(xlUp).Row
   if Cells(x,"A")<>"" then
       compArray(UBound(compArray) = Cells(Rows.Count, "A")

   End IF
   reDim Preserve compArray(UBound(compArray)+1)
Next

Das ist eine sehr grundlegende Idee.dann würden Sie verwenden compArray anstelle von ary in @ Garys Studentenlösung.Das Vergleichsarray würde die Informationen enthalten, die die Zelle nach dem Ausführen des Codes lesen soll.Also, wenn Sie wollen "Nike Inc." für alle Instanzen von "Nike" dann "Nike Inc." wäre in deiner Konfiguration.