坐标问题

许仙123

假设X，Y轴的坐标都是1-500，那么想把所有的坐标都列出来有什么好的方法

liulang0808

楼主看看自己的office版本，列数是否足够存放结果的

许仙123

liulang0808 发表于 2023-4-27 07:53
楼主看看自己的office版本，列数是否足够存放结果的

WPS下好像不能用呀

许仙123

liulang0808 发表于 2023-4-27 07:53
楼主看看自己的office版本，列数是否足够存放结果的

好像是逗号大小写的问题，但是改过来以后还是不行，提示错误9，下标越界
Sub test()
    Dim r As Long
    Dim arr(1 To 25000, 1 To 2)
    r = 0
    For j = 1 To 500
        For i = 1 To 500
        r = r + 1
        arr(r, 1) = j
        arr(r, 2) = i
        Next i
        Next j
        [a1].Resize(r, 2) = arr
         End Sub

许仙123

liulang0808 发表于 2023-4-27 07:53
楼主看看自己的office版本，列数是否足够存放结果的

问题解决了，谢谢