如何显示X轴的最大值

DD_WJ

请教一下，如何对X轴进行设置，可以显示最大值128，谢谢！

爱疯

数据2.rar (18.2 KB, 下载次数: 2)

2017-12-21 10:10 上传

点击文件名下载附件
Sub Click()
    Dim i, j, k
    Cells.Clear
    For j = 1 To 129
        k = 0
        For i = 1 To 129 Step j
            k = k + 1
            Cells(k, j) = i
        Next i
    Next j
End Sub



指定间隔单位，依次从1改成129，没有满足1楼的间隔。
我没想到更简明的说明，只好这么一个个试，郁闷。。。

DD_WJ

爱疯 发表于 2017-12-21 10:08
Sub Click()
    Dim i, j, k
    Cells.Clear

谢谢。