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

Question

我已经搜索了一个答案，但未找到类似的情况。我有一组数据，我想将其放入数组中，然后将其打印到另一组单元格中。

Ex。公司A，部门A，价格A 公司B，部门B，价格B 公司C，部门C，价格C

等等，行数将是动态的。我需要打印每组值并将它们格式化为各种单元格，但由于我不知道行数，所以我确定如何执行此操作。

Answer 1

如果您的数据的集合在同一区域内每个时间开始，有数据之间没有空白单元格，你总是可以这样做：

Dim rngData As Range 

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

在上面的例子中，我假设你的数据开始在单元格A2中并保留在列A中，数据之间没有空格。这相当于选择单元格A2并按住Shift键然后按下。它会选择所有的单元格。然后，您可以通过在你的范围内的每个细胞循环，做任何你需要使用For ...每个循环，如：

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

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

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