Question

我目前有一个代码可以将日期和时间输出到A列，但我希望它们是分开的（A列中的日期，B列中的时间）。我试图通过录制宏并在excel中执行分隔过程来解决这个问题，但它并没有像我想要的那样工作。

主要是我想知道的是，如果这是可能的，或者我应该尝试替代编码将它们分开开始。提前谢谢！

Sub Macro1()

Dim dTime As Date
Range("A:A").Select
Selection.NumberFormat = "mm/dd/yyyy hh:mm:ss AM/PM"

Range("A1").Select
Set Cell = [A1]

For dTime = "3/01/2013 12:00:00 AM" To "3/02/2013 11:55:00 PM" Step "00:05"
ActiveCell.Value = dTime
ActiveCell.Offset(1, 0).Select

Next dTime

End Sub

Answer 1

您可以使用Format(Expression,[format])格式化值，然后再将其放入单元格中。请参阅下面的更新代码（随意更新您认为合适的格式）

Sub Macro1()

Dim dTime As Date
Dim x As Integer

x = 1

For dTime = "3/01/2013 12:00:00 AM" To "3/02/2013 11:55:00 PM" Step "00:05"
    ' Sets the date in the cell of the first column
    Cells(x,1).Value = Format(dTime, "mm/dd/yyyy")

    ' Sets the time in the cell of the second column
    Cells(x,2).Value = Format(dTime, "hh:mm:ss AM/PM")
    x = x + 1
Next dTime
End Sub

将日期/时间拆分为2列

1 个答案: