functioncountstr(str1、str2) dimtmp、i、j ifstr1 = "" orisnull(str1)then j = 0 elseifstr2 = "" orisnull(str2)then j = 1それ以外tmp = split(str1、str2) j = 0 fori = 0toubound(tmp) Iftmp(i)<> "" thenj = j+1次endif countStr = jエンド機能