vba 单元格自动换行问题

发布网友发布时间：2022-04-22 11:26

共3个回答

热心网友时间：2023-06-30 10:07

先找到换行符的ascii码一般是10 你自己试一下

这样就可以用split来将句子分隔成一个字符串数组

然后在写入单元格的代码里用一个循环依次写入

假定我的句子存在a1 现在要从A2往下换行写入代码如下

Public Sub asd()

st = Cells(1, 1)

a = Split(st, Chr(10))

For i = 0 To UBound(a)

Cells(i + 2, 1) = a(i)

End Sub

效果如下图

热心网友时间：2023-06-30 10:07

试试array()=split(string,chr(10))
然后将数组array中的数据逐个填入你要求的单元格中

热心网友时间：2023-06-30 10:08

你可以自己录制个宏来看下代码……

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com