Вопрос про макрос

[Russt]

Подскажите пожалуйста :
Имеется лист екселевский в нём столбец А частично заполнен числами.Мне необходимо создать массив размером равным количеству значений в столбце А и заполнить его по порядку этими значениями для дальнейшей обработке ряда.

[Russt]

Неужели никто не в курсе. разве такой сложный вопрос?

[corgi]

ну просто лень всем

Код: Выделить всё

Sub dd()
Dim i As Integer, n As Integer
    n = 0
    For i = 1 To 100
        If Sheets("Лист1").Cells(i, "a").Value <> "" Then n = n + 1
    Next
    ReDim mas(n) As Integer
    n = 0
    For i = 1 To 100
        If Sheets("Лист1").Cells(i, "a").Value <> "" Then
            mas(n) = Sheets("Лист1").Cells(i, "a").Value
            n = n + 1
        End If
    Next
    For i = 0 To n - 1
        MsgBox mas(i)
    Next
End Sub

[Russt]

corgi, большое спасибо за помощь.

[Russt]

А как разрешить такую ситуацию: например имеем
Sheets("Лист1").Cells(i, "a").Value = "=AVERAGE(R[y]C[x]:R[y]C[x])"
те нужно чтобы на листе в определённом столбце по порядку расположились значения определённой, встроенной в ексель функции (в данном случае средней по определённым ячейкам) причём параметры x y меняются по некоторому закону.
Примерно

Код: Выделить всё

For i = 1 To 10
Sheets("Лист1").Cells(i, "a").Value = "=AVERAGE(RC[1]:R[i]C[1])"
Next i

Примерно так у меня не получается.

[Russt]

Или такое вообще не представляется возможным? Разве нельзя использовать встроенные функции екселя при написании макросов таким образом?

[GSerg]

ну просто лень всем

Код: Выделить всё

For i = 1 To 10
  Sheets("Лист1").Cells(i, "a").FormulaR1C1 = "=AVERAGE(RC[1]:R["& i &"]C[1])"
Next i