在每一列中循環一個宏

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 行。