Переход к непустой ячейке (Exel VBA )

Формулировка задачи:

Как последовательно переходить от одной непустой ячейки к другой в заранее известном диапазоне?

Решение задачи: «Переход к непустой ячейке (Exel VBA )»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> Data()
<font color="blue">Dim</font> dArray() <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Dim</font> k <font color="blue">As</font> <font color="blue">Integer</font>
k = <font color="darkblue"><b>0</b></font>
<font color="blue">Dim</font> i  <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>12</b></font>
<font color="blue">If</font> Trim(Range(Cells(i, <font color="darkblue"><b>1</b></font>), Cells(i, <font color="darkblue"><b>1</b></font>)).Text) = <font color="teal">""</font> <font color="blue">Then</font>
<font color="blue">Else</font>
<font color="blue">ReDim</font> Preserve dArray(k)
dArray(k) = Range(Cells(i, <font color="darkblue"><b>1</b></font>), Cells(i, <font color="darkblue"><b>1</b></font>)).Text
k = k + <font color="darkblue"><b>1</b></font>
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Next</font> i
<font color="blue">End</font> <font color="blue">Sub</font>
                        