2012年2月21日 - sp = VBA.Split(strReplacedText) Range("A1").Resize(1, UBound(sp) + 1) = sp.
tw.knowledge.yahoo.com