VBE如何使用WEEKNUM函數的Filldown

Question

我希望單元格E2從單元格D2拉出WEEKNUM，然后重復我的數據集的長度。

Sub WeekNumTest()
Range("E2").Select
ActiveCell.FormulaR1C1 = "=WEEKNUM(RC[-1])"
Range("E2").Select
Selection.FillDown
End Sub

周期正在為細胞E2正確拉動，但該公式不會繼續用於我的其余數據。

Answer 1

使用變量並查找范圍的范圍。

然后立即設置所有公式。

Sub WeekNumTest()
Dim rng As Range
Dim ws As Worksheet

Set ws = ActiveSheet

Set rng = ws.Range(ws.Cells(2, 5), ws.Cells(ws.Cells(ws.Rows.Count, 4).End(xlUp).Row, 5))

Rng.FormulaR1C1 = "=WEEKNUM(RC[-1])"

End Sub