如何让选中的excel单元格里的最后一个汉字和第一个英文字母间换行？谢谢。

jldxxwcw · 发表于 2017-12-5 19:22

在利用excel表处理数据的时候，有大量的需要将最后一个汉字和第一个英文字母之间进行换行的单元格要进行操作，而且汉字的个数不一定，所以用excel自动换行的功能也不够方便，用"Alt+Enter"逐个处理也很麻烦，利用函数=REPLACE(B1,LEN(B1)*2-LENB(B1)+1,,CHAR(10))处理的话需要在另外一列中进行，请问老师们有没有其他方法？VBA如何实现？谢谢！

chxw68 · 发表于 2017-12-5 19:29

使用正则做的。

Sub test1()
Dim r%, i%
Dim arr, brr
Dim reg As New RegExp
With reg
.Global = True
.Pattern = "(^[\u4e00-\u9fbb]+)"
End With
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("a2:a" & r)
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
brr(i, 1) = reg.Replace(arr(i, 1), "$1" & Chr(10))
Next
.Range("c2").Resize(UBound(brr), 1) = brr
End With
End Sub

复制代码

chxw68 · 发表于 2017-12-5 19:30

详见附件。

jldxxwcw · 发表于 2017-12-5 19:53

chxw68 发表于 2017-12-5 19:30
详见附件。

谢谢老师，试用了好用，再次感谢您！新人愚钝，还想请教一下能否让我选择的某些单元格，又或者某一列中的单元格实现最后一个汉字和第一个英文字母间换行？麻烦吗？谢谢老师。路漫漫，我要好好学习VBA！

jjmysjg · 发表于 2017-12-6 06:34

能否实现固定第几个字符后的换行

smhf_6 · 发表于 2017-12-6 07:02

本质就是加入了一个换行符，若固定第几个字符，岂不更加方便了?

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

[求助] 如何让选中的excel单元格里的最后一个汉字和第一个英文字母间换行？谢谢。

评分