根據(jù)現(xiàn)有表格指定導(dǎo)出指定行的數(shù)據(jù)到表二中？

提示： 插入模塊，編輯一個(gè)宏：

1、用GetObject函數(shù)，將 D:\MyDocuments\數(shù)據(jù)備份.xls文件讀取到內(nèi)存。

2、用語句Range("A1000").End(xlUp).Row讀取最后一行行號(hào)n，假若超過1000行，只要改變1000即可。

3、判斷A5單元格是否為零，若為零，則用Range("A"&n&":C"&n).EntireRow.ClearComments清除數(shù)據(jù)；

4、清除完畢后，用 MsgBox"數(shù)據(jù)清除成功" 語句提示結(jié)束。

5、在目前文檔中一個(gè)單元格用于標(biāo)識(shí)數(shù)據(jù)清除標(biāo)識(shí)，例如A5單元格，若A5=0，表示未清除，若A5=1，則表示已清除。

6、在打開文件模塊語句中，將A5單元格清零。 以上為提示，具體代碼，你不妨自己寫。