☰

日期格式为 ddmmyyyy 中的字符串

tag-icon • tag-icon microsoft-excel vba date
日期格式为 ddmmyyyy 中的字符串

因此，我正在处理现有的工作簿，因此很遗憾我无法更改布局。在第一个工作表中，一个函数会自动以“yyyymmdd”格式返回今天的日期。在另一张工作表中，需要将该日期填写到 8 个不同的单元格中（例如在 pdf 等官方文档中）。因此，例如，20000101 需要为 |0|1|0|1|2|0|0|0|，每个条代表一个新单元格。

截屏

这是文件的截图。这是一份官方文件，所以很遗憾我无法更改布局。

答案1

以下是一些典型的代码：

Sub fillinthedata()
    Dim  sh As Worksheet, s As String
    Set sh = Sheets("another sheet")

    s = "20201225"
    s2 = Right(s, 2) & Mid(s, 5, 2) & Left(s, 4)

    For i = 1 To 8
        sh.Range("A1").Offset(0, i - 1) = Mid(s2, i, 1)
    Next i

End Sub

相关内容