Сохранение значения в массив после цикла

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Сохранение значения в массив после цикла - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение значения в массив после цикла (Макросы/Sub)

Сохранение значения в массив после цикла

DimanYamoz

Дата: Вторник, 29.01.2019, 12:01 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Как правильно сохранить значение после цикла в массив. После завершения цикла вывести этот массив на экран.

[vba]

Код

Dim kolv As Integer
Dim intC As Integer
Dim r As Range
Dim mar()
Range(Selection, Selection.End(xlToRight)).Select
kolv = Selection.Cells.Count
ActiveCell.Offset(0, 1).Select

For i = 0 To kolv - 1
If Selection.Cells.Value >= 1 Then
Set r = ActiveCell
intC = r.Column
mar() = intC

End If

If IsEmpty(ActiveCell) = True Then
MsgBox "End"
Exit Sub
End If
ActiveCell.Offset(0, 1).Select

Next i
MsgBox ("Stolbec: " & mar(intC))
'MsgBox ("Stolbec: " & mar)
End Sub

[/vba]