VBA退出循环用Exit语句,在循环中使用Exit语句相当于C/C++的break语句,而在函数中使用Exit语句则相当于C/C++的return语句。
一、退出循环。exit for退出for循环,exit do用于退出do 或 do while循环:
'获取非空行 Function GetNotNullRow(ByVal iStartRow, ByRef iRow) Dim Rng As Range For Each Rng In Range("B" & iStartRow & ":" & "P" & 100) If Rng <> "" Then iRow = Rng.Row Exit For End If Next End Function
二、退出函数。exit sub退出过程,exit function 退出function:
'获取源工作簿名 Sub GetSourceWorkbookName(strPath As String) Dim strName As String Dim iCount As Integer iCount = 0 strName = Dir(strPath & "*.xls*") While Len(strName) > 0 If strName <> strMainWorkbookName Then ReDim Preserve arrSourceWorkbookName(iCount) arrSourceWorkbookName(iCount) = strName strName = Dir() iCount = iCount + 1 Else Exit Sub End If Wend End Sub