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