如何利用excel的VBA编程解决 根据现有表格指定导出指定行的数据到表二中（vba从excel按条件提取数据）

提示： 插入模块，编辑一个宏：

1、用GetObject函数，将 D:MyDocuments数据备份.xls文件读取到内存。

2、用语句Range("A1000").End(xlUp).Row读取最后一行行号n，假若超过1000行，只要改变1000即可。

3、判断A5单元格是否为零，若为零，则用Range("A"&n&":C"&n).EntireRow.ClearComments清除数据；

4、清除完毕后，用 MsgBox"数据清除成功" 语句提示结束。

5、在目前文档中一个单元格用于标识数据清除标识，例如A5单元格，若A5=0，表示未清除，若A5=1，则表示已清除。

6、在打开文件模块语句中，将A5单元格清零。 以上为提示，具体代码，你不妨自己写。