复制代码修改，谢谢！

rjtang

我录制一个宏，将现金日记账，银行存款，农行国税各表的数据复制到数据库，因复制的表行数不固定，每月都有变化，在复制前都要对每表的行数参数修改，才复制，要不然就是少复制，或将空行也复制。如代码下划线部份，不知代码如何修改，请各位老师帮看看，谢谢。

Sub Macro2()
'
' Macro2 Macro
' 宏由 微软用户 录制，时间: 2013-8-11
'

'
    Sheets("现金日记账").Select
    ActiveWindow.SmallScroll Down:=-12
    Range(A2:N17).Select
    Selection.Copy
    Sheets("数据库").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("银行存款").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A2:N20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("数据库").Select
    Range("A20").Select
    ActiveSheet.Paste
    Sheets("农行国税").Select
    Rang("A2:N26").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("数据库").Select
    Range("A33").Select
    ActiveSheet.Paste
End Sub

rjtang

目前我采取统一取最大有效的数据行作为参数，提取数据后在数据库中，进行数据整理，删除空行，并对起会计处理，然后将最终结果，复制到财务系统中提取数据处理。

rjtang

希望有好的办法，谢谢！

rjtang

希望有好的办法，谢谢！

rjtang

找不到好的方法，只好使用老方法。

rjtang

今天我用逸凡工作簿合并助手V0.98进行了选择合并也可以完成，但也不是理想的办法，主要是还要借助工具完成，与先前的工作量差不多，继续寻找办法。