當前位置:成語大全網 - 書法字典 - VBA跨表詞典統計

VBA跨表詞典統計

直接寫代碼就能解決!

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

結束?隨著

結束?潛水艇