ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 78361|回复: 10

[原创] VBA函数精选之二十五(Left 和Right 函数)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2008-12-5 12:23 | 显示全部楼层 |阅读模式
第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

TA的精华主题

TA的得分主题

发表于 2011-3-17 10:24 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
谢谢楼主分享

TA的精华主题

TA的得分主题

发表于 2011-10-4 14:02 | 显示全部楼层
我想问一下,如果不是一个单元格的数据,比如说像这样的呢 未命名.jpg ,我想取出后4位怎么写?
right([a1:a10],4)?
我是这样写了,但是错的

TA的精华主题

TA的得分主题

发表于 2011-10-4 15:17 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 非常爱学 于 2011-10-4 15:18 编辑
apirl2008 发表于 2011-10-4 14:02
我想问一下,如果不是一个单元格的数据,比如说像这样的呢,我想取出后4位怎么写?
right([a1:a10],4)?
我 ...

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

TA的精华主题

TA的得分主题

发表于 2011-10-4 15:29 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
你这是10个单元格,就用for 或 for each 循环

TA的精华主题

TA的得分主题

发表于 2011-10-5 17:50 | 显示全部楼层
本帖最后由 apirl2008 于 2011-10-5 17:51 编辑
非常爱学 发表于 2011-10-4 15:17
别吓人了,不能这样写
right([a1],4)这样写,不能是一个区域。应为一个据体的对象。你这是10个单元格,就 ...


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

TA的精华主题

TA的得分主题

发表于 2012-8-20 16:26 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
非常爱学 发表于 2011-10-4 15:17
别吓人了,不能这样写
right([a1],4)这样写,不能是一个区域。应为一个据体的对象。你这是10个单元格,就 ...

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

TA的精华主题

TA的得分主题

发表于 2012-8-21 16:40 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2015-5-8 16:22 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2017-4-26 15:51 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
刚刚看了这帖子解决了我的一个问题, 顶蓝神
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-5-21 03:55 , Processed in 0.036672 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表