日记首页V1.0


	日记首页 \| 列表 \| 添加日记 \| 管理登陆


	标题：在vba中，换行

在vba中，换行（ALT+回车） Sub yy() &nbsp;&nbsp;&nbsp; Dim i, k&nbsp;&nbsp;&nbsp; For i = 2 To 2 &nbsp;&nbsp;&nbsp; For j = 2 To 2 &nbsp;&nbsp;&nbsp; k = i + 1 &nbsp;&nbsp;&nbsp; t = i + 2 &nbsp;&nbsp;&nbsp; 'Sheet4.Cells(i, k) = Sheet4.Cells(j, 5) &amp; "*" &amp; Sheet4.Cells(t, 6) &nbsp;&nbsp;&nbsp; Cells(i, j) = Mid(Cells(i, j), 1, 2) &amp; Chr(10) &amp; Mid(Cells(i, j), 3) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next j&nbsp; Next i End Sub<hr>Sub text() &nbsp;[b7] = [b5] &amp; vbCrLf &amp; [b6] &nbsp;End Sub<hr>Sub aa() &nbsp;Dim i, a, b, c '定义变量 &nbsp;For i = 1 To Range("A65536").End(xlUp).Row '循环A列所有有数据的区域 &nbsp;c = Cells(i, 1).Value '取得当前单元格的值给c &nbsp;b = Left(c, InStr(c, " ")) '截取单元格中的日期给b &nbsp;a = Right(c, Len(c) - InStr(c, " ")) '截取单元格中的时间给c &nbsp;Cells(i, 1) = b &amp; vbCrLf &amp; a '在日期和时间加上换行符vbcrlf,再写入当前单元格 Next End Sub<hr>Sub test2() &nbsp;For i = 1 To 3 &nbsp;SourceData = Sheet1.Cells(i, 1).Value &nbsp;datlen = Len(SourceData) &nbsp;a = InStr(SourceData, " ") &nbsp;If a &gt; 0 Then &nbsp;Sheet1.Cells(i, 1).Value = Left(SourceData, a - 1) &amp; Chr(10) &amp; Right(SourceData, datlen - a) End If Next i End Sub