Sub?ss()
暗淡?MyRows1?作為什麽?長的
暗淡?桃木2?作為什麽?長的
暗淡?我的烏鴉3?作為什麽?長的
暗淡?我的烏鴉4?作為什麽?長的
暗淡?Name1?作為什麽?線
暗淡?名稱2?作為什麽?線
暗淡?名字3?作為什麽?線
暗淡?我的數據?作為什麽?單壹的
用什麽?Excel。應用程序。活動工作簿
我的烏鴉4?=?1
我的烏鴉3?=?三
做什麽?什麽時候?。紙張(“紙張3”)。細胞(MyRows3,?1)?& lt& gt?""
Name1?=?。紙張(“紙張3”)。細胞(MyRows3,?1)
名稱2?=?。紙張(“紙張3”)。細胞(MyRows3,?2)
桃木2?=?三
名字3?=?""
做什麽?什麽時候?。紙張(“紙張2”)。細胞(MyRows2,?1)?& lt& gt?""
如果?。紙張(“紙張2”)。細胞(MyRows2,?1)?=?Name1?然後呢。。紙張(“紙張2”)。細胞(MyRows2,?2)?=?名稱2?然後
名字3?=?。紙張(“紙張2”)。細胞(MyRows2,?3)
退出?做
結束?如果
桃木2?=?桃木2?+?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?然後
我的烏鴉4?=?我的烏鴉4?+?1
。紙張(“紙張4”)。細胞(MyRows4,?1)?=?Name1
。紙張(“紙張4”)。細胞(MyRows4,?2)?=?名稱2
。紙張(“紙張4”)。細胞(MyRows4,?3)?=?名稱3
。紙張(“紙張4”)。細胞(MyRows4,?4)?=?我的數據
結束?如果
我的烏鴉3?=?我的烏鴉3?+?1
環
結束?隨著
結束?潛水艇