vba 如何实现单元格内换行

假设你的数据在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

举个例子，氏兄假设皮皮你要转三行的数据，代码如下：
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