分行符前加

kings12333 · 发表于 2019-11-8 14:20

A1单元格内容的每行文本前加 ,试用VBCRLF分离好行分不开啊……不知道怎么弄了，烦请帮手写段VBA

55.rar (8.35 KB, 下载次数: 7)

kuangben8 · 发表于 2019-11-8 14:39

函数法试试

YZC51 · 发表于 2019-11-8 14:42

请参考
Private Sub CommandButton1_Click()
arr = Split([a2], Chr(10))
For i = 0 To UBound(arr)
x = x & Chr(10) & " " & arr(i)
Next
[c2] = Mid(x, 2)
End Sub

我是来讨说法的 · 发表于 2019-11-8 14:43

VBCRLF其实可以分开用CBCR和VBLF

单元格里的换行是VBCR

kings12333 · 发表于 2019-11-8 15:47

我是来讨说法的发表于 2019-11-8 14:43
VBCRLF其实可以分开用CBCR和VBLF

单元格里的换行是VBCR

那最简单的应该是将VBCRLF替换成 ，但好像没法替换……里面是什么分行符？

kings12333 · 发表于 2019-11-8 15:51

YZC51 发表于 2019-11-8 14:42
请参考
Private Sub CommandButton1_Click()
arr = Split([a2], Chr(10))

感谢老师，可行。

kings12333 · 发表于 2019-11-8 15:52

我是来讨说法的发表于 2019-11-8 14:43
VBCRLF其实可以分开用CBCR和VBLF

单元格里的换行是VBCR

YZC51老师用的Chr(10)分行可以执行替换为 ，但替换后又没换行……，哎

boraca · 发表于 2019-11-8 16:16

Range("a5") = Replace(Range("a5"), Chr(10), Chr(10) & " ")
Range("a5") = " " & Range("a5")

月关 · 发表于 2019-11-8 16:39

来个自食其力法：

1）按ctrl+h，打开查找和替换对话框
2）查找内容：按住 ALT键，依次按小键盘的 1 和 0
3) 替换为：先输入 ，再将光标移到最左侧，重复步骤2
4）按全部替换

YZC51 · 发表于 2019-11-8 16:46

或者
Private Sub CommandButton1_Click()
Range("c2") = Replace(" " & Range("a2"), Chr(10), Chr(10) & " ")
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 分行符前加<br>

评分

评分

评分

评分

最新热点 /1