vba添加string和date时缺less0

我想发布一个string+date（列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列作为date格式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中的date值在内部存储为一个数字，因此单元格的格式不会真正影响VBA如何解释该值。 要以所需格式获取date，请尝试使用Format()函数，如下所示：

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

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

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