Как найти и заменить несколько значений в выбранных ячейках?

Question

Я хочу выполнить поиск и замену нескольких значений в диапазоне Excel со значениями из 2 столбцов: A с исходной строкой; B со строкой замены. Я уже нашел макрос, который несколько работает (спасибо nixda), но не может обрабатывать штрихи между некоторыми более длинными значениями в исходной строке.

В идеале я хотел бы иметь возможность запустить его только на выбранном диапазоне. Дополнительный бонус был бы, если бы я мог также выбрать диапазон поиска.

Ниже приведены примерные значения столбцов исходного и замещающего значений:

Столбец исходных значений:

T1-D7-F2-F3-    
T1-D7-F2-F3-C33    
U4 U5 Q2 Q4    
U3-Q7.U1    
R42-43-22-23-

Столбец значений замены:

T1,D7,F2,F3    
T1,D7,F2,F3,C33    
U4,U5,Q2,Q4    
U3,Q7,U1    
R42,R43,R22,R23

Обновление в ответ на ответ ученика Гэри

Значения на вкладке "данные", столбец A:

1000PF CAP
4 SCREWS
D21 D22 - 709
D4-U3-RV3-Q2-U3
D7 - 00004224
D7 - 0004224
D7 - 004224
D7-F2-C33-F3-U6
D7-F3-J1
END PLATE
END PLATES
F2 F3 - 219
F2-F3-T1
Q11-Q3-J2-J9-
Q2 Q10 U12
Q2 Q3 Q10 Q11
Q2 Q3 Q11 Q10
Q2- Q4- U4- U5
Q2-Q5-Q8-Q10
Q3-Q11.R95
Q5-C10-C35
Q5-C19

Значения на вкладке "tabl", столбец A будут такими же, как указано выше

Значения на вкладке "tabl", столбец B (замещающие значения):

1000PF_CAP
4SCREWS
D21,D22,000709
D4,U3,RV3,Q2,U3
D7,004224
D7,004224
D7,004224
D7,F2,C33,F3,U6
D7,F3,J1
END_PLATE(S)
END_PLATE(S)
F2,F3,000219
F2,F3,T1
Q11,Q3,J2,J9
Q2,Q10,U12
Q2,Q3,Q10,Q11
Q2,Q3,Q11,Q10
Q2,Q4,U4,U5
Q2-Q5-Q8-Q10
Q3,Q11,R95
Q5,C10,C35
Q5,C19

После запуска макроса я получаю следующие результаты вместо ожидаемых:

1000PF_CAP CAP
4SCREW(S)S
D21,D22 - 709
D4,U3,RV3-Q2-U3
D700004224
D70004224
D7004224
D7,F2-C33-F3-U6
D7,F3-J1
END_PLATE(S)
END_PLATE(S)S
F2,F3 - 219
F2,F3-T1
Q11-Q3-J2,J9-
Q2,Q10 U12
Q2 Q3 Q10,Q11
Q2,Q3,Q11 Q10
Q2,Q4- U4,U5
Q2-Q5Q8-Q10
Q3,Q11.R95
Q5C10,C35
Q5C19

Есть идеи?

---

редактировать

После запуска этого макроса для замены значений у меня возникли проблемы со следующими значениями:

Левый столбец ниже = столбцы поиска A и B имеют одинаковые значения (не должны изменяться, за исключением того, что R 3 должен стать R3).

Правый столбец ниже = Результат после запуска макроса.

Q?  Q?
Q1  Q?
Q2  Q?
Q3  Q?
Q4  Q?
Q5  Q?
Q6  Q?
Q7  Q?
Q8  Q?
Q9  Q?
QR? QR?
R 3 R?
R?  R?
R0  R?
R1  R?
R2  R?
R3  R?
R4  R?
R5  R?
R6  R?
R7  R?
R8  R?
R9  R?
RE  R?
RV  R?

Answer 1

Вот небольшой пример макроса. Таблица перевода находится на вкладке под названием "tabl", а редактируемые данные - на вкладке "data":

Sub ChangeValues()
    Dim N As Long, L As Long
    Dim rLook As Range
    Sheets("tabl").Select
    N = Cells(Rows.Count, "A").End(xlUp).Row
    aryA = Range("A1:A" & N)
    aryB = Range("B1:B" & N)
    Sheets("data").Select
    Set rLook = Application.InputBox(Prompt:="Select replacement range", Type:=8)
    For L = 1 To N
        rLook.Replace aryA(L, 1), aryB(L, 1)
    Next L
End Sub

Answer 2

Если вы установите дополнение RegEx Find/Replace, вы можете использовать следующие регулярные выражения, чтобы выполнить это, и я проверил это. Оно работает.

Find:           \s*[-.]\s*
Replacement:    ,
Find:           \s+(?!$)
Replacement:    _