本帖最后由 switchfoot 于 2020-6-6 14:01 编辑
Sub 保存() On Error GoTo 100 Dim es As Range, m% If Sheet2.Columns("g").Find([b2]) = [b2] Then MsgBox "已经保存过了!" Else 100: Set es = Cells.Find("*", , xlValues, , xlByRows, xlPrevious) m = Application.CountA(Sheet2.[a:a]) n = es.Row If es.Row = 4 Then MsgBox "没有填写内容!" Else Range([a5], es).Copy Sheet2.Cells(m + 1, 1) Sheet2.Cells(m + 1, "g").Resize(es.Row - 4) = [b2] Sheet2.Cells(m + 1, "h").Resize(es.Row - 4) = [e2] Sheet2.Cells(m + 1, "i").Resize(es.Row - 4) = Now() End If End If End Sub
求助把存入另一个sheet改为存入另一个xls
|