在每一列中循环一个宏

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 列，但随后出现问题。 我相信这是下一列的起点，每次都应该在第 2 行。