Как передать значение ячейки в переменную

Question

Данные моего листа Excel:

Я хочу передать значения выделенных желтых данных в мой код ниже

Мой код

DB connectivity details. 
      DBHost = B1
      DBPort = B2
      DBsid =  B3
      DBuid =  B4
      DBpwd =  B5

Answer 1

Я чувствую, что не понял вашего вопроса. Поэтому есть 2 варианта ответа

Первый, который будет самым базовым

Sub Tryme()

Dim DBHost As String
Dim DBPortAs String
Dim DBsid As String
Dim DBuid As String
Dim DBpwd As String

 DBHost = Range("B1").Value
 DBPort = Range("B2").Value
 DBsid =  Range("B3").Value
 DBuid =  Range("B4").Value
 DBpwd =  Range("B5").Value

End Sub

И Второй, который будет использоватьмассив

Sub Tryme()
    lastrow = Range("A1").End(xlDown).Row
    Dim MyArray()
    ReDim MyArray(lastrow - 1, 2)
For i = 0 To lastrow - 1
    MyArray(i, 0) = Range("A" & i + 1)
    MyArray(i, 1) = Range("B" & i + 1)
Next
End Sub

Выход Массива будет:

Так, например:

debug.print MyArray(0,0) даст DBHost

debug.print MyArray(0,1) даст "h ## 123demo"

И так далее РЕДАКТИРОВАТЬ на основе комментария @PeH:

Sub test()

Dim MyArray() As Variant

lastrow = Range("A1").End(xlDown).Row
MyArray = Range("A1", "B" & lastrow).Value


End Sub