子測試()
維度i%，j%，x%
I =範圍(“b65536”)。結束(xlup)。獲取b列中最後壹個非空單元格的行號。
如果我& lt當沒有數據，只有標題行存在時，退出程序。
對於x=3到I
if單元格(x，2)& lt；& gt" "那麽j = j+1: cells (x，1) = j '判斷B列是否為空。如果不是，則將序列號j+1寫入相應的單元格a。
下壹個x
末端接頭
如果妳這樣處理，就不會有問題