使用的IsEmpty停止循環

Question

我發現，直接應用到，我想在這裏Excel VBA: Loop through cells and copy values to another workbook構建代碼的線程。

Sub test() 

Dim ws1 As Worksheet, ws2 As Worksheet 
Dim CurCell_1 As Range, CurCell_2 As Range 
Dim Ran As Range 
Dim Group As Range, Mat As Range 

Application.ScreenUpdating = True 

Set ws1 = ActiveWorkbook.Sheets("Scrap") 
Set ws2 = ActiveWorkbook.Sheets("FC Detail") 

For Each Mat In ws1.Range("E:E") 
    Set CurCell_2 = ws2.Range("F8") 
    For Each Group In ws1.Range("E:E") 
     Set CurCell_1 = ws1.Cells(Group.Row, Mat.Column) 
     If Not IsEmpty(CurCell_2) Then 
      CurCell_2.Value = CurCell_1.Value 
     End If 
    Next 
Next 

End Sub 

此代碼有一個例外，它不斷循環。

我認爲If Not IsEmpty將是描述符VBA，一旦到達列表的末尾停止該程序。

Answer 1

而且我的評論，試試這個。這將更快

Sub Test() 
    Dim ws1 As Worksheet, ws2 As Worksheet 
    Dim CurCell_1 As Range, CurCell_2 As Range 
    Dim Group As Range, Mat As Range, Ran As Range 
    Dim lRow As Long 

    Set ws1 = ActiveWorkbook.Sheets("Scrap") 
    Set ws2 = ActiveWorkbook.Sheets("FC Detail") 

    With ws1 
     lRow = .Range("E" & .Rows.Count).End(xlUp).Row 

     Set Ran = .Range("E1:E" & lRow) 

     For Each Mat In Ran 
      Set CurCell_2 = ws2.Range("F8") 
      For Each Group In Ran 
       Set CurCell_1 = .Cells(Group.Row, Mat.Column) 
       If Not IsEmpty(CurCell_2) Then 
        CurCell_2.Value = CurCell_1.Value 
       End If 
      Next 
     Next 
    End With 
End Sub