將單個數組值打印到單元格的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將返回您所在的單個單元格的值。

這是相當廣泛的，因爲我不確定你的數據是如何設置的，但我希望你覺得這很有用。