尝试从函数返回计算值时，出现“编译错误：预期：语句结束”

我已经编写了一个函数，发现在第三行有一个空单元格的第一列，但我不知道如何返回该整数。

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() 

基本上，当我input“Return iColumn”语句时出现错误。 我如何获得函数来返回我存储在iColumn中的值？

Answer 1

VBA中的Return语句不返回函数的结果。 改用函数名称。

代替：

 Return iColumn 

使用：

 FindEmptyColumn = iColumn 

---

在VBA中， Return语句只和GoSub一起使用。

MSDN： GoSub …返回声明