mlsb.net
当前位置:首页 >> vBA 回车换行 >>

vBA 回车换行

用chr(10)或chr(13) 一个是回车符一个是换行符 用法:在要换行的两段文字中间用 & chr(10) & 就行了。

如果是语句可以直接在要换行的位加一个空格一个下划: Dim MyPath As String, MyName As String, _ tmpPath As String 如果是字符串可以加以加一个空格一个&和一个空格加一个下划线: x = "ABCDEFG" & _ "HIJKLMNO"

假设你的数据在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, " ")) '截取单...

chr(13)和chr(10)一起使用就能换行了,例如: cha = "1" & Chr(13) & Chr(10) & "2" & Chr(13) & Chr(10) & "3"

chr(10) 和chr(13)分别转换为换行符和回车符。 还有另外的写法: vbcrlf 和 vbnewline

Sub chr10() Dim iStr As String Dim iSpace As String With Range("A1") iStr = Len(.Text) iSpace = Len(Replace(.Text, Chr(10), "")) End With MsgBox "A1单元格中共" & iStr - iSpace & "个换行符"End Sub

Excel编辑单元格时,按下Alt+Enter,可以在单元格内换行 在VBA中,可以使用vbCrLf,表示换行符,即“Chr(13) & Chr(10)

用replace就行,换行符是chr(10)

sheet1.cells(2,1) = "所以运营部本月成本为" & sheet1.cells(2,2) & chr(10) & _ "客服部本月成本为" & sheet1.cells(2,3) & chr(10) & _ "工程部本月成本为" & sheet1.cells(2,4) sheet1根据实际表格名称修改。chr(10)就是换行符。在一些地方...

chr(10)是换行符,与这个字符对比就行,如: if mid(s,1,1)=chr(10) then …………

网站首页 | 网站地图
All rights reserved Powered by www.mlsb.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com