Изменение ячеек без копирования/вставки

Question

Представьте, что список намного длиннее... Есть ли способ заменить ячейки в A и B соответствующим именем/ID из столбца C? «Соответствующее имя» — это то, что находится в столбце C (соответствующие имена).Это окончательный результатДА, КОПИРОВАНИЕ/ВСТАВКА РАБОТАЕТ, но когда длина всего текста составляет 5000 символов, а столбец C не в идеальном порядке, на это уходит много часов.

Answer 1

Используя vba, вы можете подставить искомое значение следующим образом. Отрегулируйте диапазон, чтобы указать, где находятся ваши подставляемые значения, и диапазон искомых элементов.

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

Конец субтитра