[已解决]代码怎么做

mmc998

工作簿大.rar (44.62 KB, 下载次数: 5)

2015-8-5 21:11 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-5 21:36

Sub test()
    Dim A, B, i, j, k, s
    A = Range([a3], [e65536].End(3))
    ReDim B(1 To UBound(A), 1 To 10)

    For i = 1 To UBound(A)
        s = 0
        For j = 1 To UBound(A, 2) - 1
            For k = j + 1 To UBound(A, 2)
                s = s + 1
                B(i, s) = Abs(A(i, j) - A(i, k))
            Next k
        Next j
    Next i
    [g:p] = ""
    [g3].Resize(UBound(B), UBound(B, 2)) = B
End Sub

工作簿大2.rar (113.85 KB, 下载次数: 8)

2015-8-5 21:36 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Sub test()
    Dim A, B, i, j, k, s
    A = Range([a3], [e65536].End(3))
    ReDim B(1 To UBound(A), 1 To 10)

    For i = 1 To UBound(A)
        s = 0
        For j = 1 To UBound(A, 2) - 1
            For k = j + 1 To UBound(A, 2)
                s = s + 1
                B(i, s) = Abs(A(i, j) - A(i, k))
            Next k
        Next j
    Next i
    [g:p] = ""
    [g3].Resize(UBound(B), UBound(B, 2)) = B
End Sub

工作簿大2.rar (113.85 KB, 下载次数: 8)

2015-8-5 21:36 上传

点击文件名下载附件