今天就和大家分享下如何用Excel來制作一個簡單的抽獎小程序，首先我們來看下最終效果：

?

想做出這樣的一個抽獎模型其實并不難，所用到的只有indirect、counta和randbetween3個函數公式以及一點vba宏的知識。我們甚至可以不用下面的開始和結束按鈕，不加宏都可以制作出來一個簡單的抽獎模型，具體怎么做呢？為大家來揭秘一下。

首先，我們將需要抽獎的名單填充到A列，然后選擇一定區域合并單元格將來顯示抽獎結果，這個可以根據自己的審美喜好來調整。?

?

第二步，在抽獎結果單元格填充公式：=INDIRECT("a"&RANDBETWEEN(2,COUNTA(A:A)))，然后隱藏A列。?

?

這個時候你會發現，我們按住F9鍵，中獎結果就是發生改變。（可以把F9當成抽獎開關，長按一直刷新，松開就出結果），對于我們要求低的讀者來說，已經是可以直接拿來用了。

為什么會有這種效果呢?我們來解釋下=INDIRECT("a"&RANDBETWEEN(2,COUNTA(A:A)))這串公式的含義。

① COUNTA(A:A)，計數作用，來數一下A列包括表頭“姓名”以外非空單元格的數量，即有多少人參與抽獎（通過這個公式，不管之后姓名是增加還是減少，公式都不用再改）

② RANDBETWEEN(2,COUNTA(A:A))，在2到N直接隨機取數（N為名單最后一個單元格的行數）

③ INDIRECT("a"&RANDBETWEEN(2,COUNTA(A:A)))即表示A？單元格的值，？就是RANDBETWEEN(2,COUNTA(A:A))的隨機結果，也就是從A2到AN單元格隨機選中一個單元格。（從A2開始是因為A1為表頭）

F9單元格控制randbetween公式的刷新，所以我們可以制作出一個簡單的抽獎程序。