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