求助把存入另一个sheet改为存入另一个xls

switchfoot

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

金樽空对月

详见附件，请查阅

switchfoot

金樽空对月 发表于 2020-6-4 21:14
详见附件，请查阅

好的好的，我试一下。谢谢您

switchfoot

金樽空对月 发表于 2020-6-4 21:14
详见附件，请查阅

您好，我试了一下，这个能否实现判定qq里面是否已经有了词条数据，如果有的话用msgbox提醒。其次就是这个保存能否实现在qq里面自动往下存储，现在是直接替换了。不是向下保存的。