VBA Excel从date开始

我有下面的VBA代码，生成一个date列表，我想要的是当我打印出每一个date，打印date格式的date即01/01/2002将是星期一：

Sub loopDates() Dim Stdt As Date Dim Edt As Date Dim n As Date Dim c As Long Stdt = Range("A1") Edt = Range("A2") For n = Stdt To Edt c = c + 1 Range("C" & c) = n Range("B" & c).Formula = "=TEXT(C1,""dddd"")" Next n End Sub 

我想改变这一行：

 Range("B" & c).Formula = "=TEXT(C1,""dddd"")" 

所以这个例子中的C1每次循环迭代都会改变，所以它会随着值c而改变，例如它看起来像= TEXT（C“＆c＆，”dddd“），但是我无法获得正确的格式，

任何人都可以提出解决这个问题？

Answer 1

我设法从这里find你可以设置单元格的格式。 我把原帖中提到的那一行改为：

 Range("B" & c) = Format(n, "dddd") 

这将从C的列和索引中获取date，并以正确的格式将date打印到B的列和索引

谢谢回答