万行数据怎样进行列排序？

tte3

各位老师好！

我有万行的数据，怎样按某行数据进行整列排序？
如图
谢谢！

dragonthree

本身就有行排序功能

tte3

dragonthree 发表于 2024-10-29 15:40
本身就有行排序功能

不是行排序，
是重新整理列，按第6行数据来排序列。
谢谢

lcluck2002

遍历复制，复制了接近10万行数据，大概需要3秒钟执行：

tte3

lcluck2002 发表于 2024-10-29 16:02
遍历复制，复制了接近10万行数据，大概需要3秒钟执行：

Option Explicit
Option Base 1
Sub 箭头右1_Click()
Dim arr
Dim brr
Dim i As Long
Dim j As Long
Dim k As Integer
Dim arrSort
arrSort = Range("A6").CurrentRegion
arr = Range("A9").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For k = 1 To UBound(arr, 2) Step 1
For i = 1 To UBound(arr) Step 1
brr(i, arrSort(1, k)) = arr(i, k)
Next i
Next k
Range("T9").Resize(UBound(arr), UBound(arr, 2)) = brr
End Sub

运行了下，没反应？
EXCEL2024

飞天篮球猪

仅供参考...转置10万行，3秒左右

kevinchengcw

直接冒泡

tte3

飞天篮球猪 发表于 2024-10-29 16:27
仅供参考...转置10万行，3秒左右

spl无法使用

大灰狼1976

EXCEL本身就可以选择按行还是按列排序

sdytsxd991122