Question

VBA如何删除非汉字的行？

RT,是用VBA!!!!!!是删除非汉字的行!!!!不是删除非汉字的内容!!!!应该是用正则表达式,但VBA的不会用,求教!

Answer 1

执行代码前的测试表格：

执行后：

代码：

程序：

Option Explicit

Sub 删除非汉字的行()

    Dim i&, j&

    For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1

        If Not Cells(i, "A") Like "[一-隝]" Then Rows(i).Delete

    Next i

End Sub

使用like比正则快

追问

如果数据是从C2 开始,C3,C4,应该如何改呢?初学VBA,望指教
刚试下了,好像只把单个汉字保存了,多个汉字如"阿萨德"还是会被删除

追答

Option Explicit

Sub 删除非汉字的行()
Dim i&, j&
For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
If Not Cells(i, "C") Like "*[一-隝]*" Then Rows(i).Delete
Next i
End Sub

追问

少数据的时候是可以实现,我这边近万的数据就一直计算,等了好久都还在计,这算正常吗

追答

大数据量不能这样删除，需要使用数组。