循环通过每一列的宏

Question

我正在尝试创建一个宏，该宏将在每一列（直到特定的列“ X”）上执行一个过程。

下面是我录制的宏，然后我尝试粘贴一些其他代码以获得所需的结果。

Sub ColumnFill2()
   Range(Selection, Selection.End(xlDown)).Select
   Selection.SpecialCells(xlCellTypeVisible).Select
   Selection.FormulaR1C1 = "=IF(INDIRECT(ADDRESS(ROW()-1,COLUMN()))=0,"""",INDIRECT(ADDRESS(ROW()-1,COLUMN())))"

   Dim lngCol As Long
   Dim X As Long
   lngCol = ActiveCell.Column + 1

   For X = 1 To 57
      Cells(X + 1, lngCol) = X
   Next X
End Sub

我希望在每个空行上使用包含的公式来格式化每一列（电子表格已小计）。当前，它在列1上有效，但是随后出现问题。我认为这是下一列的起点，每次应在第二行。