求教这个代码为啥只复制前五列到目标工作表中

araki0

Private Sub bc_Click()
    On Error GoTo 100
    Dim es As Range, a%
    If Sheet3.[a:a].Find([h3]) = [h3] Then
        MsgBox "已经保存过了"
    Else
100:
        Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
        a = Application.CountA(Sheet3.[a:a])
        If es.Row = 7 Then MsgBox "没有填写内容": End
        Range([a8], es).Copy Sheet3.Cells(a + 1, 5)
        Sheet3.Cells(a + 1, "a").Resize(es.Row - 7) = [h3]
        Sheet3.Cells(a + 1, "d").Resize(es.Row - 7) = [b3]
        Sheet3.Cells(a + 1, "b").Resize(es.Row - 7) = [b4]
        Sheet3.Cells(a + 1, "c").Resize(es.Row - 7) = [h4]
        Sheet3.Cells(a + 1, "l").Resize(es.Row - 7) = [g5]
        Sheet3.Cells(a + 1, "m").Resize(es.Row - 7) = [i5]
        Sheet3.Cells(a + 1, "n").Resize(es.Row - 7) = [b5]
        Sheet3.Cells(a + 1, "o").Resize(es.Row - 7) = [d5]
        Sheet3.Cells(a + 1, "p").Resize(es.Row - 7) = [e4]
        MsgBox "保存成功"
    End If
End Sub

araki0

而且还有打开文件的弹窗出现···求大神指教，帮忙修改

araki0

已找到问题，原表单元格中有数据公式造成的