Sub？ss()
暗淡？MyRows1？作為？長的
暗淡？MyRows2？作為？長的
暗淡？MyRows3？作為？長的
暗淡？MyRows4？作為？長的
暗淡？Name1？作為？線
暗淡？名字2？作為？線
暗淡？名字3？作為？線
暗淡？我的數據？作為？單壹的
用什麽？Excel。應用程序. ActiveWorkbook
MyRows4？=?1
MyRows3？=?三
做什麽？什麽時候？。紙張(“紙張3”)。單元格(MyRows3，1)?& lt& gt？""
Name1？=?。紙張(“紙張3”)。單元格(MyRows3，1)
名字2？=?。紙張(“紙張3”)。單元格(MyRows3，2)
MyRows2？=?三
名字3？=?""
做什麽？什麽時候？。紙張(“紙張2”)。細胞(MyRows2，1)?& lt& gt？""
如果？。紙張(“紙張2”)。細胞(MyRows2，1)?=?Name1？然後呢。。紙張(“紙張2”)。細胞(MyRows2，2)?=?名字2？然後
名字3？=?。紙張(“紙張2”)。細胞(MyRows2，3)
退出？做
結束？如果
MyRows2？=?MyRows2？+?1
環
如果？名字3？& lt& gt？""?然後
我的數據？=?-999.999
MyRows1？=?三
做什麽？什麽時候？。工作表(“工作表1”)。單元格(MyRows1，1)?& lt& gt？""
如果？。工作表(“工作表1”)。單元格(MyRows1，1)?=?Name1？然後呢。。工作表(“工作表1”)。單元格(MyRows1，2)?=?名字3？然後
我的數據？=?。工作表(“工作表1”)。細胞(MyRows2，3)
退出？做
結束？如果
MyRows1？=?MyRows1？+?1
環
結束？如果
如果？我的數據？& lt& gt？-999.999?然後
MyRows4？=?MyRows4？+?1
。紙張(“紙張4”)。細胞(MyRows4，1)?=?姓名1
。紙張(“紙張4”)。細胞(MyRows4，2)?=?名稱2
。紙張(“紙張4”)。細胞(MyRows4，3)?=?名稱3
。紙張(“紙張4”)。細胞(MyRows4，4)?=?我的數據
結束？如果
MyRows3？=?MyRows3？+?1
環
結束？隨著
結束？潛水艇