ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¨ú¥XÂù¤Þ¸¹¤¤ªº­È~~

¦^´_ 1# hsiaohsien
  1. Sub nn()
  2. a = Split(Replace(Mid([A1], 1, Len([A1]) - 1), """,", ","), ",""")
  3. [B1].Resize(, UBound(a) + 1) = a
  4. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD