每列数据位置重新排序问题

kandhong88 · 发表于 2024-1-26 08:33

老师：
我想请教的是：每列数据位置重新排序问题。
思路如下：
X列至AC列有数据，想要实现的效果是：将V列、W列、X列、Y列、Z列、AA列、AB列、AC列位置打乱，随机重新排列
（即：把列的位置改变，列中数据不改变）

每列重新排序.rar (11.68 KB, 下载次数: 8)

ykcbf1100 · 发表于 2024-1-26 09:01

没明白意思，列随机打乱，重新排序，是改变列号吗？

无关岁月 · 发表于 2024-1-26 09:31

猜一个

每列重新排序.7z (18.7 KB, 下载次数: 3)
屏幕截图 2024-01-26 093005.png

darklesson · 发表于 2024-1-26 09:31

我理解楼主的意思是整列随机变位置，因为楼主描述是列中的数据不变：
Sub test()
VBA.Randomize
Dim ArrA, ArrB, rndC, c%, i%, k%

Range("AE4:AL44").ClearContents
ArrA = Range("V4:AC44")
c = UBound(ArrA, 2): r = UBound(ArrA)
ReDim ArrB(1 To r, 1 To c): ReDim rndC(1 To c)
For i = 1 To c
rndC(i) = i
Next

For i = 1 To c
k = Int(Rnd * c) + 1: m = rndC(i)
rndC(i) = rndC(k): rndC(k) = m
Next

For i = 1 To c
For m = 1 To r
ArrB(m, rndC(i)) = ArrA(m, i)
Next m
Next i

Range("Ae4").Resize(r, c) = ArrB
End Sub

kandhong88 · 发表于 2024-1-26 10:49

ykcbf1100 发表于 2024-1-26 09:01
没明白意思，列随机打乱，重新排序，是改变列号吗？

ykcbf1100老师：
每列数据重新排序的问题。
思路如下：
把"数据区"每一列随机互换位置（保证每列原有数据不改变）

kandhong88 · 发表于 2024-1-26 10:51

ykcbf1100 发表于 2024-1-26 09:01
没明白意思，列随机打乱，重新排序，是改变列号吗？

ykcbf1100老师：

每列数据重新排序的问题。
思路如下：
把"数据区"每一列随机互换位置，但要保证每一列原有数据不改变。

每列重新排序.rar (11.76 KB, 下载次数: 1)

kandhong88 · 发表于 2024-1-26 10:54

无关岁月发表于 2024-1-26 09:31
猜一个

无关岁月老师：
关于每列数据重新排序的问题。
思路如下：
把"数据区"每一列随机互换位置，但要保证每一列原有数据不改变。

每列重新排序.rar (11.76 KB, 下载次数: 1)

无关岁月 · 发表于 2024-1-26 11:00

kandhong88 发表于 2024-1-26 10:54
无关岁月老师：
关于每列数据重新排序的问题。
思路如下：

就是按这个思路做的啊

ykcbf1100 · 发表于 2024-1-26 11:10

参与一下。。。

Sub 随机交换列() '//2024.1.26
arr = [{1,2,3,4,5,6,7,8}] '//交换列数
With Sheets("Sheet1")
r = .Cells(Rows.Count, "V").End(3).Row
brr = .[V1].Resize(r, 8)
For i = 1 To 8
st = Int(UBound(arr) * Rnd + 1)
If i <> st Then
For j = 1 To 8
temp = brr(j, i)
brr(j, i) = brr(j, st)
brr(j, st) = temp
Next j
End If
Next i
.Range("V:AC").NumberFormatLocal = "@"
.[V1].Resize(r, 8) = brr
End With
End Sub

复制代码

ykcbf1100 · 发表于 2024-1-26 11:11

kandhong88 发表于 2024-1-26 10:51
ykcbf1100老师：

每列数据重新排序的问题。

附件供参考。。。

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

[求助] 每列数据位置重新排序问题

评分

评分

评分