Excel VBA-循環計算大於/小於特定值的單元格值

Question

我目前正在處理大量合同清單。 每個列表都在每個季度的單獨工作表中，並且需要保持這種狀態。 例如：2007_Quarter1， 2007_Quarter2 ，等我有10年的數據，因此40個季度報告工作表。

現在，我需要編寫一個vba例程，以指定的順序執行以下操作：

1. 在每個季度報告工作表中，遍歷包含合同價值的列； 然后
2. 計算0到10,000之間的所有值； 然后

3. 計算10,001和25,000之間的所有值； 等等

4. 然后，當該范圍內沒有更多的合同價值時（每個工作表之間都會有所不同），請轉到下一個工作表並重復該過程。

所有結果都應在表的工作表中返回（我們稱其為Worksheets（“ Report”）），在表中，行用於值間隔（例如0到$ 10,000），列用於季度（例如2007 Q1、2007 Q2等）。 。

我的問題的一個特定方面是，出於實際原因，我寧願在另一個工作表（“變量”）中包含的表中設置控制間隔的最小值和最大值，例如，范圍C4向下的最小值，范圍D4向下的所有最大值。

對於每個合同價值，“如果”條件應類似於：

If ContractVal > Worksheets("Variables").Range("C4").Value And 
If ContractVal < Worksheets("Variables").Range("D4").Value Then ...

到目前為止，我還沒有成功進行有效的編碼。 我懷疑某些循環會奏效，但我找不到實現它的方法。 循環將執行以下操作：

在2007_Quarter1中ws：對於從A4到末尾的每個單元，計數包含在Range（“ C4”）。Value和Range（“ D4”）。Value之間的值

然后，對從A4到末尾的每個單元格，計數包含在Range（“ C5”）。Value和Range（“ D5”）。Value之間的值。

...，依此類推，然后對2007_Quarter2、2007_Quarter3等重復。

我需要營救！ 提前致謝！

Answer 1

如果可以手動准備生成的矩陣（行間隔和列四分之一間隔），則可以編寫一個宏，該宏讀取正確的文件並為矩陣中的每個單元計數正確范圍內的合約。

如果要自動構建矩陣，則應告訴宏年份范圍。 然后，您可以編寫一個讀取范圍的循環，並為每個范圍編寫一個循環以正確的順序讀取每個文件。