excel - 有没有办法在 excel vba 代码中获取列的迭代？

Question

我想在一年中的每个星期为多张纸继续这种模式 52 列。所有工作表都已排序并具有相同的格式，因此我可以通过激活工作表来激活宏。或者可能在摘要选项卡中放置一个按钮来对批处理进行排序。
这是我到目前为止的代码:我想为 52 行重复这两个集合，而不为每列构建单独的行。
子宏1

Dim myC As Range
Set myC = ActiveCell

ActiveSheet.Range("C77:BB77").Select

    
Range("C77").Formula = "=sumcolouredCells($B$54,C49:C76)"
Range("D77").Formula = "=sumcolouredCells($B$54,D49:D76)"
Range("E77").Formula = "=sumcolouredCells($B$54,E49:E76)"
Range("F77").Formula = "=sumcolouredCells($B$54,F49:F76)"
Range("G77").Formula = "=sumcolouredCells($B$54,G49:G76)"

ActiveSheet.Range("C78:BB78").Select

Range("C78").Formula = "=sumcolouredCells($B$55,C49:C76)"

myC.Select
   

谢谢您的帮助。

Answer 1

由于公式是相对的，您可以一次将公式应用于所有列:

Range("C77").Resize(1, 52).Formula = "=sumcolouredCells($B$54,C49:C76)"

结果: