Excel宏将单个数组值打印到单元格

Question

我已经找到了这样做的答案，但没有找到类似的情况。我有一组数据，我想放入数组然后打印到另一组单元格。

实施例。公司A，部门A，PriceA      B公司，B部门，PriceB      公司C，部门C，PriceC

依此类推，行数将是动态的。我需要打印每组值并将它们格式化为各种单元格，但因为我不知道行数，所以我确定如何做到这一点。

Answer 1

如果您的数据集每次都在同一区域开始，并且数据之间没有空单元格，您可以始终执行以下操作：

Dim rngData As Range

Set rngData = Range("A2").End(xlDown)

在上面的示例中，我假设您的数据在单元格A2中开始并保留在A列中，数据之间没有空格。这相当于选择单元格A2并按住shift然后按下。它将选择所有单元格。然后，您可以遍历范围内的每个单元格，并使用For ... Each循环执行您需要的任何操作，如：

For Each C in rngData
'Do whatever you want for each cell
Next C

您可以像使用单元格一样使用C.例如，C.Value将返回您所在单个单元格的值。

这是相当广泛的，因为我不确定您的数据是如何设置的，但我希望您觉得这很有用。