excel - 将值输入数组

Question

我正在寻找一种方法将 2 列中的所有值“转储”到 2 个单独的数组中。目前，这些列每列包含 12k+ 值(每列具有相同的数据量)。

我遇到了一个建议，我可以使用 Range 函数来进行转储(如下所示):

With ActiveSheet
    eLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

aRow = 2

cBIN = Range(Cells(2, 26), Cells(eLastRow, 26))
dDealer = Range(Cells(2, 4), Cells(eLastRow, 4))

While aRow <= eLastRow

    Cells(aRow, 35) = cBIN(aRow - 2) & " - " & dDealer(aRow - 2)

    aRow = aRow + 1

Wend

但是，当我尝试使用 While 函数中的代码时，没有生成任何内容。

编辑:有什么建议我可以如何将值放入数组中，而不必将每个值单独添加到每个数组中？

Answer 1

您可以简单地使用公式，因为源数据位于工作表上，然后用值替换公式，这比循环内处理要快得多:

Sub Test()

    Dim i As Long

    With ActiveSheet
        i = .Cells(.Rows.Count, "A").End(xlUp).Row
        With .Range(.Cells(2, 35), .Cells(i, 35))
            .FormulaR1C1 = "=RC[-9]&"" - ""&RC[-31]"
            .Value = .Value
        End With
    End With

End Sub