Excel VBA-调整为日期格式

Question

我在代码中有一行：

.Range("D2").Resize(UBound(vef, 1), 1) = vef

vef是具有数据的数组。 我可以编辑此行，以便它以日期格式vef dd.mm.yyyy hh:mm:ss粘贴vef

Answer 1

那应该很容易。 您要做的就是在相同范围内工作并更改单元格的数字格式。 请注意：粘贴的值没有改变（并且数组中的值应该是日期）。 Excel应用格式，以便更改显示内容，但不会丢失基础信息。

如果您的数组中充满了字符串，则需要先将它们转换为Date。 Excel可以隐式执行此操作（例如，尽管原始值是日期，它也可以自动格式化它们），但最好进行显式转换。

对于您的代码，请使用以下代码：

With .Range("D2").Resize(UBound(vef, 1), 1)
    .Value = vef
    .Numberformat = "dd.mm.yyyy hh:mm:ss"
End With

最后，我只指出您的Ubound(vef, 1)仅在您的数组基于1时才有效。 如果基于0，则调整大小的范围将偏离1。可用于查找数组中维的长度的公式为：

Length = (Ubound(Array, DimensionNumber) - LBound(Array, DimensionNumber)) + 1

因此，在您的情况下：

Length = (Ubound(vef, 1) - LBound(vef, 1)) + 1

祝好运！