当出现第一个中文字符时，后面的内容全部剪切到另一列

levineagle

一直没找到，如何判断中文字符、英文字符、数字、其它字符的表达式，请高人指点。



Sub 前面()
Dim gezi As Range
Dim i As Integer
Dim k As Integer
Dim shuzu(1 To 2, 1 To 10000) As String
Dim neirong2 As String
With Worksheets(1)
For i = 1 To 10000
     For k = 1 To Len(.Range("a1").Offset(i, 0))
       If ask(Mid(.Range("a1").Offset(i, 0), k, 1)) > 0 Then  ’此处判断当遇到中文字符时，但不凑效
           GoTo 100
     Next k
100:
     shuzu(1, i) = Mid(.Range("a1").Offset(i, 0), 1, k - 1)

     shuzu(2, i) = Mid(.Range("a1").Offset(i, 0), k, Len(.Range("a1").Offset(i, 0)))
Next i
End With




With Worksheets(1)
For i = 1 To 10000
  .Range("a1").Offset(i, 0) = shuzu(1, i)
  .Range("a1").Offset(i, 1) = shuzu(2, i)
Next i
End With




End Sub

jnsxmt

英语单词词缀 - 副本.rar

Chip_Kenny

1. Sub zz()
   
2. Dim s$
   
3. With CreateObject("vbscript.regexp")
   
4.     .Pattern = "[\u4e00-\u9fa5]{1}.+"
   
5.     ar = Range("a1:b" & [a1048576].End(3).Row).Value
   
6.     For i = 1 To UBound(ar)
   
7.         If Len(ar(i, 1)) Then
   
8.             s = ar(i, 1)
   
9.             ar(i, 1) = .Replace(s, "")
   
10.             If .test(s) Then ar(i, 2) = .Execute(s)(0)
    
11.         End If
    
12.     Next
    
13.     [b1].Resize(i - 1, 2) = ar
    
14. End With
    
15. End Sub

复制代码

levineagle

jnsxmt 发表于 2018-6-19 10:22
英语单词词缀 - 副本.rar

十分感谢出手相助。

levineagle

Chip_Kenny 发表于 2018-6-19 11:45

太感谢了，您的代码效率很高，适应性强。
但这种思路我太看明白，求教，是否可以详细注解一下，我好好学习学习，十分感谢。
比如createobject("vbscript.regexp")是什么意思？
.pattern="[\u4e00-\u9fa5]{1}.+"  这个一点概念没有
ar(i,2)=.execute(s)(0)

Chip_Kenny

正则表达式入门与提高
http://club.excelhome.net/thread-1128647-1-1.html

chentonny

中文：[一-龢]
英文：[A-Za-z]
数字：\d
其他字符：\s

levineagle

chentonny 发表于 2018-6-19 16:49
中文：[一-龢]
英文：[A-Za-z]
数字：\d

很感谢，是否可以再解释一下这个与ASC码的关系