EXCEL2003一次选择全部英文字母
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/16 21:16:21
EXCEL2003一次选择全部英文字母
在同一个单元格里有中文也有英文还有数字(这样的单元格数量很多),我想:能不能不用分解单元格内容,只想一次性地选定全部英文字母.
汉字、字母、数字是混杂在一个单元格里的.单元格的中文、英文和数字保留,只是选择英文字母而已,能不能做得到?
在同一个单元格里有中文也有英文还有数字(这样的单元格数量很多),我想:能不能不用分解单元格内容,只想一次性地选定全部英文字母.
汉字、字母、数字是混杂在一个单元格里的.单元格的中文、英文和数字保留,只是选择英文字母而已,能不能做得到?
![EXCEL2003一次选择全部英文字母](/uploads/image/z/16977811-67-1.jpg?t=EXCEL2003%E4%B8%80%E6%AC%A1%E9%80%89%E6%8B%A9%E5%85%A8%E9%83%A8%E8%8B%B1%E6%96%87%E5%AD%97%E6%AF%8D)
选中数据区域,执行宏 GetLetter 选出的数据放在 Sheet2 的对应位置.
Sub GetLetter()
For Each rg In Selection
Sheet2.Cells(rg.Row,rg.Column) = GetOne(rg.Value)
Next
End Sub
Function GetOne(v)
GetOne = ""
For i = 1 To Len(v)
c = Mid(v,i,1)
s = Asc(c)
If (s > 64 And s < 91) Or (s > 96 And s < 123) Then
GetOne = GetOne & c
End If
Next
End Function
Sub GetLetter()
For Each rg In Selection
Sheet2.Cells(rg.Row,rg.Column) = GetOne(rg.Value)
Next
End Sub
Function GetOne(v)
GetOne = ""
For i = 1 To Len(v)
c = Mid(v,i,1)
s = Asc(c)
If (s > 64 And s < 91) Or (s > 96 And s < 123) Then
GetOne = GetOne & c
End If
Next
End Function