在构造数组时尝试跳过空白单元格

Question

我试图创建一个数组的所有产品，我的商店销售，但在列表中，有大量的空白细胞是不需要的，当矩阵是好的和做好的。在我构造这些空白细胞之前，有什么方法可以除去它吗？

在我的最后一个项目中，我做了

Range("A:A").Find("").Select
    Selection.ClearContents
    Selection.Delete Shift:=xlUp

但我不认为这对此有效，因为我不想在任何方面搞砸工作表。

目前，我有以下几点：

Dim iRows as Long

Sheets("PR001C2531380000001").Activate
iRows = Cells(Rows.Count, 1).End(xlUp).Row + CLng(0)

Do While Range("A:A").Find("ITEM-NO").Offset(c + 1, 0) = iRows
c = c + 1
Loop

ReDim PrMat(0 To iRows)
d = 0
For d = 0 To UBound(PrMat())
Do While Range("A:A").Find("ITEM-NO").Offset(d + 1, 0).End(xlUp).Row + CLng(0)
PrMat(d) = Range("A:A").Find("ITEM-NO").Offset(d + 1, 0)
d = d + 1

我认为这是不可能的，但即使是一些验证，我的想法已经过时将是很好的。

Answer 1

使用与Is it possible to fill an array with row numbers which match a certain criteria without looping?相同的技术，您可以像这样形成一个一维非空白数组

`form the array
x = Filter(Application.Transpose(Application.Evaluate("=IF(LEN(A1:A100)>0,A1:A100,""x"")")), "x", False)
`return a 1D string
MsgBox Join(x, ",")