提取在合并单元格字符

今日123

我希望在老师能帮我简化下代码，在多表里合并单元格里把幼儿园的名称提取出来。每个表的冒号好像不一样。
代码 ：Sub 提取字符()
Dim str, k
For i = 1 To Sheets.Count - 2
    With Sheets(i)
        str = Len(Mid(.[a2], InStr(.[a2], " "), Len(.[a2])))
        k = Split(Left(.[a2], Len(.[a2]) - Len(Mid(.[a2], InStr(.[a2], " "), Len(.[a2])))), "单位")(1)
        k = Mid(k, 2, Len(k) - 1)
    End With
Next i
End Sub
看下能不能再简单点 谢谢

shiruiqiang

正则式： [一-龢]+幼儿园

ykcbf1100

只提取单位名,不用干别的?

ykcbf1100

这样?      

quqiyuan

只要名称的话试试这样。。。

shiruiqiang

代码运行结果如下：

quqiyuan

刚才那个没有注意幼儿园后面还有数据，需要去掉，中间是空格分隔，可以使用instr找空格位置，仅供参考。。。

shiruiqiang

ykcbf1100 发表于 2024-12-15 07:48
这样?

单位后面还有日期

gwjkkkkk

Sub 提取字符()
Dim str, k, strName$
For i = 1 To Sheets.Count - 2
    With Sheets(i)
        strName = Split(.[A2].Value, " ")(0)
        strName = Split(Replace(strName, ":", "："), "：")(1)
    End With
Next i
End Sub

gwjkkkkk