如何快速提取excel中的中文
发布网友
发布时间:2022-04-19 21:21
我来回答
共2个回答
热心网友
时间:2023-09-01 10:40
excel如何快速提取?
热心网友
时间:2023-09-01 10:40
简单易用,首选正则表达式!假如你要提取的数据在A列(任意列也一样用法),下面代码粘贴到VBA中。PS:经本人编写后测试,可用! 如果解决了你问题,给采纳最佳答案啊!!!
Sub tiqu()
Set regx = CreateObject("vbscript.regexp")
regx.Global = True
regx.Pattern = "[^\u4e00-\u9fa5]"
j = Cells(Rows.Count, 1).End(xlUp).Row
For Each Rng In Range("a2:a" & j)
n = n + 1
Cells(n + 1, "B") = regx.Replace(Rng, "")
Next
End Sub