excel vba与字符串数组有关的三个函数
发布时间:2022-05-23 21:13:03
Split函数
返回一个下标从零开始的一维数组,它包含指定数目的子字符串。
Split(字符串[, 分隔符[, 要返回的子字符串数量[,比较方式]]])
后三项可选,默认:分隔符为空格,返回全部子字符串,用Option Compare语句中的设置值执行比较。
下面是将1-12转化为一月-十二月的自定义函数的例子。
Function Num2ch(ByVal n As Integer) As String
Dim Arr
Arr = Split(",一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月", ",")
Num2ch = Arr(n)
End Function
和Array函数相比,用Split的好处在于生成的数组是字符型的,写法上也更简洁。注意“一月”前的逗号,这是因为Split生成的数组下标是从0开始的,且不受Option Base句的影响。
Join函数
返回一个字符串,该字符串是通过连接某个数组中的多个子字符串而创建的。
Join(源数组[,分隔符])
默认:分隔符为空格
当将分隔符设为空串(””)时,会返回一个各数组元素会直接相连的字符串。
该函数是Split函数的反函数,它是将数组转化为字符串。Join和Split相配合,可用于扩充控件TAG属性的传递数量;在不定参数的传递时,可使代码看起来更简洁。
下面只是它们配合的示例,并不是这儿真有必要这样做:
Sub aMain()
Dim arr(1 To 2), s$
arr(1) = 1: arr(2) = 2
s = Join(arr, ",")
Debug.Print Myadd(s)
End Sub
Function Myadd(ByVal s As String)
Dim arr, x
arr = Split(s, ",")
For Each x In arr
Myadd = Myadd + Val(x)
Next x
End Function
Filter函数
返回一个下标从零开始的数组,该数组包含基于指定筛选条件的一个字符串数组的子集。
Filter(源数组,要搜索的字符串[,返回子串包含还是不包含要搜索字符串[,比较方式]])
如果在源数组中没有发现与要搜索的字符串相匹配的值,Filter返回一个空数组。如果源数组是Null或不是一个一维数组,则产生错误。
注意是“包含”要搜索的字符串,而不是“等于”要搜索的字符串。这意味着,如果一数组元素为字符串“AB”,用“A”、“B”、“AB”中的任何一个去搜索(上面第三个参数为默认值True),都会作为新的数组的元素被返回。但这并不影响你创造成“包含”等同于“等于”的条件,或者数据本身就符合这一要求的条件。在“包含”等同于“等于”的数组中,我们可以用下面的办法来判断一个字符串是否属于某个数组。
If UBound(Arr) = UBound(Filter(Arr, "要找的字符串", False)) Then ‘说明在数组Arr中找不到
猜你喜欢
- 当许多用户使用计算机时,有时系统文件会损坏,他们需要进入安全模式来修复计算机文件。那么如何修复这些文件呢?让我们看看具体的方法。win10安
- 我们每天使用的键盘总是会有一些意想不到的问题,最近小边遇到键盘已经成为快捷键,游戏不能玩,如何解决?下面一起来看看具体的解决方法吧。win1
- 假设我们要做一个标题为“某公司6月份电费统计表”的Excel表格,其中“6”为进行电费统计的当月月份,第二行有制表日期。电费每月公布一次,那
- 在Excel表格的日常工作中,如果我们想把表格玩一下新花样,excel中的表格想要旋转角度,该怎么旋转呢?以下是小编为您带来的关于EXCEL
- Excel制作漂亮的统计图表1、EXCEL登场2、准备好要制作图表的基础数据,分店业绩不错啊!1、全部选中字段和记录(字段指最上面一排不变的
- 在经过一段时间的测试之后,苹果终于向所有人推送了 iOS 16.2 和 iPadOS 16.2 正式版系统。iOS 16.2正式版内部版本号
- 您可以通过两种方式修改Word 2007模板:您可以直接在模板中进行更改,也可以通过对基于模板的文档进行更改来间接修改它。第二种方法仅对模板
- 如果要了解一个Excel工作表中有哪些单元格包含公式,可以用“定位”的方法: 1.选择工作表中的某个单元
- 这篇教程是向脚本之家的朋友分享excel将*替换为其他符号方法,操作很简单的,对于不知道怎么操作的朋友可以参考本文,希望能对大家有所帮助在使
- 不管是日常生活还是工作事物,现在都离不开office软件很多抱着 Mac 的同学,在处理文档的时候,都会突然觉得Mac不香了, 悄悄地打开
- Q:我怎么知道工作表单元格的默认大小是多少?也就是说,在标准状态下,单元格的长和宽各是多少?如何将其变为正方形?A:在工作表中,当我们将鼠标
- 很多用户都知道连接网络出现感叹号,或者连接不上网络如何去解决,但是几乎很少遇见连接上网络,还不能用网的情况,最近就有一位用户明明连接上网络了
- 工作中总有那么个情况,手上只有纸质文档,却不知道电子档跑哪里去了,而有很多时候需要把图片里的表格转换到Excel中。今天我小编就教大家如何使
- win10的日志可以帮助用户详细了解系统的使用情况。很多小伙伴在启动系统时遇到srttrail.txt的代码,导致系统无法启动。如何解决这个
- 在日常excel工作表格制作时,经常需要制作斜线表头来表示二维表的不同内容。那么在excel中怎么绘制斜线表头?下面小编就为大家介绍斜线表头
- Excel中的数字单位还要一个个添加?这样操作麻烦又浪费时间,教你批量操作的技巧。1、选中要添加单位的单元格,右键设置单元格格式-自定义,在
- 在我们使用excel进行办公的时候,难免会存在着一些重要的文件,所以,我们通常都会给这些重要文件加密码,但具体该如何设置呢?下面随小编一起看
- 大家好!最近不少学生朋友在忙着写论文。这次我们看一下页码的问题。页码是论文必不可少的部分。今天本文就为大家带来Word2007论文页码设置大
- Excel表格是一款很多人都在使用的数据处理软件,功能非常丰富且实用。在Excel表格中,我们有时候会需要在数据区域中隔列插入一列,以补充录
- Win10系统总是不断地更新保证用户的使用体验,一般情况下,用户也会启动win10系统的自动更新操作,但是有用户反映他们的Windows10