如何提取Excel字符串里的非汉字部分

Z平生

如何提取Excel字符串里的非汉字部分

在SMTbom表中，提取h列单元格的字符串如并去除中文字符，“／”用“空格”替换，删除中文字后两相邻的字符用“空格”隔开，然后输入到同行的c列中；



感谢大家的帮忙！补充一个条件：将最终提取的字符如果超过20个的单元格高亮

limonet

正则最方便。

limonet

Sub limonet()
    Dim Arr() As Variant, i%, j%, R1 As Object, R2 As Object
    With CreateObject("vbscript.regexp")
        .Pattern = "[一-龥()、]+": .Global = True
        For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
            Cells(i, "C") = .Replace(Replace(Cells(i, "H"), "/", " "), "")
        Next i
    End With
End Sub

lisongmei

Sub demo()
Dim r%, i%
r = Range("h10000").End(xlUp).Row
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "[/ \(\)、\u4e00-\u9fa5]+"
    For i = 2 To r
        Range("c" & i).Value = .Replace(Range("h" & i), " ")
    Next
End With
End Sub

无关岁月

1. =TRIM(REGEXREPLACE(H2,"[一-龟(、)]+|/"," "))

复制代码

Z平生

无关岁月 发表于 2024-7-30 18:26

谢谢，我的2016出错

无关岁月

Z平生 发表于 2024-7-30 18:41
谢谢，我的2016出错

我看你备注的365，2016请忽略

Z平生

limonet 发表于 2024-7-30 18:15
正则最方便。

谢谢

ykcbf1100

没错，正则提取最合适。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.7.30
   
2.     Set reg = CreateObject("VBScript.Regexp")
   
3.     r = Cells(Rows.Count, 2).End(3).Row
   
4.     arr = [a1].Resize(r, 8)
   
5.     With reg
   
6.         .Pattern = "[一-龢\(、\)]+"
   
7.         .Global = True
   
8.         .IgnoreCase = True
   
9.         For i = 2 To UBound(arr)
   
10.             st = arr(i, 8)
    
11.             st = Replace(st, "/", " ")
    
12.             arr(i, 3) = .Replace(st, "")
    
13.         Next
    
14.     End With
    
15.     [c1].Resize(r, 1) = Application.Index(arr, 0, 3)
    
16.     MsgBox "OK！"
    
17. End Sub
    

复制代码