VBE如何使用WEEKNUM函数的Filldown

我希望单元格E2从单元格D2中取出WEEKNUM，然后重复我的数据集的长度。

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

weeknum正在为单元格E2拉动，但公式不会继续我的其余数据。

Answer 1

使用variables并查找范围的范围。

然后一次设置所有的公式。

 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