Добрый день, подскажите (в файле примере таблица): Можно ли заполнить двумерный массив в следующей логике; 1) Необходимо добавить в массив только конкретный месяц (слева даты) например месяц октябрь. мы должны подтянуть значения касающиеся только октября 2) Каждый столбец это одно измерение массива, например в первое измерение (назовем массив -arr (0, 0) ) - - - - -arr(0, i) (где i это элементы столбца "ПЕРВЫЙ" за октябрь) Соответственно во второе измерение arr(1,i) будут занесены данные со второго столбца Соответственно в третье измерение arr(2,i) будут занесены данные с третьего столбца и так далее, спасибо за помощь)
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