例如:

當 n=2,v(1 to 2, 1 to 2)

當 n=3,v(1 to 3, 1 to 3, 1 to 3)

當 n=4,v(1 to 4, 1 to 4, 1 to 4, 1 to 4)

當 n=5,v(1 to 5, 1 to 5, 1 to 5, 1 to 5, 1 to 5)

…

但是n 的数值取决于第一行的变量总数

下面加粗部分求高手修改

Sub a()
n = Application.WorksheetFunction.CountA(Worksheets(1).Rows(1))
Dim v()
redim v(1 to n, ... ,1 to n)
End Sub