Dim Multi As String = Tables("表B").Current("第四列")Dim Values() As StringValues = Multi.split(";")Tables("表B").Current("第五列")=Values.Length-1