Запись дат в массив / цикл Stop при достижении пустой ячейки / Excel VBA

539
James

Я довольно новый / возвращаюсь в VBA после ~ 10 лет перерыва. Теперь я столкнулся с проблемой ниже: я хотел бы записать даты из столбца на рабочем листе 1 (скажем, столбец B) в массив, пока не достигну пустой ячейки. На данный момент я не хочу выходить из цикла. Затем он берет следующий лист, рабочий лист2 и делает то же самое, создавая многомерный массив, пока не будет достигнут конец рабочей книги.

В настоящее время я не могу записать даты в массив и проверить, правильно ли они были сохранены, записав их в соответствующую ячейку.

Может кто-нибудь подсказать мне, с чего начать?

Спасибо! (ниже приведен код, с которого я начал) Джеймс

Sub ReadDuedates()  Dim ArrayDate As Variant Dim rngDates As Range Dim i As Variant Dim y as integer  y = 1 ArrayDate = Worksheets("Project01").Range("C2:C8").Value ' I am using this as a static range currently since i haven't figured out the Loop yet  'For Each i In rngDates   Worksheets("Project01").Range("C" & y).Value = ArrayDates(y-1) 'I try to use this to see whether my Information was read into the array correctly y = y + 1   Next i
0
Удалите часть `.Value`, и она должна работать. См. [Массивы VBA и диапазоны рабочих листов] (http://www.cpearson.com/excel/ArraysAndRanges.aspx). PeterT 6 лет назад 0
Спасибо за чтение предложения - я буду смотреть на это! James 6 лет назад 0

0 ответов на вопрос

Похожие вопросы