将excel单元格内的中英文分离

前言

准备英语期末考的时候老师给出了很多ppt的单词，我想整合到List背单词（app）中，就需要csv格式。重点肯定是得花时间在背单词上，所以我就草草的提这么一个方案。先通过ocr将ppt单词页扫出来，然后复制到excel，结果发现excel里是英文和中文意思都放在一个单元格了，所以就想着用vba直接分离

实现

分离函数

Private Sub trans(num As Integer)
    Dim val_str As String
    Dim ch As String
    val_str = Cells(num, 2).Value
    For i = 1 To Len(val_str)
        ch = Mid(val_str, 1, i)
        If ch Like "*[一-龥]*" Then      ```貌似说用"*[一-龥]*"可以代表所有汉字
            Cells(num, 3) = Mid(val_str, 1, i - 1)    ```用left可能会更好一点
            Cells(num, 4) = Right(val_str, Len(val_str) - i + 1)
            GoTo e
            
        End If
        
    Next i
e:

    
    
End Sub

我没多时间去了解vb里的循环是怎么实现退出循环的了，将就goto

主函数

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    ```我的excel是一个单词占一行             
    
    For j = 1 To 228 ```这里228表示有多少个单词（行数）
    	trans (j)    
    Next j 
    
End
End Sub

结语

英语考完了，感觉还行，稳定发挥，都不会。