是哪里出了问题以下代码
With Sheet12
m = .Range("C" & Rows.Count).End(xlUp).Row
For i = 6 To m
If .Range("D" & i) = Sheet14.Range("H2") Then
n = Sheet14.Range("D" & Rows.Count).End(xlUp).Row + 1
For j = 2 To 14
Sheet14.Cells(n + 1, j) = .Cells(i, j + 1)
Next
End If
Next
End With