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

kandhong88

无关岁月 发表于 2024-1-26 11:00
就是按这个思路做的啊

无关岁月老师：
   您的VBA执行后，原有数据和生成数据不一样。
我想的结果是：列位置改变，但每列原有内容不变。
每列重新排序11.rar (17.49 KB, 下载次数: 0)

2024-1-26 11:22 上传

点击文件名下载附件

无关岁月

kandhong88 发表于 2024-1-26 11:23
无关岁月老师：
   您的VBA执行后，原有数据和生成数据不一样。
我想的结果是：列位置改变，但每列原有 ...

…………………………………………………………………………………………………………………………

kandhong88

darklesson 发表于 2024-1-26 09:31
我理解楼主的意思是整列随机变位置，因为楼主描述是列中的数据不变：
Sub test()
VBA.Randomize

darklesson老师：
   您提供的大作已收悉，完全正解。
   还有一事请教，能否将"结果区"数据格式和"数据区"一样。
   即：都保持三位数显示。
    每列重新排序.rar (17.21 KB, 下载次数: 1)

2024-1-26 11:47 上传

点击文件名下载附件

   

darklesson

kandhong88 发表于 2024-1-26 11:40
darklesson老师：
   您提供的大作已收悉，完全正解。
   还有一事请教，能否将"结果区"数据格式和"数 ...

你好。可以把
Range("AE4:AL44").ClearContents替换成


With Range("AE4:AL44")
.ClearContents
.NumberFormat = "@"
End With

无关岁月

更新一下，前面那个附件好像要闪退
每列重新排序.7z (19.77 KB, 下载次数: 2)

2024-1-26 12:18 上传

点击文件名下载附件

yynrzwh

Sub 宏2()
'
' 宏2 宏
'

'
ar = Array(22, 23, 24, 25, 26, 27, 28, 29)
VBA.Randomize
For i = 1 To 4
    c1 = Int(8 * Rnd)
    Columns(ar(c1)).Cut
    Columns(30).Insert Shift:=xlToRight
Next i

End Sub

yynrzwh

Sub 宏2()
'
' 宏2 宏
'

'
ar = Array(22, 23, 24, 25, 26, 27, 28, 29)
VBA.Randomize
For i = 1 To 4
    c1 = Int(8 * Rnd)
    Columns(ar(c1)).Cut
    Columns(30).Insert Shift:=xlToRight
Next i

End Sub

yynrzwh

1. Sub 宏2()
   
2. '
   
3. ' 宏2 宏
   
4. '
   
5. 
   
6. '
   
7. ar = Array(22, 23, 24, 25, 26, 27, 28, 29)
   
8. VBA.Randomize
   
9. For i = 1 To 4
   
10.     c1 = Int(8 * Rnd)
    
11.     Columns(ar(c1)).Cut
    
12.     Columns(30).Insert Shift:=xlToRight
    
13. Next i
    
14. 
    
15. End Sub
    

复制代码

准提部林

保證每列都換了位置???
如: 1234, 不能變 3241...2沒換???

gwjkkkkk

Option Explicit
Sub test2()
    Dim br, i&
    br = [V4].CurrentRegion
    Call arrGetRnd2(br, True)
    With [AE4].Resize(UBound(br), UBound(br, 2))
        .NumberFormatLocal = "@"
        .Value = br
    End With
End Sub
Function arrGetRnd2(ByRef ar, Optional ByVal isCol As Boolean)
    Dim xNum&, i&, j&, m&, n&, vTemp
    Randomize
    m = UBound(ar): n = UBound(ar, 2)
    If isCol Then vTemp = m: m = n: n = vTemp
    For i = 1 To m
        xNum = Int((m - i + 1) * Rnd() + i)
        For j = 1 To n
            If isCol Then
                vTemp = ar(j, xNum): ar(j, xNum) = ar(j, i): ar(j, i) = vTemp
            Else
                vTemp = ar(xNum, j): ar(xNum, j) = ar(i, j): ar(i, j) = vTemp
            End If
        Next
    Next
End Function