網(wǎng)友提問

回答網(wǎng)友問題：

如果只需要答案，直接拉到文章最后，如果想學習知識，順序往下看！

一、先判斷是否能平分

有余數(shù)就是不能平分，沒有就是可以平分

二、如果向上取整

三、先用數(shù)字假設

將判斷是否有余數(shù)和向上取整的功能寫在一起

（1）假設把10分給3個人

（2）假設把9分給3個人

四、先用一種水果測試

現(xiàn)在我就手工的寫出這3個人：張三、李四、王五

后面我告訴你如何自動生成

截止到這里，我是讓我大哥算的！這些都與計算機沒有直接聯(lián)系！不能說用計算機寫的就是計算機知識！

后面是我寫的，才是計算機知識呢！

因為涉及多個商品，所以我把表改裝一下

例如我要將上表中商品編碼是A01的篩選出來

現(xiàn)在用我大哥算好的代碼，寫進來

友情提示：別忘記記錄集中的下標（不算表頭，從第1條記錄開始）是從0開始的計數(shù)的

運行結果

看一下下標取對了，就可以應用了

友情提示：運行前記得把張三、李四、王五原有的內(nèi)容都刪除

運行后

現(xiàn)在只有一種商品，我們可以應用多種商品

for循環(huán)對應的next別忘記寫

完整代碼：需要答案的小伙伴直接用下面代碼就可以了

更改你的商品名稱在Crr數(shù)組中，更改你的姓名：張三李四王五，在arr數(shù)組中

運行結果

友情提示：運行前刪除?張三、李四、王五原有表中的數(shù)據(jù)

關于：張三、李四、王五等人名工作表的生成

詳見：ExcelVBA第一季第一集

https://www.bilibili.com/video/BV1rt4y1a72y

關于商品編碼去重后放到數(shù)組中

詳見ExcelVBA第二季筆記 22.1.5

或?ExcelVBA第二季第22集

https://www.bilibili.com/video/BV1rt4y1a72y

我的目的不是寫個代碼賣給誰，而是讓大家看到我寫的方法，所以我沒有把它完全寫活！至少現(xiàn)在學過的人還能看懂！您想讓哪塊寫活，再去完善！

此方法，肯定要比篩選Autofilter篩選后粘貼到一個地方再算要快。也比篩選數(shù)組的代碼量要少很多。但是它同樣有一個缺點，就是不符合數(shù)據(jù)庫規(guī)則的表格很麻煩。例如

能轉換，但是這些建議初始狀態(tài)下就規(guī)范，以免給后續(xù)工作找麻煩

本來新人寫代碼就手生，再為這些沒必要的事情增加邏輯思考和不必要的代碼量，不值當?shù)?/p>

寫在最后：本代碼在office365下測試通過！ office2016~2021 如果軟件安裝沒有問題都應該可以使用！ WPS或office早期版本沒有測試過，不一定能用！