Visual Basic for Applications. Практика. Нагина Е.К - 41 стр.

With Range("H1")
  For i = 0 To NRows - 1
    For j = 0 To NColumn - 1
      .Offset(i, j) = Matrix1(i, j)
    Next j
  Next i
End With

     Запишем полный программный код процедуры Matrica, которая объ-
единяет описанные выше два фрагмента. Кроме того, в этой процедуре
представлено полное описание всех переменных и массивов, используе-
мых в программе и фрагмент программного кода, осуществляющий
преобразование исходного массива Matrix в массив Matrix1.

Sub Matrica()
Dim i As Integer, j As Integer
Dim Matrix() As Integer, Matrix1() As Integer
Dim NRows As Integer, NColumn As Integer
With ActiveWorkbook.Worksheets(1).Range("A1")
  NRows = Range(.Offset(0,0), .End(xlDown)) _
            .Rows.Count
  NColumn = Range(.Offset(0,0), .End(xlToRight)) _
            .Columns.Count
  ReDim Matrix(NRows, NColumn)
  For i = 0 To NRows - 1
    For j = 0 To NColumn - 1
       Matrix(i, j) = .Offset(i, j)
    Next j
  Next i
End With
For i = 0 To NRows - 1
  For j = 0 To NColumn - 1
     Matrix1(i, j) = Matrix(i, j) * 2
  Next j
Next i
With Range("H1")
  For i = 0 To NRows - 1
    For j = 0 To NColumn - 1
       .Offset(i, j) = Matrix1(i, j)
    Next j
  Next i
End With
End Sub

                                41