[已解决]求以给定数据递增的5个数据。

excelpx10086

以给定数据递增.rar (6.96 KB, 下载次数: 3)

2016-3-11 16:50 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-11 17:15

Sub test()
    Dim A, i, j
    A = [G24:I30]

    For i = 3 To UBound(A)
        For j = 1 To UBound(A, 2)
            If i = 3 Then
                A(i, j) = A(1, j)
            Else
                A(i, j) = (A(i - 1, j) + 1) Mod 10
            End If
        Next j
    Next i

    [g24].Resize(i - 1, j - 1) = A
End Sub

以给定数据递增2.rar (16.01 KB, 下载次数: 8)

2016-3-11 17:15 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Sub test()
    Dim A, i, j
    A = [G24:I30]

    For i = 3 To UBound(A)
        For j = 1 To UBound(A, 2)
            If i = 3 Then
                A(i, j) = A(1, j)
            Else
                A(i, j) = (A(i - 1, j) + 1) Mod 10
            End If
        Next j
    Next i

    [g24].Resize(i - 1, j - 1) = A
End Sub

以给定数据递增2.rar (16.01 KB, 下载次数: 8)

2016-3-11 17:15 上传

点击文件名下载附件