Question

我正在尝试使用此代码来确定Firstcell的值，但无法获得输出：

Sub FindFirstEmptyCell()

    Dim l As Integer
    Dim Firstcell As Integer
    Dim MyArray(5) As String
    Dim currentRowValue As String

    MyArray(1) = "g"
    MyArray(2) = "g"
    MyArray(3) = "s"
    MyArray(4) = ""
    MyArray(5) = "f"


    For l = 0 To 5
            currentRowValue = MyArray(l)
        If IsEmpty(currentRowValue) = True Or currentRowValue = "" Then
             Firstcell = l: Exit For
        End If
    Next

End Sub

Answer 1

在您的代码中，您定义了Dim MyArray(5) As String，这意味着MyArray有6个元素，从0到5。如果您想要5个元素，请更改为Dim MyArray(4) As String。

因此，在将字符串设置为MyArray时，您需要从MyArray(0) = "g"开始，依此类推......

然后，在运行下面的代码时，您需要记住数组计数器从0开始，如果您想获得对工作表中某行的引用，那么您需要添加{{1因为没有行+1，所以你会收到错误。

Answer 2

MyArray（0）总是＆＃34;＆＃34;通过代码的外观

在字符串数组中查找第一个空元素

2 个答案: