VBA - найдите текст и замените его соседним столбцом и повторите для каждой ячейки.

Question

Задайте еще один вопрос по циклу VBA.

Не удалось выяснить, как получить желаемый результат с некоторыми различными вопросами/ответами цикла, которые я видел здесь.

У меня есть две колонки. В столбце A содержится текст, который будет использоваться для замены определенной части URL-адреса в столбце B (примерно так: http://www.exampleurlwithTEXTIWANTTOREPLACE.com).

я могу управлять одной замены клеток:

.Range("B1").Replace "TEXTIWANTTOREPLACE", "TEXT2" + .Range("A1") 

Но мне нужно Переберите его ... A1 должен заменить текст B1. A2 необходимо заменить текст в B2. И так далее, пока петля не достигнет пустой ячейки в колонке А.

Любая помощь очень ценится!

Answer 1

Определите диапазон представлять вашу колонку, а переменная диапазон представлять отдельную ячейку, а затем перебрать ячейки в пределах этого диапазона столбца, и сделать замену:

Dim colRange as Range 
Dim cl as Range 
Set colRange = Range("B1:B100") '# Modify as needed 
For each cl in colRange.Cells 
    cl.Replace "TEXTIWANTTOREPLACE", "TEXT2" & cl.Offset(0,-1).Value, xlPart 
Next 

Answer 2

Если вы заинтересованы в без зацикливания вариант, вы можете использовать:

Sub test() 
    Sheet1.Range("B2:B25").Formula = "=SUBSTITUTE(A2,""A"",""B"")" 
    Sheet1.Range("B2:B25").Value = Sheet1.Range("B2:B25").Value 
End Sub 

Заменить А2 с клеткой вы хотите начать замену, изменить «» А «» с текстом, который вы ищете, «» B «» с текстом, который вы хотите заменить. Не забудьте оставить двойные кавычки вокруг вашей находки и заменить текст. Отрегулируйте диапазон в соответствии с вашей ситуацией. Должно быть немного быстрее, чем опция циклирования (в зависимости от того, насколько большой диапазон).