程序代碼是:
子更新列表()
Dim arr，list$(1到100，1到1)，i & ampj & amp，n & amp，nm$，st作為工作表
對於工作表中的每個st
如果Len(st.Name) = 1，那麽“單字母名稱表”就是列表。
arr =聖UsedRange
對於i = 6至下界(arr)
nm = Trim(arr(i，1))
如果nm & lt& gt”“那麽
對於j = 1到n
如果list(j，1) = nm，則退出
下壹個j
如果j & gt那麽
n = n + 1
list(n，1) = nm
如果…就會結束
如果…就會結束
接下來我
如果…就會結束
下壹條街
和我壹起。範圍(" B5 ")。調整大小(n，1)
。挑選
。值=列表
以…結尾
末端接頭
如果願意，還可以設置工作表的Change事件，自動修改月度統計的列表，看起來高級壹點。