замена данных через макрос

[ALEKS2008]

у меня вопрос по поводу замены данных. Действия: через замену меняю ххх/ на данные с ячейки D . Написал макрос. Когда меняю данные в ячейке D , макрос этого не видит

[EugeneS]

можно, например, так

Sub test()
[f:f].Copy [g:g]: ActiveSheet.Columns("g").Replace What:="ххх", Replacement:=[d1], SearchOrder:=xlByRows, MatchCase:=True
End Sub

или так

Sub ReplaceXXX()
Dim a(), i as Integer
With ActiveSheet: a = Range([f1], Cells(Rows.Count, "F").End(xlUp)).Value
For i = 1 To UBound(a): a(i, 1) = [d1].Value & Mid(a(i, 1), InStr(1, a(i, 1), "/"), Len(a(i, 1))): Next
Range([a45], Cells(UBound(a) + 44, "a")) = a: End With
End Sub

Вот Вы о чем, невнимательно прочел информацию в файле, измените значение ячейки D1, см. вложение

[ALEKS2008]

всё разобрался, БОЛЬШОЕ СПАСИБО !!!