作者：绿色风
分类：
时间：2022-08-18
浏览：122
楼主
DJ_Soo |
Q：Split之后下界就会变成0，怎么变成1而不破坏数组呢?
A：首先我们得知道如何调整数组的默认下界,可以参考此贴:
[VBA] 如何改变数组的默认下界值？ http://www.exceltip.net/thread-4920-1-1.html
好,那么我们先设置option base 1
但是如果我们用了Split,会发现如下代码所出现的问题:(代码只是示例,请勿纠结于是否冗余)
- Sub Test1()
- Dim arr As Variant
- Dim arrRes As Variant
- Dim i As Long
- Dim Str As String
- arr = Application.Transpose([A1:A21])
- Str = Join(arr, "|")
- arrRes = Split(Str, "|")
- Stop
- End Sub
Stop之后查看本地代码,发现数组arrRes的框架为:arrRes(0 to 20)
这样的话,我设置了option base 1对此不起作用,那么如何解决呢?
看以下代码:
- Sub Test2()
- Dim arr As Variant
- Dim arrRes As Variant
- Dim i As Long
- Dim Str As String
- arr = Application.Transpose([A1:A21])
- Str = Join(arr, "|")
- arrRes = Split(Str, "|")
- ReDim Preserve arrRes(1 To UBound(arrRes) - LBound(arrRes) + 1)
- Stop
- End Sub
这样,我们就可以发现,ReDim Preserve可以在不破坏数组的情况下将数组的结构改变.
 Redim Perserve.rar
|
2楼
kevinchengcw |
来学习一下！
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一