如何将单元格值传递给变量

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