найдите местоположение столбца из переменной и передайте ".range" "код

Question

Я использую приведенный ниже частичный код, чтобы найти имя заемщика в горизонтальном списке. Как только я найду имя, мне нужно пропустить столбец и иметь возможность ссылаться на этот столбец в range("").value. Так, например, он находит имя в столбце G, затем я могу использовать код range.value и кое-что, как связать его с разными строками, чтобы копировать или делать другие вещи.

Sub Copy_From_Borrower_DBase()
    Dim myVal As String
    Dim sourceRng As Range
    myVal = Sheets("Main").Range("F2").Value ' dropdown list
    Set sourceRng = Worksheets("Borrower Database").Range("5:5").Find( _
            What:=myVal, LookAt:=xlWhole) 'locate column where to copy from
    Sheets("Main").Range("F5").Value = Worksheets("Borrower Database"). _
            Range("??????????").Value 'Borrower Name
End Sub

Answer 1

Чтобы получить столбец из вашего sourceRng, вы можете просто использовать свойство .Column.Лично я бы использовал Cells() вместо Range(), поскольку вы имеете дело с номерами столбцов.

Итак, в вашем случае использования:

Worksheets("Main").Range("F5").Value = Worksheets("Borrower Database"). _
        Cells(Row, sourceRng.Column).Value 'Borrower Name

Где вы бы заменили Rowс соответствующим номером строки.