Как использовать строку внутри .Range в Excel VBA?

Question

Я хотел бы, чтобы вы помогли мне с чем-то, что я застрял.

По сути, я хочу сделать переменную iRow, найдя ячейку со значением OBRC, ячейка с этим значением извлекается команда find, затем я получил значение из строки и обработал его как строку, манипулирующую строкой, чтобы получить только номер строки в качестве выхода, пока эта часть не стала большой проблемой. Но когда мне нужно использовать эту строковую переменную CellString как часть значения диапазона, она не работает.

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

Function FindCell()

 Dim CellLocation As Range
 Dim CellString As String


    Set CellLocation = Sheets("Sheet1").Range("A1048576").Find("OBRC") ' retrieves the value OBRC + the row.

        CellString = Right(CellLocation.Text, 0) ' Manipulate the intire value OBEC + Row and retrieves only the row.

    With ThisWorkbook.Sheets("Sheet1")
            .Range("A" & CellString).Value = "Teste" 'it concatenate the Column + the row, it should be working but is not


    End With



End Function

Не стесняйтесь давать мне любые советы.

Answer 1

см. Примечания:

Function FindCell()
    Dim CellLocation As Range
    Set CellLocation = Sheets("Sheet1").Range("A:A").Find("OBRC") 'Returns the cell in which OBRC is found

    If Not CellLocation Is Nothing Then
        Dim CellString As Long
        CellString = CellLocation.Row 'Get the Row.

        With ThisWorkbook.Sheets("Sheet1")
            .Range("A" & CellString).Value = "Teste"
        End With
    End If
End Function

Я оставил его как функцию, но если не нужно возвращать значение внешнему источнику, тогда это должно быть Sub()