Excel 2007，如何批量删除一列中英文混合单元格中的英文字符（保留中文）或者中文字符（保留英文）？

发布网友 发布时间：2022-04-23 06:58

我来回答

共3个回答

热心网友 时间：2023-10-06 05:12

假如数据在A列，从A1开始，在B列保留英文，在C列保留中文
在B1中输入：
=LEFT(A1,LEN(A1)*2-LENB(A1))
在C1中输入：
=RIGHT(A1,LENB(A1)-LEN(A1))
然后选择B1和C1,下拉复制
复制B列和C列--原地右击--选择性粘贴--数值
即可

热心网友 时间：2023-10-06 05:12

可以通过查找，然后 替代的方法 试一试

热心网友 时间：2023-10-06 05:13

用自定义函数：
Function MyGet(Srg As String, Optional n As Integer = False)
Dim i As Integer
Dim s, MyString As String
Dim Bol As Boolean

For i = 1 To Len(Srg)
s = Mid(Srg, i, 1)
If n = 1 Then
Bol = Asc(s) < 0
ElseIf n = 2 Then
Bol = s Like "[a-z,A-Z]"
ElseIf n = 0 Then
Bol = s Like "#"
End If
If Bol Then MyString = MyString & s
Next

MyGet = IIf(n = 1 Or n = 2, MyString, Val(MyString))

End Function

比如数据在A列,在B1写公式:=myget(A1,2)

热心网友 时间：2023-10-06 05:12

假如数据在A列，从A1开始，在B列保留英文，在C列保留中文
在B1中输入：
=LEFT(A1,LEN(A1)*2-LENB(A1))
在C1中输入：
=RIGHT(A1,LENB(A1)-LEN(A1))
然后选择B1和C1,下拉复制
复制B列和C列--原地右击--选择性粘贴--数值
即可

热心网友 时间：2023-10-06 05:12

可以通过查找，然后 替代的方法 试一试

热心网友 时间：2023-10-06 05:13

用自定义函数：
Function MyGet(Srg As String, Optional n As Integer = False)
Dim i As Integer
Dim s, MyString As String
Dim Bol As Boolean

For i = 1 To Len(Srg)
s = Mid(Srg, i, 1)
If n = 1 Then
Bol = Asc(s) < 0
ElseIf n = 2 Then
Bol = s Like "[a-z,A-Z]"
ElseIf n = 0 Then
Bol = s Like "#"
End If
If Bol Then MyString = MyString & s
Next

MyGet = IIf(n = 1 Or n = 2, MyString, Val(MyString))

End Function

比如数据在A列,在B1写公式:=myget(A1,2)