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

我试图创build一个我店里销售的所有产品的数组，但是在列表中，有一大堆的空白单元格，当matrix好的时候就不需要了。 在我构build它之前，有没有办法摆脱这些空白单元格？

对于我的最后一个项目，我做了

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 

我认为这是不可能的，但即使是一些validation，我的想法是closures的将是伟大的。

Answer 1

使用相同的技术是否可以填充行号符合一定的标准没有循环的数组？ ，你可以像这样构成一个非空白的一维数组

 `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, ",")