Обратиться к ячейке по номеру в разорванном (несвязанном) диапазоне - VBA

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

Добрый день! Есть обычный несвязанный диапазон

                    Листинг программы
                
Range(“A1:A3,A6:A9")

и я хочу выделить в нем 4 ячейку, пишу код:

                    Листинг программы
                
Range("A1:A3,A6:A9").Item(4).Select

и в итоге машина выделяет мне ячейку А4, а должна по логике выделить А6. Что я делаю не так? Как это можно решить без использования циклов. Заранее спасибо!

Решение задачи: «Обратиться к ячейке по номеру в разорванном (несвязанном) диапазоне»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function MyItem(MyRange, ByVal ItemNum)
    Dim singleArea As Range
    For Each singleArea In MyRange.Areas
        If ItemNum <= singleArea.Cells.Count Then
            Set MyItem = singleArea.item(ItemNum)
            Exit For
        Else
            ItemNum = ItemNum - singleArea.Cells.Count
        End If
    Next
End Function

Оцени полезность:

15 голосов , оценка 4.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы