[已解决]高手帮忙写一个随机排序的程序？

ampa

如附件所示，b列是产品1-产品5，c列和d列对应的是各自的属性，能不能写个程序，可以每次把产品1-产品5的顺序打乱，然后按照打乱后的顺序把以产品1-产品5 和他各自的属性来排列（以A-E）？
谢谢啦

最佳答案

月排行榜 / 总排行榜

蓝天一片云

2012-2-23 13:54

wuxingai 发表于 2012-2-23 13:42
Sub aa()
    Dim Arr, str, n%, i%, j%
    VBA.Randomize

楼主的要求是A列不变。
学习代码修改一下
Sub aa()
    Dim Arr, str, n%, i%, j%
    VBA.Randomize
    Arr = Range("a1").CurrentRegion.Value
    For i = 1 To UBound(Arr)
        n = Int((5 - 1)) * Rnd + 1
        For j = 2 To 4
            str = Arr(i, j): Arr(i, j) = Arr(n, j): Arr(n, j) = str
        Next j
    Next i
    Range("a1").Resize(UBound(Arr), 4) = Arr
End Sub

跳转到最佳答案楼层

那么的帅

A列也需要重新随即排序吗？

无聊的疯子

测试以下代码
对数据进行分列排序，数据是不是就 “乱” 了呢？

1. 
   
2. Sub cc()
   
3.     With Range("A1:D5")     '排序区域
   
4.         .Sort Range("c1"), 1    '以C列，升序排序
   
5.         .Sort Range("d1"), 1    '以D列，升序排序
   
6.         .Sort Range("A1"), 1, , Range("B1"), 1
   
7.         '以A 列为第一关键字，升序排序，并以B列为第二关键字升序排序
   
8.         
   
9.         '将 1 改为 2 则降序排序
   
10.     End With
    
11. End Sub
    

复制代码

ampa

那么的帅 发表于 2012-2-23 13:15
A列也需要重新随即排序吗？

a列不需要，a列是打乱以后产品按照abcde做个标记。谢谢您

蓝天一片云

无聊的疯子 发表于 2012-2-23 13:18
测试以下代码
对数据进行分列排序，数据是不是就 “乱” 了呢？

想不到还可以用1和2代替排列语句。学习了。谢谢！
改简单点。
Sub cc()
     Range("b1:D5") .Sort Range("c1"), 1   
End Sub

wuxingai

Sub aa()
    Dim Arr, str, n%, i%, j%
    VBA.Randomize
    Arr = Range("A1").CurrentRegion.Value
    For i = 1 To UBound(Arr)
        n = Int((5 - 1)) * Rnd + 1
        For j = 1 To 4
            str = Arr(i, j): Arr(i, j) = Arr(n, j): Arr(n, j) = str
        Next j
    Next i
    Range("A1").Resize(UBound(Arr), 4) = Arr
End Sub

蓝天一片云

wuxingai 发表于 2012-2-23 13:42
Sub aa()
    Dim Arr, str, n%, i%, j%
    VBA.Randomize

楼主的要求是A列不变。
学习代码修改一下
Sub aa()
    Dim Arr, str, n%, i%, j%
    VBA.Randomize
    Arr = Range("a1").CurrentRegion.Value
    For i = 1 To UBound(Arr)
        n = Int((5 - 1)) * Rnd + 1
        For j = 2 To 4
            str = Arr(i, j): Arr(i, j) = Arr(n, j): Arr(n, j) = str
        Next j
    Next i
    Range("a1").Resize(UBound(Arr), 4) = Arr
End Sub

ampa

wuxingai 发表于 2012-2-23 13:42
Sub aa()
    Dim Arr, str, n%, i%, j%
    VBA.Randomize

这个不行吧 a列不需要排序的啊

蓝天一片云

ampa 发表于 2012-2-23 13:58
这个不行吧 a列不需要排序的啊

试试7楼修改后的代码。

ampa

蓝天一片云 发表于 2012-2-23 14:05
试试7楼修改后的代码。

太好了 谢谢 谢谢各位