EXCEL VBA製作庫存盤點小工具

Excel 酷知客 酷知客 2017-11-08

工作中我們常常要進行賬目核對,弄得眼花繚亂,如何快速的將已經核對過的和未核對過的分開,我來告訴你一鍵就可實現。

喜歡的朋友關注我,後續給大家帶來更多精彩內容哦。

先上視頻:

讓你的工作簡單高效到爆

附源碼:

Sub 未盤點編碼()

Dim rng As Range, rngs As Range, k%, i%, j% '定義變量

i = Range("a65536").End(xlUp).Row '返回A列最後一行的行號

j = Range("g65536").End(xlUp).Row '返回G列最後一行的行號

For Each rng In Range("a1:a" & i) '第一層循環查找A列值

For Each rngs In Range("g1:g" & j) '第二層循環查找G列值

If rngs = rng Then '比較

GoTo 100 '相等就跳出第二層循環

End If

Next rngs

k = k + 1 '計數器

Cells(k, "h") = rng '賦值給單元格

100:

Next rng

End Sub

>>>>>>記得關注哦<<<<<<<<

酷知客 原創

相關推薦

推薦中...