行随机打乱

dong130 · 发表于 2024-8-27 17:38

用vba怎么实现表格中所有行随机打乱（B列中内容一样的行一起动，不要分开，绑定在一起）

大神们帮忙看看

chxw68 · 发表于 2024-8-27 17:45

Sub test()
Dim r%, i%
Dim arr, brr
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Randomize Timer
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
c = .Cells(1, .Columns.Count).End(xlToLeft).Column
ReDim arr(1 To r, 1 To 1)
For i = 2 To UBound(arr)
arr(i, 1) = Rnd()
Next
.Cells(1, c + 1).Resize(UBound(arr), 1) = arr
.Range("a1").Resize(r, c + 1).Sort key1:=.Cells(2, c + 1), order1:=xlAscending, Header:=xlYes
.Columns(c + 1).Clear
End With
End Sub

复制代码

chxw68 · 发表于 2024-8-27 17:45

利用辅助列排序。

dong130 · 发表于 2024-8-27 17:58

chxw68 发表于 2024-8-27 17:45
利用辅助列排序。

非常感谢，但是这个B列内容一样的绑一起，一起随机换行，就是他们一直是绑一起跟其他不同内容的打乱

小凡、、、 · 发表于 2024-8-27 18:01

本帖最后由小凡、、、于 2024-8-27 18:19 编辑

------------

小凡、、、 · 发表于 2024-8-27 18:03

允许ac列内容随机吗，比如12然后10然后11这样排序A列和对对应的c列，刚回复卡审核了

dong130 · 发表于 2024-8-27 18:08

小凡、、、发表于 2024-8-27 18:03
允许ac列内容随机吗，比如12然后10然后11这样排序A列和对对应的c列，刚回复卡审核了

可以的，B列内容一样的在一起就行，可以内部打乱行

chxw68 · 发表于 2024-8-27 18:11

前面理解错了。

dong130 · 发表于 2024-8-27 18:30

chxw68 发表于 2024-8-27 18:11
前面理解错了。

厉害，感谢感谢，利用辅助列排序是指A列的数字吗

cidanji · 发表于 2024-8-27 18:30

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