自定義公式-按ALT+F11-插入模塊-粘貼代碼-將表格保存為啟用宏的格式。
函數用戶定義的函數(b表示範圍，a表示字符串)
Order = "高中|大專|本科|研究生"
對於i = 2到[a65536]。結束(3)。排
如果b.Cells(i，2) = "，則
如果InStr (sequence，b.Cells(i，1)) > = InStr (order，a)，則用戶定義函數=用戶定義函數+1
ElseIf InStr (sequence，b.Cells(i，2)) > = InStr (order，a)然後用戶定義函數=用戶定義函數+1
如果…就會結束
然後
結束功能