Line Input #1, Ar=r+1x(r) = A出来多少行就是多少行...直接赋值给数组再把偏历 x() 求 row() = split(x(r),",")ubound( row() ) 就是 按","分的列数(修改修改 ","), 求出最大的 就是 列数了 --------------------------------------------------------------Private Sub Command1_Click()
Dim RsAs Long
Dim R As Long