我正在尝试基于具有多个空单元格的数据透视表创建数组,但是不是引用先前的值,而是保留所有空单元格:
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
答案 0 :(得分:0)
Nvm我通过更改以下代码解决了这个问题:
If Not CountryRange(AllCostTypeRowCounter, 1) Is Nothing Then
为:
If CountryRange(AllCostTypeRowCounter, 1) <> "" Then
任何人都可以告诉我为什么这种改变有效。以上对我来说似乎是一样的。另外我如何关闭自己的帖子?