EXCEL2003一次选择全部英文字母
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/19 23:52:55
EXCEL2003一次选择全部英文字母
在同一个单元格里有中文也有英文还有数字(这样的单元格数量很多),我想:能不能不用分解单元格内容,只想一次性地选定全部英文字母.
汉字、字母、数字是混杂在一个单元格里的.单元格的中文、英文和数字保留,只是选择英文字母而已,能不能做得到?
在同一个单元格里有中文也有英文还有数字(这样的单元格数量很多),我想:能不能不用分解单元格内容,只想一次性地选定全部英文字母.
汉字、字母、数字是混杂在一个单元格里的.单元格的中文、英文和数字保留,只是选择英文字母而已,能不能做得到?
选中数据区域,执行宏 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