将单元格的内容添加到VBA中的字符串变量中。此外，使用偏移量在其下方添加单元格

Question

我有一个简单的函数，它将从特定的Cell（N4）中拉出来。如果下面有单元格，那么它将循环并收集单元格的所有内容并用逗号分隔。

我现在在excel中出现#VALUE!错误，我知道我的问题在哪里，但无法弄清楚如何修复它，因为我不熟悉excel-vba代码。我认为问题出在ActiveSheet.Range("N4").Value和偏移部分。

我不确定如何偏移然后选择文本中的值然后将其添加到我的字符串Value。 有关如何选择单元格内容并添加到字符串变量并在偏移时执行相同操作的想法吗？

这是我的代码：

Function pullshit() As String

Dim output As String
Dim counter As Integer

counter = 1

output = ActiveSheet.Range("N4").Value

If Application.offset(N4, counter, 0).Value = "" Then

    pullshit = output

Else
    While counter <> 0
        output = output + ", " + Application.offset(N4, counter, 0).Value
        counter = counter + 1

        If Application.offset(N4, counter, 0) = "" Then
            counter = 0
        End If
    Wend

    pullshit = output

End If

End Function

Answer 1

偏移使用是错误的。试试这个。

Function pullshit() As String

Dim output As String
Dim counter As Integer

counter = 1

output = ActiveSheet.Range("N4").Value

If Range("N4").Offset(counter, 0).Value = "" Then

    pullshit = output

Else
    While counter <> 0
        output = output + ", " + Range("N4").Offset(counter, 0).Value
        counter = counter + 1

        If Range("N4").Offset(counter, 0) = "" Then
            counter = 0
        End If
    Wend

    pullshit = output

End If

End Function

在屏幕截图中使用该功能