Question

在EXCEL2010表格中，如何用宏命令自动按照格式修改表格，（普通按照步骤录制宏我都会）就是有2个问题

1、因需要将表格名为ANZ.xls粘贴到ASN.xls上面，但是每天的数据行数都不一样，如何用宏自动判断ANZ的行数然后全选（可能今天是1650行，明天是2501行）2、如何在每次粘贴前自动判断 粘贴到ASN.XLS表数据最下面第一个空白行，都是从A列第一行开始





Answer 1

图上ANZ工作簿里的工作表名看不见，假设为Sheet1。同时打开2个工作簿，执行下面代码就完成复制过程。

Sub demo()
    Dim DesRng As Range
    With Workbooks("ASN.xls").Sheets("Sheet1")
        ''获取A列最下面的第一个空单元格
        Set DesRng = .Cells(.Rows.Count, 2).End(xlUp).Offset(1, -1)
    End With
    With Workbooks("ANZ.xls").Sheets("Sheet0").UsedRange
        ''选择全部数据区域，不包含标题行
        .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy DesRng
    End With
End Sub

Answer 2

都是按Sheet1.cells(rows.count,1).end(3).row 定位出最后一行的位置，再进行复制、粘贴