VBA函数精选之二十五（Left 和Right 函数）

蓝桥玄霜

第1.25例    Left 和 Right 函数
一、题目：
要求编写一段代码，运用Left 函数来得到某字符串最左边的几个字符，运用Right 函数来得到某字符串最右边的几个

字符。
二、代码：

Sub 示例_1_025()
     Dim RYzfc$, Myzfc$
     RYzfc = "HELLO SHANGHAI EXPO 2010"   
     Myzfc = Left(RYzfc, 5)     
     Myzfc = Left(RYzfc, 14)   
     Myzfc = Right(RYzfc, 4)    '
End Sub
三、代码详解
1、Sub 示例_1_025()：宏程序的开始语句。宏名为示例_1_025。
2、Dim  RYzfc$, Myzfc$  ：声明 RYzfc, Myzfc为字符串变量。
3、RYzfc = "HELLO SHANGHAI EXPO 2010"  ：把字符串赋给字符串变量RYzfc。
4、Myzfc = Left(RYzfc, 5) ：运用Left 函数从RYzfc取最左边的5个字符并赋给Myzfc变量，返回 "HELLO"。
5、Myzfc = Left(RYzfc, 14) ：从RYzfc取最左边的14个字符并赋给Myzfc变量，返回 "HELLO SHANGHAI"。
6、Myzfc = Right(RYzfc, 4) ：从RYzfc取最右边的4个字符并赋给Myzfc变量，返回 "2010"。     
  
Left 函数
返回 Variant (String)，其中包含从字符串左边算起指定数量的字符。

Left(string, length)
Left 函数的语法有下面的命名参数：

string        必要参数。字符串表达式其中最左边的那些字符将被返回。如果 string 包含 Null，将返回 Null。
length        必要参数；为 Variant (Long)。数值表达式，指出将返回多少个字符。如果为 0，返回零长度字符串 ("")。

如果大于或等于 string 的字符数，则返回整个字符串。

Right 函数
返回 Variant (String)，其中包含从字符串右边取出的指定数量的字符。

Right(string, length)
Right 函数的语法具有下面的命名参数：

string        必要参数。字符串表达式，从中最右边的字符将被返回。如果 string 包含 Null，将返回 Null。
length        必要参数；为 Variant (Long)。为数值表达式，指出想返回多少字符。如果为 0，返回零长度字符串 ("")。

如果大于或等于 string 的字符数，则返回整个字符串。

VBA函数精选之二十四（LCase和UCase 函数）：http://club.excelhome.net/viewthread.php?

tid=376731&extra=page%3D1&frombbs=1

lszxsxy

谢谢楼主分享

apirl2008

我想问一下，如果不是一个单元格的数据，比如说像这样的呢 ，我想取出后4位怎么写？
right([a1:a10],4)?
我是这样写了，但是错的

非常爱学

apirl2008 发表于 2011-10-4 14:02
我想问一下，如果不是一个单元格的数据，比如说像这样的呢，我想取出后4位怎么写？
right([a1:a10],4)?
我 ...

别吓人了，不能这样写
right([a1],4)这样写，不能是一个区域。应为一个据体的对象。你这是10个单元格，就用for 或 for each 循环

风云际会6

你这是10个单元格，就用for 或 for each 循环

apirl2008

非常爱学 发表于 2011-10-4 15:17
别吓人了，不能这样写
right([a1],4)这样写，不能是一个区域。应为一个据体的对象。你这是10个单元格，就 ...

谢谢，我已经学会了，嘿嘿，新人刚学VBA，昨天被人逼着学，给我十分钟的时间整出来，我就想到了这个right，找到这个，但却不是我要的，瞎整了，嘿嘿
for i=1 to 10
right(i,4)
next
应该这样写，嘿嘿

FJT1966

非常爱学 发表于 2011-10-4 15:17
别吓人了，不能这样写
right([a1],4)这样写，不能是一个区域。应为一个据体的对象。你这是10个单元格，就 ...

你真厉害
right 能直接运行吗？

jhzghua

谢谢楼主分享

龙城飞将III

赞蓝神，第25个函数学习完毕，mark一下！

exhome13

刚刚看了这帖子解决了我的一个问题, 顶蓝神