Excel 对于，如果为真，如果a=b，则复制 i=2到最终路径的 如果范围（“J100”）.End（xlUp）.Offset（1，0）.Value=”“&范围（“J100”）.End（xlUp）.Offset（1，-3）.Value“”，则 如果单元（i，14）=Vlot，则 表7.范围（单元格（i，14））。副本 表7.范围（“J100”）.结束（xlUp）.偏移量（1,0）.粘贴特殊XLPaste公式和数字格式 如果结束 接下来我

我一直得到下一个没有错误。任何帮助都会很好，谢谢

请试试这个：）

i=2到8的

如果范围（“J100”）.End（xlUp）.Offset（1，0）.Value=”“和范围（“J100”）.End（xlUp）.Offset（1，-3）.Value“”，则
如果单元（i，14）=Vlot，则
表7.范围（单元格（i，14））。副本
表7.范围（“J100”）.结束（xlUp）.偏移量（1,0）.粘贴特殊XLPaste公式和数字格式
如果结束
如果结束
接下来我

您没有使用

结束IF

和

操作符，而不是
&
终止第一个
IF
。
For i = 2 To finalrow
   If Range("J100").End(xlUp).Offset(1, 0).Value = "" & Range("J100").End(xlUp).Offset(1, -3).Value <> "" Then
     If Cells(i, 14) = Vlot Then
       Sheet7.Range(Cells(i, 14)).Copy
       Sheet7.Range("J100").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
     End If
Next i

For i = 2 To 8
   If Range("J100").End(xlUp).Offset(1, 0).Value = "" And Range("J100").End(xlUp).Offset(1, -3).Value <> "" Then
        If Cells(i, 14) = Vlot Then
          Sheet7.Range(Cells(i, 14)).Copy
          Sheet7.Range("J100").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
        End If
    End If
Next i