关于字符串提取问题

小女孩 · 发表于 2019-9-6 10:48

提取首字母.rar (9.46 KB, 下载次数: 21)

gxp1986 · 发表于 2019-9-6 10:57

本帖最后由 gxp1986 于 2019-9-6 11:00 编辑

先在前面加个空格,然后用正则 (?<=\s)\S{1},最后join

wj2368 · 发表于 2019-9-6 11:02

。。。。。。。。。。。

wtg321 · 发表于 2019-9-6 11:03

K列是结果。

小花鹿 · 发表于 2019-9-6 11:04

用SPLIT按空格分割就行了

红旗雪 · 发表于 2019-9-6 11:04

Function FirstCase(rng)
  Dim reg, str$, mh, m
  Set reg = CreateObject("vbscript.regexp")
  With reg
.Global = True
.ignorecase = True
.Pattern = "^\w|\b\w"
Set mh = .Execute(rng)
For Each m In mh
   str = str & m
Next
  End With
  FirstCase = str
End Function

deadzlq · 发表于 2019-9-6 11:19

PQ参考解法

DevilW · 发表于 2019-9-6 12:15

Sub test()
s = "wang en ran"
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "\B\w+\s*"
reg.Global = True
s = reg.Replace(s, "")
MsgBox s
End Sub

复制代码

ggmmlol · 发表于 2019-9-6 17:40

小工具，很轻松：
查找内容： \B\w+\W*
替换为： (空)

或
查找内容： \b(\w)|.
替换为： $1

演示如下（方法二）：
首字母2.gif

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

[求助] 关于字符串提取问题

最新热点 /1