Question

我对VBA很新，请在这里忍受我。

我想为一组变量分配一组范围的值，即。运行简短的代码来简化以下

Dim Sample 1 as string
Sample1 = activeworksheet.range("C17").value

Dim Sample 2 as string
Sample2 = activeworksheet.range("C18").value}

等等

在excelfunctions.net教程之后，我知道我可以将声明缩短为

Dim Sample(1 to 20) as a string

但教程将其删除（因为它是一个关于名称的教程），建议我按如下方式填充它

sample(1)=activesheet.range("C7").value
sample(2)=activesheet.range("C7").value

等等

我发现下面的讨论是在正确的轨道上回答我的任务，但我无法应用它来解决我的问题。（Excel VBA Array Ranges for a loop）

作为后续注释，我最终会尝试为这些变量赋值，以便在以下过程中使用，而不是每次都声明和分配它们。

谢谢！

Answer 1

尝试这样的事情：

Sub test()
Dim sampleArr(1 To 20) As String
Dim i As Integer
Dim rng As Range, cel As Range

i = 1
Set rng = Range("C1:C20") 

For Each cel In rng
    sampleArr(i) = cel.Value
    i = i + 1
Next cel
For i = LBound(sampleArr) To UBound(sampleArr)
    Debug.Print sampleArr(i)
Next i

另外，如果您知道要放入数组的范围，只需将数组设置为该范围：

Sub test()
Dim sampleArr() As Variant
Dim i As Integer
Dim rng As Range, cel As Range

i = 1
Set rng = Range("C1:C20") ' Note, this creates a 2 Dimensional array

sampleArr = rng ' Right here, this sets the values in the range to this array.

For i = LBound(sampleArr) To UBound(sampleArr)
    Debug.Print sampleArr(i, 1) ' you need the ",1" since this is 2D.
Next i

End Sub

Answer 2

你应该：

定义要检索数据的范围

对于该范围的每个单元格，检索您的数据

dim tab() As string, cell as range, i as integer
i = 0
redim tab(0)
for each cell in ActiveWorksheet.Range("C1:C20")
    tab(i) = cell
    i = i + 1
    redim preserve tab(i)
next

编辑：我缩进代码以正确显示

Answer 3

上述的其他方法只能使用：

Arr = ActiveWorksheet.Range("C1:C20").Value

然后您可以直接使用：

Arr(i,1)，其中i是C1到C20的范围！

使用VBA将单元格值范围分配给变量数组

3 个答案: