You ask, I guess you didn't write this code, right? Of course, you can read excel data directly. Arrays are also input by users one by one. Don't be exhausted.

From the code point of view, it needs as many numbers as the square of n, assuming that these numbers have been entered in excel in advance,

The number is in: row 3, column 8.

Then use the following code.

a(i，j) = Cells(3 + i - 1，8 + j - 1)。 text

replace

a(i，j)= Val(InputBox(" a(& amp； I&","& Johnson & Johnson Company. " ) ","Value of activities implemented jointly "))

Do it.