请问对扩展选定区域进行排序怎么写

gzminge · 发表于 2024-8-14 22:39

本帖最后由 gzminge 于 2024-8-15 21:53 编辑

比如，对A列和F列进行升序排序，并让附近的B列和E列扩展区域也一起跟着排序，应该怎么写程序？谢谢。

新建 XLSX 工作表.rar (10.36 KB, 下载次数: 3)

ynzsvt · 发表于 2024-8-15 05:45

用CurrentRegion拓展区域。
排序还得提供标题行行号，让计算机自己猜也可以但容易猜错的。

liulang0808 · 发表于 2024-8-15 07:53

楼主录制一段宏代码，然后参考看下

wengjl · 发表于 2024-8-15 08:15

你对一列数据会排序，那就会对一个区域的数据以这列为依据的排序。具体变化在交换的处理
一列时，是上下二单元格交换，上单元格赋到A，下单元格赋到上格，再A赋到下单元格，完成交换

想一块数据跟着排序，交换时变成
上一行赋给数组ARR（用循环完成），下一行赋到上一行（用循环完成），再将数组ARR的值赋到下一行（还是用循环完成）

就这样一点变化！

ykcbf1100 · 发表于 2024-8-15 08:35

不上附件的求助，基本就是空对空，一起浪费时间。

gzminge · 发表于 2024-8-15 21:46

ykcbf1100 发表于 2024-8-15 08:35
不上附件的求助，基本就是空对空，一起浪费时间。

谢谢提醒，已经上传附件，请指点。

ykcbf1100 · 发表于 2024-8-16 07:50

gzminge 发表于 2024-8-15 21:46
谢谢提醒，已经上传附件，请指点。

附件供参考。。。

ykcbf1100 · 发表于 2024-8-16 07:51

参与一下。。。

Sub ykcbf() '//2024.8.16 排序
r = Cells(Rows.Count, 2).End(3).Row
Set Rng = [a1].Resize(r, 2)
Rng.Sort Rng.Columns(2), 1
r = Cells(Rows.Count, 6).End(3).Row
Set Rng = [e1].Resize(r, 2)
Rng.Sort Rng.Columns(2), 1
MsgBox "OK！"
End Sub

复制代码

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

[求助] 请问对扩展选定区域进行排序怎么写

评分

评分