Excel vba尽管循环不识别do while语句

Question

我正在尝试编写一个宏，该宏检查一张表中名为原始数据的每个行，以查找匹配的名称，如果名称匹配，则将该行中的数据复制到表单称为名称搜索。我正在尝试使用do while while循环来做到这一点，这与我过去成功使用的类似。

但是，当我尝试运行它时，它会给我错误“Loop without do”，尽管事实上一切似乎都在正确的位置。我的代码如下：

Sub NameSearch() 

Sheets("Raw Data").Unprotect ("29745") 
Application.ScreenUpdating = False 

Dim x As Long 

'set starting point at row 2 
x = 2 

Dim sourceSheet As Worksheet: Set sourceSheet = ThisWorkbook.Worksheets("Raw Data") 
Dim destSheet As Worksheet: Set destSheet = ThisWorkbook.Worksheets("Name Search") 

Do While sourceSheet.range("A" & x).Value <> "" 

    If sourceSheet.range("O" & x).Value <> destSheet.range("B2") Then 
     x = x + 1 

    Else 
    If sourceSheet.range("O" & x).Value = destSheet.range("B2") Then 

'selects the next row where the 1st column is empty 
      lMaxRows = destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row 
'pastes the data from the specified cells into the next empty row 
      destSheet.range("A" & lMaxRows + 1).Value = sourceSheet.range("A" & x).Value 
      destSheet.range("B" & lMaxRows + 1).Value = sourceSheet.range("B" & x).Value 
      destSheet.range("C" & lMaxRows + 1).Value = sourceSheet.range("C" & x).Value 
      destSheet.range("D" & lMaxRows + 1).Value = sourceSheet.range("D" & x).Value 
      destSheet.range("E" & lMaxRows + 1).Value = sourceSheet.range("E" & x).Value 
      destSheet.range("F" & lMaxRows + 1).Value = sourceSheet.range("F" & x).Value 
      destSheet.range("G" & lMaxRows + 1).Value = sourceSheet.range("G" & x).Value 
      destSheet.range("H" & lMaxRows + 1).Value = sourceSheet.range("F" & x).Value - sourceSheet.range("G" & x).Value 
      destSheet.range("I" & lMaxRows + 1).Value = sourceSheet.range("M" & x).Value 
      destSheet.range("J" & lMaxRows + 1).Value = sourceSheet.range("N" & x).Value 

     x = x + 1 

    End If 

Loop 

End Sub 

我不能为我的生活弄清楚我做错了什么。任何帮助改善我的代码将不胜感激！

Answer 1

你缺少一个End If ...见下文

Sub NameSearch() 

Sheets("Raw Data").Unprotect ("29745") 
Application.ScreenUpdating = False 

Dim x As Long 

'set starting point at row 2 
x = 2 

Dim sourceSheet As Worksheet: Set sourceSheet = ThisWorkbook.Worksheets("Raw Data") 
Dim destSheet As Worksheet: Set destSheet = ThisWorkbook.Worksheets("Name Search") 

Do While sourceSheet.range("A" & x).Value <> "" 

    If sourceSheet.range("O" & x).Value <> destSheet.range("B2") Then 
     x = x + 1 

    Else 
    If sourceSheet.range("O" & x).Value = destSheet.range("B2") Then 

'selects the next row where the 1st column is empty 
      lMaxRows = destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row 
'pastes the data from the specified cells into the next empty row 
      destSheet.range("A" & lMaxRows + 1).Value = sourceSheet.range("A" & x).Value 
      destSheet.range("B" & lMaxRows + 1).Value = sourceSheet.range("B" & x).Value 
      destSheet.range("C" & lMaxRows + 1).Value = sourceSheet.range("C" & x).Value 
      destSheet.range("D" & lMaxRows + 1).Value = sourceSheet.range("D" & x).Value 
      destSheet.range("E" & lMaxRows + 1).Value = sourceSheet.range("E" & x).Value 
      destSheet.range("F" & lMaxRows + 1).Value = sourceSheet.range("F" & x).Value 
      destSheet.range("G" & lMaxRows + 1).Value = sourceSheet.range("G" & x).Value 
      destSheet.range("H" & lMaxRows + 1).Value = sourceSheet.range("F" & x).Value - sourceSheet.range("G" & x).Value 
      destSheet.range("I" & lMaxRows + 1).Value = sourceSheet.range("M" & x).Value 
      destSheet.range("J" & lMaxRows + 1).Value = sourceSheet.range("N" & x).Value 

     x = x + 1 

    End If 
End If '<----MISSING END IF 
Loop 

End Sub