将一周数字转换为月份的公式

我正在试图实现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