文本软回车 字符提取 分列，有点不知道怎么描述

samuelmotor

1. 我想把很多行的数据，原先是没有回车的，加上回车，在一个单元格里面显示（自动换行）2. 条件有点没有规律，基本上是“：“ 前面是一个要素，部分有“；”，也就是有两个条件
我自己尝试用，分列（只有一个条件“：”，达不到要求），用函数提取（10几次提取，公式都写不下了），不知道有没有简便的方式
请大神指教

Chip_Kenny

Try this code:

1. Sub zz()
   
2. Dim ar, s$, n%
   
3. ar = [a3:a23].Value
   
4. With CreateObject("vbscript.regexp")
   
5.     .Pattern = "([^:； ]+:)"
   
6.     .Global = True
   
7.     For i = 1 To UBound(ar)
   
8.         ar(i, 1) = mid(.Replace(ar(i, 1), Chr(10) & "$1"),2)
   
9.     Next
   
10. End With
    
11. [c3].Resize(i - 1) = ar
    
12. End Sub

复制代码

samuelmotor

Chip_Kenny 发表于 2018-9-5 11:08
Try this code:

强大，感谢大神花时间解决我们大问题

samuelmotor

mikezhan 发表于 2018-9-5 11:09
小提示：把结果列单元格格式设置为“自动换行"。

Sub test()

强大，感谢大神花时间解决我们大问题

ggmmlol

Chip_Kenny 发表于 2018-9-5 11:08
Try this code:

赞！本题最简捷的正则表达式。

对于只需要提取其中部分字符串的情况，使用正则表达式的Replace方法，比用它的Execute方法更加简捷。
在我做的正则表达式工具——【超级查找替换】里，就只用Replace方法。

如果不是直接提取字符，而是设置特定字符的字体格式，那就只好用Execute方法了。

ggmmlol

有工具，不编程！有工具，不加班！

使用免费的正则表达式工具——【超级查找替换】，不用编程，只需要动一动鼠标，输入几个字符，就可轻松解决！
So easy! 老板再也不用担心给我付加班费了！

演示如下：
原理：同2楼的VBA代码，并可直接利用其中的正则表达式。

查找内容：([^:； ]+:)
替换为：
$1
注意，$1前面有一个手动换行符，即chr(10)，它可以直接用Alt+Enter组合键输入，并且在输入框中可见。
修剪字符：[\n\r]
修剪字符的作用，在此例中，对应于2楼中的mid函数的功能，即修剪掉添加在最前面的手动换行符。实际上，修剪字符的功能很强大，可以同时修剪多个单字符，也可以是多个不同的多字符串。