就诊日志

Sub 保存()

    lastrow = Sheets("数据库").[A1].End(xlDown).Offset(1, 0).Row

    Sheets("就诊日志").Range("C2:C7").Copy

    With Sheets("数据库")

        .Select

        .[A1].End(xlDown).Offset(1, 0).Select

        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _

                                                                                 False, Transpose:=True

        Sheets("就诊日志").Range("E2:E7").Copy

        .Range("G" & lastrow).Select

        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _

                                                                                 False, Transpose:=True

        Sheets("就诊日志").Select

        'Range("C3:C6,E2:E7").ClearContents

        Range("C3").Select

    End With

End Sub