dim ckg as string = Tables("aaa").current("规格") '*** "21.5×11.5×10.25"
Tables("aaa").current("长") = ckg.split("×")(0)
Tables("aaa").current("宽") = ckg.split("×")(1)
Tables("aaa").current("高") = ckg.split("×")(2)
dim c,k.g as string
c = Tables("aaa").current("长")
k = Tables("aaa").current("宽")
g = Tables("aaa").current("高")
Tables("aaa").current("规格") = c & "×" & k & "×" & g