запись ячеек в массив

[borik120]

Здравствуйте. Обращаюсь за помощью во второй раз, в первый раз помогли, за что большое спасибо

есть диапазон ячеек, к примеру от A1 до D20. как можно составить массив из этого диапазона, но только для тех строк, в которых в столбце D что то есть (непусто).
и второй вопрос, к приеру в столбце D содержаться числа, мне на каком то моменте программы нужно присваивать значения этих чисел какой то переменной, и использовать в качестве параметра цикла for to. просто когда я пытаюсь присвоить значение массива переменной, выдает ошибку вроде object varible. я делаю примерно так s = a(i,2)
заранее спасибо.

[Xpoft]

Заполнение массива:

j=1
For i =1 to 20
if cells(i,4).value <> "" then
a(j,1) = cells(i,1).value
a(j,2) = cells(i,2).value
a(j,3) = cells(i,3).value
a(j,4) = cells(i,4).value
j = j+1
end if
next i

пытаюсь присвоить значение массива переменной, выдает ошибку вроде object varible. я делаю примерно так s = a(i,2)

если на данном шаге i определена и в массиве есть это значение, то ошибки не должно быть.

[borik120]

если на данном шаге i определена и в массиве есть это значение, то ошибки не должно быть

а если s -long, т я присвою ей значение обычной ячейки?

[Xpoft]

а если s -long, т я присвою ей значение обычной ячейки?

смотря что у вас было записано в "обычной ячейке")

[borik120]

а если в ячейке записано число, но формат ячейки общий, или текстовый?

[Xpoft]

ну есть функции проверки типа аля isnumeric() и преобразований... CDbl(), Val(). можно использовать их и не париться о том какой тип ячейки, если у вас там записано число. Но это я так думаю, я не спец) лично я пока нет опыта сначала проверяю как будет работать а потом пользую) дебагер вам в помощь

[SAS888]

1. Рациональнее сначала сформировать массив из всего диапазона (a=[A1:D20].Value), а уже затем, из этого массива сформировать другой, требуемый.
2. Если тип данных в сформированном массиве не установлен явно (имеет тип Variant), то необходимо делать преобразование типа элемента массива в требуемый. Например:

j = Val(a(x, y))
If j > 0 Then
    For i = 1 To j
        '...
    Next
End If