【原】Excel VBA一鍵轉換戶內名單到多行排版 助力疫情防控

疫情防控工作為什么效率低下，其實Excel水平太低也是一個方面，我老婆就在社區工作，最近我們這里也封控了，她們日常有一半的事情就是在各個群里找居民收集用戶信息，然后整理表格，然后就是各種各樣的表格數據處理，還要做成各種樣式上報匯總，平時工作量小，做得慢就慢點，但是遇到了疫情防控，Excel水平低下的缺點暴露太多，比如我截圖這個表，就是一部分工作，這個表左邊到右邊，她手工做，最快也要20分鐘，據她說她還算是快的，而這樣的表可能要做好幾張，時間就這么過去了，昨天她說她實在忙不過來了找我幫忙，我就寫了一個vba代碼，用了5分鐘，一鍵完成，以后類似的表統統可以一鍵完成！注意這個問題，只有代碼可以完成，函數無法做到，所以手里表格工作比較多的朋友，還是學一點vba吧，非常實用，可以10倍100倍的提高日常工作效率！

代碼如下

代碼思路如下

1. 按行循環到最大行 聲明一個較大的結果數組 比如10000行的brr 避免redim

2. 名單列先按頓號split拆分到局部數組arr 再循環遍歷名單

3. 注意最后一個名單+空格+手機號 所以按空格split得到第2個數組brr

4. 在arr內部循環中 結果數組行號k+1依次寫入結果行 手機號從crr獲得

5. 注意最后一個k行的姓名要重新寫入去掉手機號

6. 循環過程中已經知道結果每行的行數 所以直接計算得到結果合并區域進行合并(代碼第10 11行)

7.最后寫入數組到結果區 注意這里寫入k行 而不是ubound(brr)

8. 設置單元格邊框格式  以及居中

案例文件下載