VBA:从pivottable创建数组时避免空单元格

时间:2015-11-17 10:45:58

标签: arrays excel-vba is-empty vba excel

我正在尝试基于具有多个空单元格的数据透视表创建数组,但是不是引用先前的值,而是保留所有空单元格:

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

1 个答案:

答案 0 :(得分:0)

Nvm我通过更改以下代码解决了这个问题:

If Not CountryRange(AllCostTypeRowCounter, 1) Is Nothing Then

为:

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

任何人都可以告诉我为什么这种改变有效。以上对我来说似乎是一样的。另外我如何关闭自己的帖子?