作者：绿色风
分类：
时间：2022-08-17
浏览：226
楼主
水星钓鱼 |
Q：如何将一维数组的元素按颠倒的次序重新放置？
A：鉴于数组的元素的赋值有很多种形式，这里仅举一列。主要是为了表达一种思路。- Sub Example()
- '定义Variant类型的arr变量 _
- 使其容纳Split函数返回的数组
- Dim arr
- Dim num As Long
- '通过split函数给arr赋值，使 _
- 其变成为一维数组，构造这个 _
- 例子的演示数组
- arr = Split("a b c d e f g")
- '为了观察数组元素的次序的变化 _
- 先将数组的元素按照原来的顺 _
- 序输出到一列单元格中
- For num = 0 To UBound(arr)
- Cells(num + 1, 1).Value = arr(num)
- Next
- '这句是数组元素逆序的核心句, _
- 通过三个函数的结合，实现数组 _
- 元素的逆序
- arr = Split(StrReverse(Join(arr)))
- '将颠倒了次序的数组的元素 _
- 重新输出到一列单元格中
- For num = 0 To UBound(arr)
- Cells(num + 1, 2).Value = arr(num)
- Next
- End Sub
|
2楼
棉花糖 |
- For num = 0 To UBound(arr)
- Cells(num + 1, 1).Value = arr(num)
- Next
改为- Range("A1:A" & UBound(arr) + 1) = Application.WorksheetFunction.Transpose(arr)
速度会快很多，一次性赋值，比循环会省很多时间 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一