将星期几转换为月数的公式

Question

我正在尝试实现将星期几转换为月份名的VBA代码。

我有一张工作表，其中“ A”列包含从1到52的星期数。 第1周从A3列开始。 我想要打印对应的星期名称的月份名称。

我尝试过这样的公式

=MONTH(DATE(YEAR(NOW()),1,1)+(B1*7))

我尝试公式fisrt的原因是想出主意，然后将公式转换为VBA。

我只是将公式打印在单元格中。 谁能帮我这个？

Answer 1

干得好：

dim i as long
dim n as long

n=sheets("Sheet1").cells(Rows.count,1).end(xlup).row

for i = 1 to n

cells(i,3).formula = "=MONTH(DATE(YEAR(NOW()),1,1)+(RC[-1]*7))"

next i