国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

沒(méi)有，只能自己寫(xiě)一個(gè)函數(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)，寫(xiě)到另一個(gè)數(shù)組……寫(xiě)的時(shí)候判斷是否有該項(xiàng)。

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