请教数组怎么排序

zaopzt · 发表于 2024-2-2 14:29

本帖最后由 zaopzt 于 2024-2-2 15:42 编辑

我有一个7行9列的数组arr，怎么用vba实现把相同施工单位和工程工程名称的顺序排列，且相同施工单位和工程名称的日期为升序，输出到工作表下图效果

dragonthree · 发表于 2024-2-2 14:38

录制宏修改就可以

3190496160 · 发表于 2024-2-2 14:40

录制一段三个条件排序的宏就行了吧

ykcbf1100 · 发表于 2024-2-2 14:53

上个附件，可以把代码写给你

zaopzt · 发表于 2024-2-2 15:40

ykcbf1100 发表于 2024-2-2 14:53
上个附件，可以把代码写给你

麻烦你了，说明一下这个表的数据实际上是从另外一个表获取的，我想实现在数组里就排序了，然后再写入工作表

zaopzt · 发表于 2024-2-2 15:41

dragonthree 发表于 2024-2-2 14:38
录制宏修改就可以

怪我没表达清楚，这个表实际是数组输出的结果

zaopzt · 发表于 2024-2-2 15:41

3190496160 发表于 2024-2-2 14:40
录制一段三个条件排序的宏就行了吧

怪我没表达清楚，这个表实际是数组输出的结果

ykcbf1100 · 发表于 2024-2-2 15:52

zaopzt 发表于 2024-2-2 15:40
麻烦你了，说明一下这个表的数据实际上是从另外一个表获取的，我想实现在数组里就排序了，然后再写入工作 ...

附件供参考。。。

ykcbf1100 · 发表于 2024-2-2 15:53

参与一下。。。

Sub ykcbf() '//2024.2.2
arr = Sheets("数据").UsedRange
With Sheets("结果")
.[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
r = .Cells(Rows.Count, 1).End(3).Row
Set Rng = .Range("A2:i" & r)
With Rng
.Parent.Sort.SortFields.Clear
.Sort Key1:=.Item(1), Order1:=1, Key2:=.Item(2), Order2:=1, Key3:=.Item(9), Order3:=1, Header:=2
End With
End With
MsgBox "OK！"
End Sub

复制代码

无关岁月 · 发表于 2024-2-2 15:57

本帖最后由无关岁月于 2024-2-2 16:04 编辑

		自动登录	找回密码
密码			免费注册

[求助] 请教数组怎么排序