相关文章推荐
神勇威武的消炎药  ·  excellvba引用计算机用户名,EXCE ...·  4 月前    · 
知识渊博的紫菜  ·  Excel 效能 - 優化效能阻礙的秘訣 ...·  4 月前    · 
迷茫的马克杯  ·  从VBA中的范围中删除特殊字符开发者社区·  2 月前    · 
知识渊博的热带鱼  ·  在 Power BI Desktop ...·  2 月前    · 
性感的沙滩裤  ·  SendKeys statement ...·  2 周前    · 
活泼的抽屉  ·  ts任意属性的对象数组声明、动态属性_ts ...·  1 年前    · 
有胆有识的炒饭  ·  python – ...·  2 年前    · 
温暖的香烟  ·  推荐一些python的论坛,一起学习才有意思 ...·  2 年前    · 
任性的冰淇淋  ·  加载或刷新时,React读取嵌套的JSON数 ...·  2 年前    · 
仗义的沙发  ·  【千锋Java】RabbitMQ如何保证顺序 ...·  2 年前    · 
Code  ›  VBA: 冒泡排序法的代码实现开发者社区
遍历 vba
https://cloud.tencent.com/developer/article/2113355
没读研的奔马
2 年前
作者头像
Exploring
0 篇文章

VBA: 冒泡排序法的代码实现

前往专栏
腾讯云
开发者社区
文档 意见反馈 控制台
首页
学习
活动
专区
工具
TVP
文章/答案/技术大牛
发布
首页
学习
活动
专区
工具
TVP
返回腾讯云官网
社区首页 > 专栏 > 数据处理与编程实践 > VBA: 冒泡排序法的代码实现

VBA: 冒泡排序法的代码实现

作者头像
Exploring
发布 于 2022-09-20 14:30:42
408 0
发布 于 2022-09-20 14:30:42
举报

文章背景: 冒泡排序(Bubble Sort)是排序算法里面比较简单的一个排序,在工作中用到的并不多,主要是想了解其中的算法思想,从而让我们的思维更加开阔。

基本原理:

  • 从序列头部开始遍历,两两比较,如果前者比后者大,则交换位置,直到最后将最大的数(本次排序最大的数)交换到无序序列的尾部,从而成为有序序列的一部分;
  • 下次遍历时,此前每次遍历后的最大数不再参与排序;
  • 多次重复此操作,直到序列排序完成。
  • 由于在排序的过程中总是小数往前放,大数往后放,类似于气泡逐渐向上漂浮,所以称作冒泡排序。 程序框图: (示例:一维数组,从小到大排列。)

代码实现:

Option Explicit
Sub BubbleSort()
    Dim n As Integer, temp As Double
    Dim i As Integer, j As Integer
    n = Selection.Rows.Count
    For i = 2 To n
        For j = 2 To n - i + 2
            If Selection.Cells(j - 1, 1) > Selection.Cells(j, 1) Then
                temp = Selection.Cells(j, 1)
                Selection.Cells(j, 1) = Selection.Cells(j - 1, 1)
                Selection.Cells(j - 1, 1) = temp
            End If
 
推荐文章
神勇威武的消炎药  ·  excellvba引用计算机用户名,EXCEL VBA 取当前登录 用户名的多种实现方法
4 月前
知识渊博的紫菜  ·  Excel 效能 - 優化效能阻礙的秘訣 | Microsoft Learn
4 月前
迷茫的马克杯  ·  从VBA中的范围中删除特殊字符开发者社区
2 月前
知识渊博的热带鱼  ·  在 Power BI Desktop 中使用自訂格式字串 - Power BI | Microsoft Learn
2 月前
性感的沙滩裤  ·  SendKeys statement (VBA) | Microsoft Learn
2 周前
活泼的抽屉  ·  ts任意属性的对象数组声明、动态属性_ts 任意对象-CSDN博客
1 年前
有胆有识的炒饭  ·  python – 导入错误:找不到paho.mqtt.client_no module named 'paho-CSDN博客
2 年前
温暖的香烟  ·  推荐一些python的论坛,一起学习才有意思!_讨论代码的论坛网站-CSDN博客
2 年前
任性的冰淇淋  ·  加载或刷新时,React读取嵌套的JSON数据失败。
2 年前
仗义的沙发  ·  【千锋Java】RabbitMQ如何保证顺序消费? - 知乎
2 年前
今天看啥   ·   Py中国   ·   codingpro   ·   小百科   ·   link之家   ·   卧龙AI搜索
删除内容请联系邮箱 2879853325@qq.com
Code - 代码工具平台
© 2024 ~ 沪ICP备11025650号