vba添加字符串和日期时缺少0

Question

我正在尝试将字符串+日期（列B +列C）发布到单元格。

B       | C
2600 HK | 09/29/2014

我尝试使用此代码

'Merge Column B with Column C

Range("A1") = Range("B1") & " " & Range("C1")

但结果将变为2600 HK 9/29/2014而不是2600 HK 09/29/2014

我已将列C格式化为日期格式mm / dd / yyyy

如何添加0回来？

Answer 1

一种方法是：

Range("A1") = Range("B1") & " " & Format(Range("C1").Value, "mm\/dd\/yyyy")

你必须逃避/

有关详细信息，请参阅http://msdn.microsoft.com/en-us/library/office/gg251755.aspx

Answer 2

excel中的日期值在内部存储为数字，因此单元格的格式并不会真正影响VBA解释该值的方式。要以所需格式获取日期，请尝试使用Format()功能，如下所示：

Range("A1") = Range("B1") & " " & Format(Range("C1"), "mm/dd/yyyy")

或者你可以使用Excel的TEXT函数作为单元格A1中公式的一部分，效果相同，如下所示：

=B2&" "&TEXT(C2, "mm/dd/yyyy")