VBA Excel从日期获取日期

我有以下VBA代码生成日期列表，我想打印每个日期，以日期格式打印日期，即2002年10月1日为星期一：

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”），但我无法正确设置格式

有人能提出这个问题的解决方案吗？

我发现，从中可以设置单元格的格式。我将原始帖子中提到的行更改为：

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

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

谢谢你的回答，我从中发现你可以设置单元格的格式。我将原帖子中提到的行改为：

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

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

---

感谢您回答

A1和A2中有什么内容？在您的示例中，您将C1固定为打印日期。您是否尝试过格式化（单元格，“dd/MM/yyyyy”）？回答如下，感谢您花时间研究这个问题，我决定回答它A1和A2中有什么内容？在您的示例中，您将C1固定为打印日期。您尝试过格式化（单元格）吗dd/MM/yyyyy”）？回答如下，感谢您抽出时间查看问题，我决心回答