VBA: избегать пустых ячеек при создании массива из сводной таблицы

Question

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

For AllCostTypeRowCounter = 1 To SiteRowCount 

    AllCostTypeArrayCounter = AllCostTypeArrayCounter + 1 

    ReDim Preserve AllCostTypeArray(2, AllCostTypeArrayCounter) 

    If Not CountryRange(AllCostTypeRowCounter, 1) Is Nothing Then 

     AllCostTypeArray(1, AllCostTypeArrayCounter) = CountryRange(AllCostTypeRowCounter, 1) 

    Else 

     AllCostTypeArray(1, AllCostTypeArrayCounter) = AllCostTypeArray(1, AllCostTypeArrayCounter - 1) 

    End If 

    AllCostTypeArray(2, AllCostTypeArrayCounter) = SiteRange(AllCostTypeRowCounter, 1).Value 

Next AllCostTypeRowCounter 

Answer 1

Nvm Я решил вопрос, изменив следующий код:

If Not CountryRange(AllCostTypeRowCounter, 1) Is Nothing Then 

к:

If CountryRange(AllCostTypeRowCounter, 1) <> "" Then 

Может ли кто-нибудь сказать мне, почему это изменение работает. Вышеприведенное кажется мне одинаковым. Также как мне закрыть свой собственный пост?