excel vba可以根据单元格值创建变量吗？

Question

Excel VBA中是否可以根据单元格值创建变量（或数组中的索引）？我的意思是“在飞行中”，因为单元格中的值可以改变。

例如，如果列A看起来像

item1
item1
item1
item2
item2

（我在A栏中粘贴了不同的数据，因此项目名称及其名称可以更改）。

我可以用

提取唯一值

Set dU1 = CreateObject("Scripting.Dictionary")
lrU = Cells(Rows.Count, 1).End(xlUp).Row
cU1 = Range("A4:A" & lrU)
For iU1 = 1 To UBound(cU1, 1)
    dU1(cU1(iU1, 1)) = 1
Next iU1

现在dU1有两个键：item1和item2。

我现在要做的是创建变量VarItem1和VarItem2（或多维数组：第一个维度是表示变量的数字）。 这可以在VBA中完成吗？在php中，您可以从数据库中检索数据并根据该数据创建数组：

$result = $link->query("SELECT A,B FROM mytable");
if(mysqli_num_rows($result)>0){ 
    while ($row = $result->fetch_row()) {
        $_SESSION[$row[0]][] = ($row[1]);
    }
 }