Excel如何製作年終盤點清單，你跟高手之間差了這段代碼

每家公司都會製作年終盤點清單，今天我們就來學習一下，年終盤點清單到底如何來製作。

如上圖，當我們點擊表格中的核對按鈕後，我們需要核對的內容將自動顯示出來。下面來看一下具體的操作方法。

第一步：按alt+F11，或者點擊開發者工具—點擊visual basic，進入代碼編輯窗口；

第二步：進入代碼窗口後，右鍵點擊左邊的thisworkbook，插入模塊，雙擊模塊後輸入下方的代碼即可。

代碼如下：

"年終盤點，根據庫存核對已經盤點過的編碼

Sub 盤點表綜合實例()

Dim rng As Range, rngs As Range, K% "定義rng、rngs作為區域變數，K為整形變數

For Each rng In [A1:A796] "變數 rng 循環區域為A1:A796，因為編碼區域在A1:A796

For Each rngs In [G1:G175] "變數 rngs 循環區域為G1:G175，已盤點區域在G1:G175

If rngs = rng Then

GoTo 100 "如不相等跳出

End If

Next rngs "如在a列核對完G列G2，則循環下一個G3............

K = K + 1

Cells(K, "H") = rng "如上面rngs與rng不相等，則將rng的值賦值給H2單元格

100: "如同上方的goto，因為goto語句必須接常量

Next rng

End Sub

第三步：插入圖形，命名為核對兩個字，點擊右鍵選擇指定宏即可。

第四步：輸入需要核對內容後，點擊核對按鈕，即可對數據源中數據進行核對。

GIF

注意點：

1、goto語句必須接常量，不能接變數；cells(k,"H")=rng這個變數，所以第二個goto直接引用100；

2、cells（K,"H"）可以使用H作為列，但是必須雙引號。

現在你學會製作年終盤點表格了嗎？

喜歡的話轉發或掃描下發的二維碼關注一下唄~

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！