
Excel 2007,如何批量删除一列中英文混合单元格中的英文字符(保留中文)或者中文字符(保留英文)?
例如:sheet纸张book书本friend朋友每一组中英文处于同一个单元格内,我只想保留英文,中文批量一次删除。...
例如:
sheet纸张
book书本
friend朋友
每一组中英文处于同一个单元格内,我只想保留英文,中文批量一次删除。 展开
sheet纸张
book书本
friend朋友
每一组中英文处于同一个单元格内,我只想保留英文,中文批量一次删除。 展开
展开全部
假如数据在A列,从A1开始,在B列保留英文,在C列保留中文
在B1中输入:
=LEFT(A1,LEN(A1)*2-LENB(A1))
在C1中输入:
=RIGHT(A1,LENB(A1)-LEN(A1))
然后选择B1和C1,下拉复制
复制B列和C列--原地右击--选择性粘贴--数值
即可
在B1中输入:
=LEFT(A1,LEN(A1)*2-LENB(A1))
在C1中输入:
=RIGHT(A1,LENB(A1)-LEN(A1))
然后选择B1和C1,下拉复制
复制B列和C列--原地右击--选择性粘贴--数值
即可
展开全部
可以通过查找,然后 替代的方法 试一试
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用自定义函数:
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)
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)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询