簡(jiǎn)單高效巧用Excel實(shí)現(xiàn)隨機(jī)混排

平淡

啟動(dòng)Excel后在A列中輸入檢查人員的姓名，在B2單元格中輸入公式“=RANDBETWEEN（1，10）”并下拉（區(qū)間數(shù)字請(qǐng)根據(jù)人員的數(shù)量進(jìn)行修改，比如有50個(gè)人就設(shè)置為1，5 0），該公式表示使用RANDBETWEEN函數(shù)隨機(jī)生成1-10之間的整數(shù)。由于每次生成的都是隨機(jī)數(shù)字，因此當(dāng)A列中的數(shù)據(jù)以這個(gè)隨機(jī)數(shù)字作為排序的依據(jù)時(shí)，每次的排序結(jié)果都不相同（圖2）。

接下來(lái)登錄“http：//dwz.win/QkX”并下載所需的VBA腳本（提取碼：x5r3），下載完后返回Excel，按下“Alt+F11”組合鍵打開(kāi)VBA窗口，依次點(diǎn)擊“插入→模塊”，將下載到的腳本復(fù)制到該窗口。大家要根據(jù)實(shí)際情況修改代碼，比如“Fori=9To2Step-1”，表示對(duì)A9到A2單元格中的數(shù)據(jù)進(jìn)行遍歷，步長(zhǎng)是“-1”，這樣會(huì)依次從A9單元格一直循環(huán)顯示到A2單元格，最終顯示A2單元格中的數(shù)值。如果A列中的數(shù)據(jù)更多，就需要更改這里的數(shù)字。Rows（2）.Delete表示刪除第二行的數(shù)值，這樣每運(yùn)行一次腳本就會(huì)將該行所顯示的數(shù)值刪除，可以保證不重復(fù)顯示。如果要?jiǎng)h除其他行的數(shù)值，將這里的數(shù)字2改成相應(yīng)的數(shù)字即可（圖3）。

而A列的隨機(jī)排序我們可以通過(guò)錄制宏的方法來(lái)實(shí)現(xiàn)。依次點(diǎn)擊“開(kāi)發(fā)工具→錄制宏”，新建一個(gè)宏1。接著開(kāi)始執(zhí)行下面的操作：選中A1：B9區(qū)域，依次點(diǎn)擊“數(shù)據(jù)→排序”，在彈出的對(duì)話(huà)框中，“主要關(guān)鍵字”選擇“隨機(jī)排序”，“排序依據(jù)”選擇“單元格值”，“次序”設(shè)置為“降序”，點(diǎn)擊“確定”后停止宏的錄制（圖4）。

現(xiàn)在測(cè)試一下宏1，可以看到由于B列為隨機(jī)數(shù)字，因此在A列中每次排序的結(jié)果都是不同的，即在A2單元格中顯示的名字是隨機(jī)的。由于默認(rèn)最終顯示名字的位置是C1單元格，我們還需要將每次選中的人名復(fù)制到對(duì)應(yīng)分公司的單元格中，這可以借助粘貼圖片的方法來(lái)實(shí)現(xiàn)。

復(fù)制C1單元格后定位到D2單元格，依次點(diǎn)擊“開(kāi)始→粘貼→其他粘貼選項(xiàng)→鏈接的圖片”，會(huì)在D2單元格中粘貼一張圖片，顯示的內(nèi)容為C1單元格中的數(shù)值。記住該圖片的名稱(chēng)，比如本例為圖片1（圖5）。

在G9：G15單元格中依次輸入分公司的名稱(chēng)，同上啟動(dòng)宏2的錄制，執(zhí)行下面的操作：選中圖片1并復(fù)制，接著定位到H9單元格，依次點(diǎn)擊“開(kāi)始→粘貼→圖片”，將圖片1以“圖片”的形式粘貼到H 9單元格，最后再定位到圖片1所在的位置，完成宏2的錄制。錄制完后運(yùn)行宏2，查看能否將圖片1復(fù)制到H9單元格（圖6）。默認(rèn)每運(yùn)行一次腳本，C1單元格都會(huì)顯示不同的人名，但是通過(guò)上述“復(fù)制→粘貼→圖片”的方法，我們可以將C1單元格每次顯示的人名復(fù)制并保存下來(lái)。

完成上述的操作后再測(cè)試一下所有的流程。先執(zhí)行宏1，檢查能否在A列實(shí)現(xiàn)隨機(jī)排序。接著執(zhí)行下載到的VBA腳本，檢查能否在C1單元格中隨機(jī)顯示A 2單元格中的人名，并同時(shí)自動(dòng)刪除第二行的數(shù)據(jù)。最后執(zhí)行宏2，檢查圖片1能否成功地復(fù)制到H8單元格（因?yàn)閯h除了第二行的數(shù)據(jù)，因此原來(lái)的H9單元格變?yōu)镠8單元格）（圖7）。

測(cè)試完后如果沒(méi)有問(wèn)題，按下“Alt+F11”組合鍵打開(kāi)VBA窗口，在“Sub cfan（）”下添加上宏1（用于隨機(jī)排序）、“Loop Until k >=10”下添加上宏2（用于復(fù)制圖片到對(duì)應(yīng)的分公司），編輯完代碼后返回宏窗口，為該宏設(shè)置運(yùn)行快捷鍵為“Ctrl +R”。

返回Excel窗口，隱藏A和B列，同時(shí)調(diào)整圖片1的大小和位置。以后只要每次按下“Ctrl+R”組合鍵，C1單元格和圖片1就會(huì)循環(huán)顯示A2：A9區(qū)域中的人名，最終定格顯示A2單元格中的內(nèi)容，接著將其復(fù)制到H9單元格。由于該腳本會(huì)自動(dòng)刪除第二行的數(shù)據(jù)，這樣執(zhí)行宏2時(shí)會(huì)依次將顯示隨機(jī)名字的圖片復(fù)制到H2：H8區(qū)域（圖8）。