Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Заполнить двумерный массив с таблицы, VBA
 
Добрый день, подскажите (в файле примере таблица):
Можно ли заполнить двумерный массив в следующей логике;
1) Необходимо добавить в массив только конкретный месяц (слева даты) например месяц октябрь. мы должны подтянуть значения касающиеся только октября
2) Каждый столбец это одно измерение массива, например в первое измерение (назовем массив -arr (0, 0) )  - - - - -arr(0, i) (где i это элементы столбца "ПЕРВЫЙ" за октябрь)
Соответственно во второе измерение arr(1,i) будут занесены данные со второго столбца
Соответственно в третье измерение arr(2,i) будут занесены данные с третьего столбца и так далее, спасибо за помощь)
Изменено: Kentavrik7 - 19 Ноя 2019 16:35:32
 
Код
Sub ДвумерныйОктябрь()
    Const month = 10
    Dim y1 As Long
    Dim y2 As Long
    y1 = WorksheetFunction.Match(Format(DateSerial(2019, month, 1), "dd.mm.yyyy"), Columns(1), 0)
    y2 = WorksheetFunction.Match(Format(DateSerial(2019, month + 1, 1) - 1, "dd.mm.yyyy"), Columns(1), 0)
    
    Dim a As Variant
    a = Range(Cells(y1, 2), Cells(y2, 11))
    Dim b As Variant
    b = Application.Transpose(a)
    
    Range("N1").Resize(UBound(b, 1), UBound(b, 2)) = b
End Sub
 
МатросНаЗебре,Огромное спасибо!, Спасаете сегодня не первый раз) Низкий поклон)
 
МатросНаЗебре,только массивы нужны наоборот по столбцам, а у вас получилось по строчкам :oops:
Виноват, не заметил что вы сделали в двух вариантах) Спасибо)
Изменено: Kentavrik7 - 19 Ноя 2019 16:55:15
Страницы: 1
Читают тему (гостей: 1)
Наверх