end if没有if块，新手上路，请大神指点，帮忙看看，还有哪里不对，谢谢！

zcf0201

Sub 合并文件()

Dim c, d, e, f, h
Dim fj As String
Dim dyg
Dim Wb As Workbook
h = Range("c1") + 3
paths = ThisWorkbook.Path & "\"
Set Wb = Workbooks.Open(paths & Range("O5") & ".xlsx")

For b = 2 To 11
  For a = 2 To 11
   If Range("A" & a) Like "*" & Range("B" & b) & "*" Then
       fj = Range("B" & b)
       Set Wb = Workbooks.Open(Range("A" & a))
       With Workbooks(1).ActiveSheet
       For i = 3 To h
         Windows(Wb).Activate
         Workbooks(1).Select

         If Range("a" & i) Like "*" & fj Then
          dyg = Range("D" & "i:E" & i)
          Windows(Range("O5") & ".xlsx").Activate
          Workbooks(1).Select
          Range("D" & "i:E" & i) = dyg
         End If
       Next
        Workbooks(Range(Wb)).Close
   Windows("6.xlsm").Activate

   End If

  Next a

Next b

End Sub

zcf0201

就是用for和if的组合，嵌套，检索目标文件里面的某列单元格的值，符合后返回该行中的两个单元格到目标空表的对应单元格。

abc123281

If Range("a" & i) Like "*" & fj Then
            dyg = Range("D" & "i:E" & i)
            Windows(Range("O5") & ".xlsx").Activate
            Workbooks(1).Select
            Range("D" & "i:E" & i) = dyg
           End If
         Next
       End With

zcf0201

解决问题，谢谢啦