沒有，只能自己寫一個函數(shù)，用循環(huán)。

8,2,14,8,15,9,25,19,28,22,29,23,16,6,17,7,27,17,30,20,31,21,23,1,33,11,36,14,15,34,10,13,14,3,4,1 首先SPLIT，保存到數(shù)組里，然后用FOR循環(huán)，寫到另一個數(shù)組……寫的時候判斷是否有該項。

function xh(arr1) dim str2,arr2 str2= " " for i=Lbound(arr1) to Ubound(arr1) if instr(str2, ", "&arr1(i)& ", ") <1 then str2=str2 & ", "&arr1(i)& ", " end if next str2=mid(str2,2,len(str2)-2) arr2=split(str2, ",, ") xh = arr2 end function