☰

Zellen ändern ohne Kopieren/Einfügen

tag-icon • tag-icon microsoft-excel formatting
Zellen ändern ohne Kopieren/Einfügen

Stellen Sie sich vor, die Liste wäre viel länger ... Gibt es eine Möglichkeit, die Zellen in A und B durch den entsprechenden Namen/die entsprechende ID aus Spalte C zu ersetzen? „Entsprechender Name“ ist das, was in Spalte C steht (Namen abgleichen).Dies ist das EndergebnisJA, KOPIEREN/EINFÜGEN FUNKTIONIERT, aber wenn das Ganze 5000 Zeichen lang ist und Spalte C nicht in perfekter Reihenfolge ist, dauert es viele Stunden.

Bildbeschreibung hier eingeben

Antwort1

Mit vba können Sie den gesuchten Wert auf diese Weise ersetzen Passen Sie den Bereich an den Punkt an, an dem Ihre Ersatzwerte liegen, und den Bereich der Elemente, die Sie suchen

Sub substituteLookedUp()
Dim myStr As String
Dim matchDbl As Double
Dim Rng As Range
   Set Rng = Range("C1:C10")

   For Each cell In Range("a1:b12")
      If cell <> "" Then
           myStr = Mid(cell, WorksheetFunction.Find(" ", cell) + 1, Len(cell) - WorksheetFunction.Find(" ", cell)) & "_" & Left(cell, WorksheetFunction.Find(" ", cell) - 1) & "*"
           matchDbl = WorksheetFunction.Match(myStr, Rng, 0)
           newStr = Range("C" & matchDbl)
         Else: newStr = ""
       End If
     cell.Value = newStr
   Next

End Sub

verwandte Informationen