[已解决][求助]不覆盖原有的记录的数据，要另起一行记录下新数据，并且自动填写序号，要怎么

hingkk

4CExetNO.rar (7.32 KB, 下载次数: 39)

2008-10-25 16:10 上传

点击文件名下载附件
[求助]不覆盖原有的记录的数据，要另起一行记录下新数据，并且自动填写序号，要怎么做？请各位高手帮帮忙！
不覆盖原有的记录的数据，要另起一行记录下新数据，并且自动填写序号，要怎么做？请各位高手帮帮忙！

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2008-10-28 19:37

Sub Macro2()
Dim Myr%, Arr
Arr = [b3:e3]
Myr = [b65536].End(xlUp).Row + 1
Cells(Myr, 1) = Cells(Myr - 1, 1) + 1
Cells(Myr, 2).Resize(1, 4) = Application.Index(Arr, 1, 0)
End Sub

跳转到最佳答案楼层

qiuzhu

我要问的问题跟你的差不多

 

所以帮不了你了，不过我们可以交流，我的QQ：79897011

[em01]

蓝桥玄霜

Sub Macro2()
Dim Myr%, Arr
Arr = [b3:e3]
Myr = [b65536].End(xlUp).Row + 1
Cells(Myr, 1) = Cells(Myr - 1, 1) + 1
Cells(Myr, 2).Resize(1, 4) = Application.Index(Arr, 1, 0)
End Sub

hingkk

谢谢蓝桥玄霜,真历害!