vba 二维数组多列排序算法

最新推荐文章于 2024-06-03 09:37:22 发布
最新推荐文章于 2024-06-03 09:37:22 发布
阅读量626 收藏 1
点赞数
CC 4.0 BY-SA版权
文章标签： 排序算法 算法 数据结构
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/weixin_42610010/article/details/129523119
此VBA子程序演示了如何使用冒泡排序算法对二维数组的特定列进行升序排序。通过两层循环遍历数组，当当前元素大于下一个元素时，进行值的交换，从而实现排序。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

VBA 中可以使用简单的冒泡排序算法对二维数组中的多列进行排序。下面是一个例子：

SubSortArray(arr As Variant, col As Long)
    Dim i As Long, j As Long, temp As Variant
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = i + 1 To UBound(arr, 1)
            If arr(i, col) > arr(j, col) Then
                temp = arr(i, col)
VBA中的一维数组，二维数组排序问题
zhangdabai1的博客
12-28 1660
【代码】VBA中的一维数组，二维数组排序问题。
VBA 二维数组冒泡排序实例
m0_46067540的博客
10-06 3210
Private Sub test() Dim arr() Sheets("sheet1").Select Row = Sheets("sheet1").UsedRange.Rows.count col = Sheets("sheet1").UsedRange.Columns.count ReDim arr(1 To Row, 1 To 6) arr = Range("a1:F" & Row) arr = bubblesort(arr, 0, 2, 2) Range("j1:O" &amp...
VB二维数组排序源码
04-24
VB二维数组排序源码
二维数组排序模块
jinggangshi的专栏
04-05 1508
'二维数组排序 'idx排序列 ；colcount数组列数；rowcount行数 ； a需要排序的数组 '本模块行列与Excel表格习惯相同，与数组行列定义相反，使用中需要注意 Public Sub OrderArray(ByVal idx%, ByVal colcount%, ByVal rowcount%, ByRef a() As String) Dim row%, col2%, t
Excel·VBA二维数组S形排列
hhhhh_51的博客
04-11 1413
将数组转为S形排列的二维数组，类似考场座位S形顺序
vba封装归并排序
lyfegf的博客
09-28 537
归并排序解释代码如下案例 解释 主函数GuiBingPaiXu 参数：GuiBingPaiXu(ByVal arr, Optional sj = 1, Optional nCol = 1) arr是排序数组，可以1维或者2维 sj是升序还是降序，默认1升序，非1是降序 nCol是二维数组要排序得第几列，默认第一列 代码如下 '1参数是排序数组，可以1维或者2维 '2参数是升序还是降序，默认1升序，非1是降序 '3参数是2维数组要排序得第几列，默认第一列 Function GuiBingPaiXu(ByV
二维数组冒泡排序
最新发布
03-26
在这种情况下，我们将二维数组中的每一行单独提取出来并应用冒泡排序算法。最终的结果是一个逐行有序的二维数组。 ```vba Sub BubbleSortByRow() Dim arr(1 To 3, 1 To 4) As Integer ' 定义一个3x4的二维数组 ...
VBA实战(Excel)(5)：介绍一种排列组合算法
nianfen的博客
06-03 1270
假设第一次有5个情况要填，第一个条件20种情况，第二个5种，第三个40种，第四个10种，第五个4种。4.3从“排列组合”一维数组的第一位开始，第一个条件有n种情况，就循环n次赋值，每次只变第一位，其他位复制，第二个条件同理，于是变成了一个相乘的关系。有多个条件，条件个数不定，每个条件有若干种情况，情况个数不定，输出所有条件可能的情况的排列组合。4.1先把条件列转为二维数组，可以得出当前有多少个条件，每个条件多少种情况。此实例涉及商业保密，不便上传文件，想要演示实例，请私信博主。
关于VBA中一、二维有序数组随机排序问题
zhangdabai1的博客
12-30 882
在一二维数组排序问题之后，想到了有序数组随机排序问题，随机排序可以应用在一些常见的场景中，比如：选择题的选项顺序，题目的顺序，人员名单的顺序等等.....，问了AI之后发现随机排序比前面的有序排序简单多了，在此分享给大家：
二维数组排序按照某个字段正序或倒序排列 函数
03-11
解决二维数组的排序问题 二维数组排序按照某个字段正序或倒序排列 函数
VB.NET二维数组快速排序（更新）
01-09
VB.NET二维数组快速排序（更新） 'OldArrays(),为排序二维数组;NewArrays(),为存放结果数组,SortColumnsOrOrders()，传递排序参数数组,偶数个为排序列号，奇数为升降序，0为升序，1为降序；FieldRow，是否有字段行（第一行），true为有字段行，false为无字段行，默认为无字段行；TotalRow，是否有统计行（最后一行），true为有统计行，false为无统计行，默认为无统计行；
VBA中数组的排序
m0_74737305的博客
10-15 2528
使用冒泡排序算法对一个整数数组进行升序排序。冒泡排序的基本思想是比较数组中相邻的元素，并交换它们，直到整个数组变得有序。
二维数组排序--指定数组列排序
berry sky
08-16 2827
1.  排序方法 //排序方法 function sysSortArray($ArrayData,$KeyName1,$SortOrder1 = "SORT_ASC",$SortType1 = "SORT_REGULAR"){       if(!is_array(
VBA中实现数组排序的多种方法
热门推荐
James.Duan@优快云
08-25 2万+
VBA里面没有现成的Sort方法可以使用，VBA里面要对数组进行排序，现有的通常做法： 1，通过单元格赋值以后利用工作表里的Sort方法进行排序， 2，通过SQL实现，也需要调用单元格区域存放数据， 3，直接写循环语句通过算法来实现。除了上述方法以外，借助一些其他语言工具与VBA相结合，也能利用现成的排序功能来实现数组排序，而不需要借助表格。 例如JavaScript：JavaScript里
一个VBA 支持多列（可大于4列）排序的函数
RosickyNewBee的专栏
02-19 4052
 **************************************************************==============================================================- Name:SortSheet- Author:Chen- Last Change: 09-1-19 by Chen
VBA多列(多字段)冒泡排序
weixin_44809243的博客
09-27 679
VBA多列冒泡排序 // An highlighted block Sub t() ' maopaoSort Sheets("FACList"), Array(2, 4, 3) maopaoSort Sheets("OBDList"), Array(3, 5, 4) End Sub Sub maopaoSort(sh As Worksheet, sortSZ) Dim lastRow As Long, lastCol As Long Dim targetRng As
vb应用--快速排序-法实现二维数组的指定列排序
qiu5208的专栏
03-09 6421
 演示部分在窗口加一个command按钮启动后把窗体最大化,方便观看.****************************************Private Sub Command1_Click()Sub Command1_Click()这里不妨用10000个元素,事实上在窗体打出的第一个数字时,排序就已经完成了!!.可以不用再考虑排序的效率了Dim myAy(100
二维数组排序
cyh
11-19 3773
将二维数组的每一行进行从小到大的排序， 主要步骤：将第一行的第一个元素固定，用第一行第二个元素到最后一个元素和第一个元素做比较若后面的大于第一个则交换，在固定第一行第二个元素，将第一行第三个元素和它比较若后面的大则交换 代码//将2维数组每行从小到大排序 #include main() { int a[3][4]={{3,2,1,5},{6,5,4,3},{6,4,3,7}},i,j,t,
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值