如何在 VBA 中将具有复杂值的单元格拆分为日期和时间？

Question

带复杂值的 VBA 拆分单元格

我正在尝试使用以下值拆分单元格

我想按日期和时间分开。我试图在 for 循环上使用 split，我什至试图将文本宏化为列定界符，但没有任何结果如我所愿。 只要我能得到时间，这就是最重要的。任何帮助，甚至是朝着正确方向的推动，我们都将不胜感激

Answer 1

在 VBA 中，您可以使用 DateValue 和 TimeValue 函数将具有复数值的单元格拆分为日期和时间。这是一个简短的例子：

Sub SplitComplexValues() 将单元格调暗为范围 对于选择中的每个单元格 如果 IsDate(cell.Value) 那么 cell.Offset(0, 1).Value = DateValue(cell.Value) '提取日期 cell.Offset(0, 2).Value = TimeValue(cell.Value) '提取时间 万一 下一个单元格 结束子

在此示例中，代码假定您已选择包含复数值的单元格区域。它遍历选择中的每个单元格并检查该值是否为有效日期。如果是，则使用 DateValue 提取日期并将其放置在右侧一列的单元格中，使用 TimeValue 提取时间并将其放置在右侧两列的单元格中。

您可以根据您的特定要求自定义此代码，例如调整偏移量或将其应用于不同的单元格范围。