Макрос для поиска и отметки

[shafl]

Доброго времени суток. Помогите пожалуйста написать макрос для Excel. Условия такие: В столбце с данными найти ячейки содержащие подстроку X (может быть не в начале ячейки и не в конце), и записать в этой же строке но со смещением столбца на y ячеек значение z. у меня с синтаксисом очень туго

[EducatedFool]

columns(1).find(x).offset(0,y)=z

[shafl]

Sub Макрос9()
'
' Макрос9 Макрос
'
Dim x As String
Dim y As String
x = "1/3"
y = "1/3"

Columns(3).Find(x).Offset(0, 5) = (y)
'
End Sub

пишет Run-time error '91'
значени сток правильно задаю? имеется ввиду найти 1/3 без кавычек

[EducatedFool]

У меня всё работает: http://excelvba.ru/XL_Files/Sample__...__11-20-24.zip

[shafl]

Спасибо, большое. Я не в том столбце искал Ищется только первое значение, а как сделать для всех в столбце, или хотя бы первой 1000?

[EducatedFool]

Sub Макрос9()
    Dim x As String, y As String
    x = "1/3": y = "1/333"
    
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([c1], Range("c" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        If cell Like "*" & x & "*" Then cell.Offset(0, 5) = y
    Next cell
End Sub

http://excelvba.ru/XL_Files/Sample__...__12-23-27.zip

[shafl]

Огромное вам спасибо! Всё работает