今日的内容是"VBA之EXCEL应用"的第七章"循环在VBA中的利用"。这讲是第三节"利用循环比较对某列数值进行排序"。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，案例众多。大家可以非常容易的掌握相关的知识，这套教程面向初学人员，共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。

第三节 利用循环比较对某列数值进行排序

大家好，我们这讲的内容是对某列数值进行排序处理，排序主要利用了循环和数值的比较，从而达到判断大小的目的。排序在Excel学习中有着非常重要的位置，在各种介绍中，排序也有着各种理论，今日我们讲的就是冒泡排序的理论。

1 排序的实现场景

我们先看下面的工作表界面，对于给定的这列数据，我们要实现按照单元格值从小到大的顺序进行排序，如果是在工作表操作的时候，我们可以选中这列，然后点击，数据，排序即可实现，但是我们在VBA中要解释的是后台操作的问题，就是后台是如何实现这种排序操作的。当然，对于VBA而言，这种实现的方法也有很多，但原理就是几种。有兴趣的朋友可以查阅相关的资料，在我的其他教程中对排序有一定的讲解，大家可以参考。

2 实现排序的思路分析

下面我们来分析一下如何实现排序。所谓排序就是按照规则实现数值按照大小位置的顺序排列。

1）第一轮循环，对于第一个数值，我们将他和其他的数值进行一一比较，如果值大就将比较值和被比较值交换位置。这样，经过第一轮循环，我们就可以把所有数据中的最小值放到第一的位置。

2）第二轮循环，对于第二个数值，在剩余的数值中仍要进行一一比较，并交换位置。这样在剩余的数值中仍旧求出了最小的数值，放在了第二的位置。

3）第n轮循环，对于第n个数值，在剩余的数值中仍要进行一一比较，并交换位置。这样在剩余的数值中仍旧求出了最小的数值，放在了第n的位置。

以上的过程就如同冒泡一样，一个个的泡泡冒出来，就完成了所有数据的排序。

3 实现排序的代码及代码解读

我们看下面的代码：

Sub mynzC() '利用循环比较对某列数字进行排序

Dim i, j, temp As Integer, myRng As Range

Set myRng = Range("A1").CurrentRegion

'第一重循环

For i = 1 To myRng.Count

'第二重循环

For j = i + 1 To myRng.Count

If myRng.Cells(j) < myRng.Cells(i) Then

'数值交换位置

temp = myRng.Cells(i)

myRng.Cells(i) = myRng.Cells(j)

myRng.Cells(j) = temp

End If

Next j

Next i

End Sub

代码截图：

代码讲解：

1） Set rng = Range("A1").CurrentRegion 我们用A列中的数字初始化Range对象myRng。我们对此使用CurrentRegion属性。CurrentRegion是有用的，当我们不知道一个范围的确切边界时就可以利用这个属性。

2) For j = i + 1 To myRng.Count

If myRng.Cells(j) < myRng.Cells(i) Then

'数值交换位置

temp = myRng.Cells(i)

myRng.Cells(i) = myRng.Cells(j)

myRng.Cells(j) = temp

End If

Next j

以上代码实现一重冒泡，实现一个最小值的处理。注意这里的循环是For j = i + 1 To myRng.Count 是从i + 1开始的，这是为了缩短程序的运行时间。

3）For i = 1 To myRng.Count 对于第一重循环，是冒泡的次数，到最后的一个数值时，已经无泡可冒了。

最后我们看一下代码的执行效果：

最后，实现了我们的排序需求。

今日内容回向：

1） 冒泡排序的思路是怎么样的？

2） 为什么要用两重循环呢？第二重循环从哪里开始的呢？为什么？

本讲内容参考程序文件：工作簿07.xlsm

分享成果，随喜正能量

VBA的应用及学习方法：

VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！

我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了七部VBA专门教程。

第一套：VBA代码解决方案 是VBA中各个知识点的讲解，教程共147讲，覆盖绝大多数的VBA知识点，提供的程序文件更是一座不可多得的代码宝库，是初学及中级人员必备教程；目前这套教程提供的版本是修订第二版，程序文件通过32位和64位两种OFFICE系统测试。

第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。目前这套教程提供的是修订第一版教程，程序文件通过32位和64位两种OFFICE系统测试。

第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。

第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。这套教程是第一套教程（修订一版）的视频讲解，视频更易接受。

第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了，领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。

第六套教程：VBA信息获取与处理，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。

第七套教程：VBA之EXCEL应用 这是一部初级教程这部教程共三册，从从创建宏、对话框、工作簿和工作表对象、单元格对象等基础内容讲起，到循环结构、错误处理、字符串操作、日期和时间、事件、数组应用，函数过程等方面，一直讲解到控件和窗体对象的应用都是我们提高自己EXCEL水平的必须。

以上各教程学习顺序：7→1(或者4)→3→2→6→5。其中第四套是对第一套的视频讲解，所以第一和第四只选其一即可。