点到单元格，输入：

=TEXT(TODAY(),"yyyy年mm月dd日")

得到：

2026年01月03日

用VBA操作A1-A10填充：

Sub FillSameDateToA1A10()
    ' 定义变量存储格式化后的当前日期
    Dim strFullDate As String
    ' 定义循环计数器（用于遍历单元格行号）
    Dim i As Integer
    
    ' 步骤1：获取格式化后的当前日期（仅计算1次，提升效率）
    strFullDate = Format(Date, "yyyy年mm月dd日")
    
    ' 步骤2：For循环遍历A1到A10（行号从1到10，列固定为A列）
    For i = 1 To 10
        ' 给第i行、A列（列号1）的单元格赋值
        Range("A" & i).Value = strFullDate
        ' 可选：简化写法（直接指定单元格区域）
        ' Cells(i, 1).Value = strFullDate
    Next i
    
    ' 调试输出：提示填充完成
    MsgBox "A1到A10已填充当前日期，完成！", vbInformation
End Sub