尝试从函数返回计算值时,获取"编译错误:预期:语句结束"

Question

我编写了一个函数,找到第三行中有一个空单元格的第一列,但我无法弄清楚如何返回该整数.

Function FindEmptyColumn()
' Find the first empty column to paste data into

    ThisWorkbook.Activate
    Worksheets("Black Cam Raw Data").Activate
        Dim dCounter As Double
    dCounter = 1
    Dim iColumn As Integer
    Do Until Cells(3, dCounter) = ""
        iColumn = dCounter
        dCounter = dCounter + 1
    Loop
    iColumn = iColumn + 1
Return iColumn

End Function

Sub CMM_93Cam(ByVal wbTempName As Workbook)
'
' CMM_93Cam Macro
' This subroutine imports data from the CMM Report for a 195C93 Cam flatness measurement into this file.
'
    iColumn = FindEmptyColumn()

基本上,当我输入"Return iColumn"语句时出现错误.如何让函数返回我在iColumn中存储的值？

Answer 1

ReturnVBA中的语句不返回函数的结果.请改用函数名称.

代替:

Return iColumn

使用:

FindEmptyColumn = iColumn

在VBA中,该Return语句仅与结合使用GoSub.

MSDN: GoSub ...返回声明