将值读入数组直到满足条件

Question

我在C3-CX列的excel文件中有值。那就是我有任意数量的行。现在我想将这些值读入一个数组，问题是每隔一行是空的，我不想在我的数组中包含空格，所以我不能做一个while循环直到一个字段是空的。你会如何解决这个问题？假设我想在第一列中读到一个数组。 [种皮，泰斯特]

    (Col C:2) (Col D:2)
    testa   test2
            test
    teste   test
            test

Answer 1

下面的内容应该可以正常工作

    Function read_array(inputRange As Range) As String()
    Dim element_count As Integer, i As Integer

    element_count = Application.WorksheetFunction.CountA(inputRange)
    ReDim outArray(1 To element_count) As String
    y = 1
    For i = 1 To element_count

    Do While IsEmpty(inputRange(y))
    y = y + 1
    Loop
    outArray(i) = inputRange(y)
    y = y + 1
    Next
    read_array = outArray
    End Function

您可以将其称为read_array（c：c）。输出将是一个行数组。