當前位置:成語大全網 - 書法字典 - EXCEL VBA多表查詢

EXCEL VBA多表查詢

假設sheet2-sheet10的A列之和與sheet1的A列之和有且只有壹個數字相同,並且假設所有的表都沒有空行,那麽可以用下面的VBA程序實現多表查詢:

Sub?多表查詢()

暗淡?rag1?作為?範圍,?拉吉?作為?範圍

暗淡?ws?作為?工作表

暗淡?我?作為?整數,?j?作為?整數

為了什麽?每個?rag1?在?張(1)。範圍(" A:A ")

如果?rag1。劃?& gt?1?然後

如果?rag1。價值?=?""?然後呢?退出?為

為了什麽?我?=?2?去哪?床單。數數

為了什麽?每個?拉吉?在?床單(壹)。範圍(" A:A ")

如果?拉吉。劃?& gt?1?然後

如果?拉吉。價值?=?""?然後呢?退出?為

如果?拉吉。價值?=?rag1。價值?然後

為了什麽?j?=?1?去哪?七

rag1。偏移量(0,?j)。價值?=?拉吉。偏移量(0,?j)。價值

下壹個?j

GoTo?l

結束?如果

結束?如果

然後

下壹個?我

結束?如果

l:

然後

結束?潛水艇