如何將公式應用於僅可見的單元格宏

Question

我有一個電子表格，我從第 1 行第 W 列進行過濾，然后將公式應用於下一個可見單元格。 下一個可見單元格每周都不同。 一周可能是 1160，下一周可能是 1165，等等。

我如何編寫宏代碼，無論它是哪一行，都將在下一個可見單元格上拾取。 它可能是一些簡單的東西，說“從 E1 開始並下拉到 E 列中的下一個可見單元格”，因為那樣我不介意使用活動單元格公式輸入。

有人有什么想法嗎？ 謝謝你。

這是我所擁有的：

 With Sheets("Data").Range.SpecialCells(xlCellTypeVisible)("W1")
      .Value = "My Formula"
 End With

Answer 1

如果我正確理解問題：

With Sheets("Data").Range("W:W").SpecialCells(xlCellTypeVisible).Cells(2)
    .Formula = "My Formula"
End With