我的Excel包含三列数据

我有一个Excel里面有三列数据。我想通过VB实现排序功能

Sub Sort1()

ActiveSheet.Sort.SortFields.Clear

ActiveSheet.Sort.SortFields.Add Key:=Range(＂A2:A＂ & Range(＂A1＂).CurrentRegion.Rows.Count) _

, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

ActiveSheet.Sort.SortFields.Add Key:=Range(＂B2:B＂ & Range(＂A1＂).CurrentRegion.Rows.Count) _

, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveSheet.Sort

.SetRange Range(＂A1:C＂ & Range(＂A1＂).CurrentRegion.Rows.Count)

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub

VB数组排序问题

如果在excel表格的A列中依次输入0-11共12个数字，在B列中对应地输入12个随机数，然后按B列排一下序，A列中的数字就变成随机排列的了

在这里使用同样的思路，只不过把二维表格换成二维数组即可，代码如下：

Dim Matrix(0 To 11, 0 To 1) As Single

Dim i As Integer, j As Integer

Dim sngTemp As Single

Randomize

'初始化数组，使每“行”第一个数字为行号，第二个数字为随机大小的数字

For i = 0 To 11

Matrix(i, 0) = i

Matrix(i, 1) = Rnd(100)

Next

Text1.Text = ＂＂

'由于数组较小，这里使用冒泡排序，依次筛选出第N大的数字并显示到Text1中

For i = 0 To 11

For j = i + 1 To 11

If Matrix(j, 1) > Matrix(i, 1) Then

sngTemp = Matrix(i, 1)

Matrix(i, 1) = Matrix(j, 1)

Matrix(j, 1) = sngTemp

sngTemp = Matrix(i, 0)

Matrix(i, 0) = Matrix(j, 0)

Matrix(j, 0) = sngTemp

End If

Next

Text1.Text = Text1.Text & vbCrLf & Matrix(i, 0)

Next

EXCEL VBA宏语言排序问题附有图片

问题1

迷你天猫商城

迷你天猫商城是一个基于Spring Boot的综合性B2C电商平台，需求设计主要参考天猫商城的购物流程：用户从注册开始，到完成登录，浏览商品，加入购物车，进行下单，确认收货，评价等一系列操作。 作为迷你天猫商城的核心组成部分之一，天猫数据管理后台包含商品管理，订单管理，类别管理，用户管理和交易额统计等模块，实现了对整个商城的一站式管理和维护。所有页面均兼容IE10及以上现代浏览器。部署方式1、项目

0

查看详情

Private Sub CommandButton1_Click()

Dim i, j As Long

Sheets(＂sheet2＂).Cells.ClearContents

Sheets(＂sheet1＂).Cells.Copy

Sheets(＂sheet2＂).Select

Sheets(＂sheet2＂).Range(＂A1＂).Select

ActiveSheet.Paste

i = 3

Do While Sheets(＂sheet2＂).Range(＂A＂ & i).Value ＂＂

For j = 2 To i - 1

If Sheets(＂sheet2＂).Range(＂A＂ & i).Value > Sheets(＂sheet2＂).Range(＂A＂ & j).Value Then

Else

Sheets(＂sheet2＂).Rows(i & ＂:＂ & i).Cut

Sheets(＂sheet2＂).Rows(j & ＂:＂ & j).Insert Shift:=xlDown

Exit For

End If

Next j

i = i + 1

Loop

End Sub

问题2

Private Sub CommandButton1_Click()

Dim i, j As Long

Sheets(＂sheet2＂).Cells.ClearContents

Sheets(＂sheet1＂).Cells.Copy

Sheets(＂sheet2＂).Select

Sheets(＂sheet2＂).Range(＂A1＂).Select

ActiveSheet.Paste

i = 3

Do While Sheets(＂sheet2＂).Range(＂A＂ & i).Value ＂＂

For j = 2 To i - 1

If Sheets(＂sheet2＂).Range(＂C＂ & i).Value & Sheets(＂sheet2＂).Range(＂D＂ & i).Value > Sheets(＂sheet2＂).Range(＂C＂ & j).Value & Sheets(＂sheet2＂).Range(＂D＂ & j).Value Then

Else

Sheets(＂sheet2＂).Rows(i & ＂:＂ & i).Cut

Sheets(＂sheet2＂).Rows(j & ＂:＂ & j).Insert Shift:=xlDown

Exit For

End If

Next j

i = i + 1

Loop

End Sub

以上就是我的Excel包含三列数据的详细内容，更多请关注php中文网其它相关文章！