[已解决][求助]请高手给我的数据也冒冒泡吧！

东方智彩

我看到网上有很多的冒泡算法，请高手也给我这个数据冒冒泡吧！先谢谢啦！
kFSD7zuM.rar (8.96 KB, 下载次数: 1)

2009-9-17 11:23 上传

点击文件名下载附件
[求助]请高手给我的数据也冒冒泡吧！

最佳答案

月排行榜 / 总排行榜

amulee

2009-9-17 21:04

按每列为单位排序

Sub WeiKua()
    Dim ArrYS, ArrJG, i%, j%, k%, Temp
    ArrYS = Range("D3:R202")
    ReDim ArrJG(1 To UBound(ArrYS, 1), 1 To 4)
    For i = 1 To UBound(ArrYS, 1)
        k = 0
        For j = 1 To UBound(ArrYS, 2)
            If Len(ArrYS(i, j)) > 0 Then
                If k = 0 Then
                    Temp = j
                Else
                    ArrJG(i, k) = j - Temp
                    Temp = j
                End If
                k = k + 1
            End If
        Next j
    Next i
    Range("T3:W202") = ArrJG
    '以下为排序
    For j = 1 To 4
        For i = 1 To UBound(ArrJG, 1)
            For k = i + 1 To UBound(ArrJG, 1)
                If ArrJG(k, j) > ArrJG(i, j) Then
                    Temp = ArrJG(i, j)
                    ArrJG(i, j) = ArrJG(k, j)
                    ArrJG(k, j) = Temp
                End If
            Next k
        Next i
    Next j
    Range("Y3:AB202") = ArrJG
End Sub

跳转到最佳答案楼层

函数小菜鸟

冒泡是排序的一种算法。

不知道楼主的实例文件要达到什么要求？

amulee

是啥意思啊

东方智彩

KXcxPbNy.rar (9.33 KB, 下载次数: 1)

2009-9-17 17:04 上传

点击文件名下载附件
[求助]请高手给我的数据也冒冒泡吧！

噢是一维排序法，哈哈那就冒泡跨度吧！看附件

amulee

跨度大小用冒泡排序法排序？

amulee

按每列为单位排序

Sub WeiKua()
    Dim ArrYS, ArrJG, i%, j%, k%, Temp
    ArrYS = Range("D3:R202")
    ReDim ArrJG(1 To UBound(ArrYS, 1), 1 To 4)
    For i = 1 To UBound(ArrYS, 1)
        k = 0
        For j = 1 To UBound(ArrYS, 2)
            If Len(ArrYS(i, j)) > 0 Then
                If k = 0 Then
                    Temp = j
                Else
                    ArrJG(i, k) = j - Temp
                    Temp = j
                End If
                k = k + 1
            End If
        Next j
    Next i
    Range("T3:W202") = ArrJG
    '以下为排序
    For j = 1 To 4
        For i = 1 To UBound(ArrJG, 1)
            For k = i + 1 To UBound(ArrJG, 1)
                If ArrJG(k, j) > ArrJG(i, j) Then
                    Temp = ArrJG(i, j)
                    ArrJG(i, j) = ArrJG(k, j)
                    ArrJG(k, j) = Temp
                End If
            Next k
        Next i
    Next j
    Range("Y3:AB202") = ArrJG
End Sub

东方智彩

谢谢amulee老师，正是这个意思！能否用上附件再帮我实现两个程序

1、求第一位与第二位的差，写在AC列。

2、求第一位与第二位的和，写在AD列。

要求两个程序分开写，谢谢！

amulee

XE05kgS2.rar (17.4 KB, 下载次数: 1)

2009-9-17 22:09 上传

点击文件名下载附件
[求助]请高手给我的数据也冒冒泡吧！

东方智彩

amulee老师你好，上面这两个程序是要求差、和         不用排序！

amulee

是求位跨的差？ Pch7CgZb.rar (17.69 KB, 下载次数: 1)

2009-9-18 08:31 上传

点击文件名下载附件
[求助]请高手给我的数据也冒冒泡吧！