VBA Excel НАЙТИ формула ИССЕ

Question

Я пытаюсь использовать формулу FIND для поиска позиции первого символа @ из текста в моей ячейке A1 как: FIND("@";A1), используя следующий код:

LR = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To LR
    cel = "A" & i
    Range("Q" & i).Formula = "=FIND(" & "@" & "," & cel & ")"

Next i

Любая помощь в решении проблемы моего кода высоко ценится

Заранее спасибо

Answer 1

Вы можете использовать функцию Instr () для прямой записи искомой позиции символа:

For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    Range("Q" & i).Value = Instr(Range("A" & i).Value2, "@")
Next