Excel字符串截取函数与数字处理函数.docVIP

Excel字符串截取函数 一：函数理论知识学习 　　截取Excel字符串的部分字符，我们可以使用Mid、Left、Right等函数从长字符串内获取一部分字符。 　　LEFT函数： 　　LEFT(text,num_chars) 　　Text是包含要提取字符的文本串。Num_chars指定要由LEFT 所提取的字符个数，该函数从左边开始提取字符。 　　MID函数： 　　MID(text,start_num,num_chars) 　　Text是包含要提取字符的文本串。Start_num是文本中要提取的第一个字符的位置。num_chars是要提取的字符个数，从左边开始提取字符。 　　RIGHT函数： 　　RIGHT(text,num_chars) 　　Text是包含要提取字符的文本串。Num_chars指定希望 RIGHT 提取的字符个数。该函数从右边开始提取字符。 二：函数应用实例????????????????????????????????????????????? ? 在处理账务中，一般单位名称是放在表格的右上角，但有时单位是不固定的，比较有时是吨，有时是件，有时是箱，这时单位就不便放在表格上面，因为这样不能反应真实的信息，而如果把这些单位直接输入到表格中，在计算时会就遇到问题，我的解决方法是，把这些单位也输入，在计算时把字符串的数字提出来。 用VBA实现： 实现环境：Excel2003，Windows XP。 打开Excel，按ALT+F11，打开Visual Basic编辑器，双击VBAProject，双击模块，再双击模块，如下图所示： 输入如下代码： Function AtoN(Str As String) ?????? If IsNumeric(Str) Then?????????? AtoN = Str?????? Else?????????????????? For i = Len(Trim(Str)) To 1 Step -1?????????????? a = Mid(Str, i, 1)?????????????? If a = . Then n = a + n?????????????? If IsNumeric(a) Then?????????????????? n = a + n?????????????? Else?????????????????? i = i?????????????? End If?????????? Next i?????????? AtoN = n?????? End If????End Function 关闭Visual Basic编辑器，点击地址栏上的插入函数按钮，在类型列表里选择用户定义，这里就会显示刚才定义的函数。如下图所示： 测试：