vba 如何实现单元格内换行

Question

单元格里都是日期

比如：2013/04/04 08:08:08
我想把日期和时间变为两行（同一单元格内），比如
2013/04/04

08:08:08

怎么弄？

Answer 1

假设你的数据在A列,从A1开始.我们可以这么些VBA

Sub aa()
Dim i, a, b, c '定义变量
For i = 1 To Range("A65536").End(xlUp).Row '循环A列所有有数据的区域
c = Cells(i, 1).Value '取得当前单元格的值给c
b = Left(c, InStr(c, " ")) '截取单元格中的日期给b
a = Right(c, Len(c) - InStr(c, " ")) '截取单元格中的时间给c
Cells(i, 1) = b & vbCrLf & a '在日期和时间加上换行符vbcrlf,再写入当前单元格
Next
End Sub

Answer 2

举个例子，假设你要转三行的数据，代码如下：
sub test()
for i=1 to 3
sourceData = sheet1.cells(i,1).value
datlen = len(sourceData)
a = instr(sourceData, " ")
if a>0 then
sheet1.cells(i,1).value = left(sourceData, a-1) & chr(10) & right(sourceData, datlen-a)
end if
next i
end sub