关于分列的问题，怎么把价格以前的内容提出来

woniu3721 · 发表于 2024-4-18 12:42

本帖最后由 woniu3721 于 2024-4-19 15:49 编辑

要进行分列，分列的内容如下，B列是原始信息，C列是要提取的信息，其实就是要把价格之前的信息提取出来，不要保留红包，请问该用何种方法？谢谢微信截图_20240418123352.png

提取价格以前的信息.zip (9.5 KB, 下载次数: 21)

shiruiqiang · 发表于 2024-4-18 13:01

直接空格分列就行啊

ykcbf1100 · 发表于 2024-4-18 13:10

shiruiqiang 发表于 2024-4-18 13:01
直接空格分列就行啊

不完全是的，你细看一下。

shiruiqiang · 发表于 2024-4-18 13:13

本帖最后由 shiruiqiang 于 2024-4-18 13:24 编辑

正则式\d{3,4}分列，取第一个

baofa2 · 发表于 2024-4-18 13:25

Debug.Print Split(Range("B25"), ChrW(-10178))(0)

shiruiqiang · 发表于 2024-4-18 13:25

Sub test()
Dim rng As Range, ss, sj
Set reg = CreateObject("vbscript.regexp")
For Each rng In Range("b2:b25")
With reg
.Global = True
.Pattern = "\d{3,4}"
Set ss = .Execute(rng)
rng.Offset(0, 1) = Split(rng, ss(0))(0)
End With
Next
End Sub

shiruiqiang · 发表于 2024-4-18 13:28

===========

cnmlgb9998 · 发表于 2024-4-18 13:36

不是有个特殊字符可以识别吗？？？？？？

woniu3721 · 发表于 2024-4-18 13:43

cnmlgb9998 发表于 2024-4-18 13:36
不是有个特殊字符可以识别吗？？？？？？

那个特殊字符不一定都有的

woniu3721 · 发表于 2024-4-18 13:51

shiruiqiang 发表于 2024-4-18 13:25
Sub test()
Dim rng As Range, ss, sj
Set reg = CreateObject("vbscript.regexp")

测试了一下，能行，能否解释一下，后面两个(0)是什么含义呢

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

[求助] 关于分列的问题，怎么把价格以前的内容提出来

评分

评分

评分