Одномерные и двумерный массив (VBA Excel))

[Keeper!]

Спасибо за помощь.

[IgorGO]

Sub Avrg()
  Dim x(1 To 70) As Single, i As Long, su As Single
  su = 0
  For i = 1 To 70
    x(i) = Cells(i, 1)
    su = su + x(i)
  Next
  MsgBox " Среднее = " & su / 70
End Sub


Sub ChangePlace()
  Dim m(1 To 16) As Integer, i As Integer, exch As Integer
  Dim s0 As String, s1 As String, s2 As String
  Randomize
  s0 = ""
  For i = 1 To 16
    m(i) = Round(-20 + 40 * Rnd(), 0)
    s0 = s0 & m(i) & ", "
  Next
  s1 = "": s2 = ""
  For i = 1 To 8
    exch = m(i)
    m(i) = m(i + 8)
    m(i + 8) = exch
    s1 = s1 & m(i) & ", "
    s2 = s2 & m(i + 8) & ", "
  Next
  MsgBox "Исходный массив:" & Chr(10) & Left(s0, Len(s0) - 2) & Chr(10) & Chr(10) _
  & "После замены элементов" & Chr(10) & Left(s1, Len(s1) - 2) & Left(s2, Len(s2) - 2)
End Sub


Sub SumGrK()
  Dim m(6, 6) As Integer, k As Integer, su As Integer, i As Integer, j As Integer
  Dim s1 As String, s2 As String
  Randomize
  k = CInt(InputBox("Укажите число:", "", 15))
  su = 0
  s1 = ""
  s2 = ""
  For i = 1 To 6
    For j = 1 To 6
      m(i, j) = Round(28 * Rnd())
      If m(i, j) > k Then
        su = su + m(i, j)
        s2 = s2 & " + " & m(i, j)
      End If
      s1 = s1 & Format(m(i, j), "  00")
    Next
    s1 = s1 & Chr(10)
  Next
  MsgBox "Исходный массив:" & Chr(10) & s1 & Chr(10) & Chr(10) _
  & "Сумма элементов > " & k & " = " & Right(s2, Len(s2) - 2) & " = " & su
End Sub

Первая процедура исходные данные считывает с колонки А активного листа с 1 по 70 ячейки.

[Keeper!]

IgorGO, спасибо большое!