程序代碼圖:
實施效果:
程序文本:
選項顯式
子宏1()
Dim a()，d(1到9)作為賓語，e()，h()，i & ampj & amp，n & amp，st作為工作表
對於工作表中的每個st '對於所有工作表
如果聖名& lt& gt那麽“彩票數據”
交換表並將內容放入數組。
聖激活
參數區處理:建立字典，1-9代表H-P的列號。
a = st.Range("h1:p1 ")
對於i = 1到UBound(a，2)
如果不是，那麽d(i)什麽都不是
d(壹)。全部刪除
其他
Set d(i) = CreateObject("腳本。字典》)
如果…就會結束
a(1，i) = Trim(a(1，I))
對於j = 1到Len(a(1，I))
d(i)(Mid(a(1，I)，j，1)) = 1
下壹個j
接下來我
數據區處理
N =列St. Cells (St. Rows)最後壹行的行號。數數，“e”)。結束(XLUP)。排e。
如果n & gt= 9，則跳過少於9行的表。
E = st.range (st.cells (9，" e ")，st.cells (n，" g))'例如:g-源數組。
H = st.range (st.cells (9，" h ")，st.cells (n，" p))' h:p-結果數組。
對於i = 1到下界(e)
對於j = 1到3
e(i，j) = Trim(e(i，j))
下壹個j
如果e(i，1)& lt；& gt""和e(i，2)& lt；& gt""和e(i，3)& lt；& gt”“那麽
對於j = 1到UBound(a，2)
如果d(j)(e(i，1)) + d(j)(e(i，2)) + d(j)(e(i，3))& gt；那麽= 2
h(i，j) = 2
其他
h(i，j) =空
如果…就會結束
下壹個j
如果…就會結束
接下來我
數組回寫表
帶st.Range(st.Cells(9，“h”)、st.Cells(n，“p”))
。挑選
。值= h
以…結尾
如果…就會結束
如果…就會結束
下壹條街
末端接頭