Почему появляется цикл?

[EducatedFool]

Если тебе уж так хочется считывать значения ячеек в массив, то это делается проще:

Sub test()
    arr = [f4:n15].Value    ' все значения диапазона считались в массив' 
    MsgBox arr(7, 2)    ' выводим значение ячейки G10'
End Sub

что бы при вводе числа, ему, числу, автоматом присваивалась переменная

Валера, изучай основы программирования - из-за их незнания все твои вопросы.

Числу не может быть присвоена переменная.
В переменную может быть занесено число.

получил переменную per(1,1)

Dim per(2000, 15) As Long - это не переменная. Это массив.

На то пошло, использовал бы что-то вроде этого:

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Excel.Range)
    Dim per(2000, 15) As Long
    per(Target.Row, Target.Column) = Target
End Sub

К тому же, после завершения работы макроса Workbook_SheetChange массив Dim per(2000, 15) будет уничтожен, так как ты объявил его внутри процедуры. Соответственно, все занесённые в него значения потеряются.

[valerij]

Сообщение от EducatedFool

Числу не может быть присвоена переменная.

Ты меня не понял или я не так выразился, переменная уже есть, а ее индексы(строится массив), смотри пример

1 DATA 17,26,30,31,32,40
....................................
278 DATA 9,14,31,32,34,40
DIM A%(400, 45)
FOR I = 1 TO 278
FOR J = 1 TO 6
READ P: A%(I, P) = P

Вот из ряда чисел в оп. DATA, получаем массив A%(I, P) {A%(1,17), A%(1,26),...... A%(278,9)}