Одномерный массив, язык VBA в Excel

[not_table]

Дан массив натуральных чисел а1, а2,..., an. Создать массив из четных чисел этой последовательности

За ранее спасибо, программа вроде простая а вот что то не могу видимо совсем нуб.

[DiemonStar]

проверено, работает:

Sub a1()
  Dim A(1 To 4) As Integer, B() As Integer
  A(1) = 1
  A(2) = 2
  A(3) = 3
  A(4) = 4
  J = 0
  For I = 1 To 4
    If A(I) Mod 2 = 0 Then
      J = J + 1
      ReDim Preserve B(1 To J) As Integer
      B(J) = A(I)
    End If
  Next I
End Sub

[not_table]

Спасибо друг, а код куда писал в Excel не в кнопку да ведь, а просто прям в лист в редактор VB да, а результат куда должен выводится у меня что не куда не выводить
Цифры ведь в ячейки надо писать А1, А2, А3, А4, жму сервис макрос выполнить и ничего не происходит может не туда пишу извиняюсь за нубство

[not_table]

У меня друг как я не стараюсь ничего не выводит, скажи пожалуйста как работает и где должно выводить

[Базиля]

По поводу вывода, это уже зависит от условий по вашей задаче. (либо просто в виде сособщений, может быть на форму или же в ячейки листа)

[not_table]

Хотелось бы в ячейку листа в любую это тогда как надо,что делать

[not_table]

Ребят ну помогите надо вывести все это в ячейку в любую я так понимаю надо писать после Next I команду Cells() и что тут писать чтоб правильно вывела

[DiemonStar]

sub Parity()
I = 1
J = 1
While IsNumeric(Cells(I,1)) and not IsEmpty(Cells(I,1))
  if Cells(I, 1) mod 2 = 0 then
    Cells(J, 2) = Cells(I, 1)
    J = J + 1
  end if
  I = I + 1
Wend
end sub

исходный массив в столбце A
результат - в столбце B

[not_table]

Да да спасибо а еще можно ну в том коде написать после End if вот это ActiveSheet.[a1].Resize(UBound(B)) = Application.Transpose(B) и тоже все работает