Установить значение ячейки в соответствующей строке в именованном диапазоне

Question

Я назвал диапазон $ A: $ A Stored_Numbers и диапазон $ B: $ B Corrected_Numbers .

Stored_Numbers - список телефонных номеров и Corrected_Numbers пусто (для начала).

Я хочу go просмотреть список телефонных номеров, ввести код для текущего номера телефона и установить результат в соответствующей ячейке в Corrected_Numbers .

Как мне установить значение соответствующей ячейки в Corrected_Numbers ?

Sub Correct_Phone_Number()

    ' Declare variable storedNumber
    Dim storedNumber As String

    ' Declare variable correctedNumber
    Dim correctedNumber As String

    ' Select cell A1, *first line of data*.
    Range("Stored_Numbers")(1, 1).Select

    ' Set Do loop to stop when an empty cell is reached.
    Do Until IsEmpty(ActiveCell)

        ' Set variable storedNumber
        storedNumber = ActiveCell

        'Run some code.....

        ' Set variable correctedNumber
        correctedNumber = result

        ' Step down 1 row from present location.
        ActiveCell.Offset(1, 0).Select

    Loop

End Sub

Answer 1

ActiveCell.Offset(0, 1).Value = correctedNumber сделал свое дело!

Sub Correct_Phone_Number()

    ' Declare variable storedNumber
    Dim storedNumber As String

    ' Declare variable correctedNumber
    Dim correctedNumber As String

    ' Select cell A1, *first line of data*.
    Range("Stored_Numbers")(1, 1).Select

    ' Set Do loop to stop when an empty cell is reached.
    Do Until IsEmpty(ActiveCell)

        ' Set variable storedNumber
        storedNumber = ActiveCell

        ' Set variable correctedNumber
        correctedNumber = storedNumber


        ActiveCell.Offset(0, 1).Value = correctedNumber

        ' Step down 1 row from present location.
        ActiveCell.Offset(1, 0).Select

    Loop

End Sub