Всем ку
Как сделать вариант выше, только читабельней? К тому же, может есть вариант сделать перебор быстрее, позиций больше 20к?
Код |
---|
Sub main() Dim data_table As Variant Dim item As Variant data_table = Range("name_table").Columns(2) For Each item In data_table If item <> Empty Then Debug.Print item End If Next item End Sub |
В этом варианте получается что item это string. Ни узнать адрес, ни смещение не работает
Код |
---|
Sub main() Dim data_table As Range Dim item As Variant Set data_table = Range("name_table").Columns(2) For Each item In ThisWorkbook.Worksheets("Лист11").Range(data_table.Address) If item <> Empty Then Debug.Print item End If Next item End Sub |
Как сделать вариант выше, только читабельней? К тому же, может есть вариант сделать перебор быстрее, позиций больше 20к?