提取其中的内容

Peny2020 · 发表于 2022-12-2 09:08

本帖最后由 Peny2020 于 2022-12-2 09:43 编辑

请问各位，下面这段描述里，我要怎么才可以只提取其中两个单独各放一个单元格？可否写一个代码？谢谢。
提取的是品牌和型号。

limonet · 发表于 2022-12-2 09:23

品牌不应该是——ABC博世吗？

Peny2020 · 发表于 2022-12-2 09:26

limonet 发表于 2022-12-2 09:23
品牌不应该是——ABC博世吗？

不需要中文部分的，谢谢

582766 · 发表于 2022-12-2 09:41

用正则就可以了论坛很多例子

nihao123456789 · 发表于 2022-12-2 09:46

你不知道EXCEL自带数据分列功能吗？整什么VBA

limonet · 发表于 2022-12-2 09:55

代码在审核。

limonet · 发表于 2022-12-2 09:56

Sub Reg()
Dim i%
With CreateObject("vbscript.regexp")
      .Pattern = ".*品牌:([a-z]+(?=[一-龥])).*型号：(.*)"
      .ignorecase = True
      For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
         Cells(i, 2).Resize(1, 2) = Split(.Replace(Cells(i, 1), "$1@$2"), "@")
      Next i
End With
End Sub

ykcbf1100 · 发表于 2022-12-2 10:09

本帖最后由 ykcbf1100 于 2022-12-2 10:16 编辑

第一次学用正则写，写得不好之处请见谅

Peny2020 · 发表于 2022-12-2 10:29

limonet 发表于 2022-12-2 09:55
代码在审核。

不好意思，为什么我点了按钮结果是这样的？麻烦你了。

Peny2020 · 发表于 2022-12-2 10:30

ykcbf1100 发表于 2022-12-2 10:09
第一次学用正则写，写得不好之处请见谅

不好意思，为什么我点按钮，说无法运行此宏的？麻烦你了

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

[求助] 提取其中的内容

评分