当前位置： 文档下载 > 所有分类 > IT/计算机 > EXCEL自动排序VBA代码可实现excel表中数据的自动排序。
Sub 单列自动排序()
'a为需要排序的数组，up为True则为升序排列，为False，则为降序排列。
Dim up As Boolean
Dim ranktype As String
Dim i As Integer, j As Integer
Dim temp As Double, temp1 As Integer
Dim a(1000, 3) As Double 'a数组定义大小要超过排序数，此处是按排序数在1000个以内定义
'*********************
colnum = 1 '排序数据列
rankcolnum = 2 '排序码列
startrow = 5 '排序数据起始行号
endrow = 135 '排序数据末尾行号
ranktype = "降序" '排序方式，“升序”或“降序”
If ranktype = "升序" Then
up = True
Else
up = False
End If
For i = 1 To endrow - startrow + 1
a(i, 0) = Val(ActiveSheet.Cells(startrow + i - 1, colnum))
a(i, 1) = startrow + i - 1
a(i, 2) = 0
Next
'*********************
For i = 1 To endrow - startrow '进行n-1轮比较
For j = endrow - startrow + 1 To i + 1 Step -1 '从n到i个元素两两进行比较
If up Then '判断升降序
If a(j, 0) < a(j - 1, 0) Then
temp = a(j, 0)
temp1 = a(j, 1)
a(j, 0) = a(j - 1, 0)
a(j, 1) = a(j - 1, 1)
a(j - 1, 0) = temp
a(j - 1, 1) = temp1
End If
Else
If a(j, 0) > a(j - 1, 0) Then
temp = a(j, 0)
temp1 = a(j, 1)
EXCEL VBA:双击列标题自动排序的 VBA 代码本文标签: EXCEL VBA , VBA , 代码 , 列标题 , 双击 , 自动排序 通过以下的 VBA 代码,将其放到工作表的双击事件...
10页 免费 Excel与VBA编程中的常用... 6页 免费 编写高效Excel VBA代码的... 21页 免费 EXCEL自动排序VBA代码 4页 免费喜欢此文档的还喜欢 ...
Excel中对单元格进行自动填充的VBA代码_计算机软件及应用_IT/计算机_专业资料。图示...编写高效Excel VBA代码的... 21页 免费 EXCEL自动排序VBA代码 4页 免费 编写...
EXCEL VBA 实用代码收集_计算机软件及应用_IT/计算机...(39 或 192).Show 排序 Application.Dialogs(40)....End Sub 如果想自动恢复,把恢复代码放入 Workbook_...
经典Excel VBA代码_计算机软件及应用_IT/计算机_专业资料。经典Excel VBA代码经典...‘自动调整当前工作表 A 列的列宽 ActiveSheet.Cells.SpecialCells(...
EXCEL_VBA常用代码实战大全_计算机软件及应用_IT/计算机...单元格自动进入编辑状态 ---...控件中排序--- 322 Listview 控件的图标设置 ---...
EXCEL VBA 排序computer 2010-02-26 14:55:26 阅读233 评论0 字号:大中小 ...EXCEL自动排序VBA代码 4页 免费 Excel_VBA教程 332页 免费 Excel VBA程序设计 ...
N-99 999.99 货品 N 999 现在我想在 EXCEL 的单元格中输入货号,通过 VBA 代码自动 从数据表中查找出相应的记录,并在相邻的列分别自动录入 货品、规格、单价...
Excel VBA排序算法_计算机软件及应用_IT/计算机_专业资料。Excel VBA排序算法 2007...EXCEL自动排序VBA代码 4页 免费 EXCEL_VBA方法参考手册 39页 免费 基于VBA和EX...
基于VBA和EXCEL的学生成绩排序_IT/计算机_专业资料。基于 VBA和EXCEL 的学生成绩...Excel与VBA程序设计精讲 34页 1下载券 EXCEL自动排序VBA代码 4页 免费 Excel使...
我要评论