这是因为第一次abcd未申明导致的,将abcd全局申明一下就好了,for语句前加个dim abcd即可
应该这样写,函数赋值要和函数名一致
Function toabcd(listnum)
Select Case listnum
Case 0
toabcd = "A."
Case 1
toabcd = "B."
Case 2
toabcd = "C."
Case 3
toabcd = "D."
Case 4
toabcd = "E."
End Select
End Function