[已解决]输入后保存

v-cand

问题在附件中，

最佳答案

月排行榜 / 总排行榜

ssdboy

2015-7-2 09:27

Sub 保存()
Dim rr%
    rr = Sheets("时间录入表").Range("A65536").End(xlUp).Row
    Range("A7:I13").Select
    Selection.Copy
    Sheets("时间录入表").Select
    Cells(rr + 2, 1).Select
    ActiveSheet.Paste
End Sub

跳转到最佳答案楼层

v-cand

                 .

ssdboy

Sub 保存()
Dim rr%
    rr = Sheets("时间录入表").Range("A65536").End(xlUp).Row
    Range("A7:I13").Select
    Selection.Copy
    Sheets("时间录入表").Select
    Cells(rr + 2, 1).Select
    ActiveSheet.Paste
End Sub

v-cand

ssdboy 发表于 2015-7-2 09:27
Sub 保存()
Dim rr%
    rr = Sheets("时间录入表").Range("A65536").End(xlUp).Row

谢谢，问题解决了