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

Z平生

感谢大家的帮忙

Z平生

limonet 发表于 2024-7-30 18:15
Sub limonet()
    Dim Arr() As Variant, i%, j%, R1 As Object, R2 As Object
    With CreateObject(" ...

能否加一个条件：将最终提取的字符如果超过20个的单元格高亮　　
　　谢谢

Z平生

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

Z平生

ykcbf1100 发表于 2024-7-30 18:47
参与一下。。。

感谢侠圣的帮忙！能否加个条件：将最终提取的字符如果超过20个的单元格高亮

limonet

Z平生 发表于 2024-7-30 19:03
能否加一个条件：将最终提取的字符如果超过20个的单元格高亮　　
　　谢谢

加个IF判断。if len() than cells().font.bold=true

ykcbf1100

Z平生 发表于 2024-7-30 19:11
感谢侠圣的帮忙！能否加个条件：将最终提取的字符如果超过20个的单元格高亮

C列增加标色。。。

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.     Cells.Interior.ColorIndex = 0
   
6.     With reg
   
7.         .Pattern = "[一-龢\(、\)]+"
   
8.         .Global = True
   
9.         .IgnoreCase = True
   
10.         For i = 2 To UBound(arr)
    
11.             st = arr(i, 8)
    
12.             st = Replace(st, "/", " ")
    
13.             arr(i, 3) = .Replace(st, "")
    
14.         Next
    
15.     End With
    
16.     [c1].Resize(r, 1) = Application.Index(arr, 0, 3)
    
17.     For i = 2 To r
    
18.         If Len(Cells(i, 3)) > 20 Then
    
19.             Cells(i, 3).Interior.ColorIndex = 6
    
20.         End If
    
21.     Next
    
22.     MsgBox "OK！"
    
23. End Sub
    

复制代码

ggmmlol

1. Sub Spec()
   
2.     Dim r, i, arr
   
3.     r = Cells(Rows.Count, 8).End(xlUp).Row
   
4.     arr = Range("H2").Resize(r, 2)
   
5.     Range("H:H").Interior.ColorIndex = xlNone
   
6.     With CreateObject("VBScript.RegExp")
   
7.         .Global = True
   
8.         .Pattern = "[^\w.-]+"
   
9.         For i = 1 To r - 1
   
10.             arr(i, 1) = Trim(.Replace(arr(i, 1), " "))
    
11.             If Len(arr(i, 1)) > 20 Then Cells(i + 1, 3).Interior.Color = vbYellow
    
12.         Next
    
13.     End With
    
14.     Range("C2").Resize(r) = arr
    
15. End Sub

复制代码