| ©«¤l4901 ¥DÃD44 ºëµØ24 ¿n¤À4916 ÂI¦W267  §@·~¨t²ÎWindows 7 ³nÅ骩¥»Office 20xx ¾\ŪÅv150 ©Ê§O¨k ¨Ó¦Û¥x¥_ µù¥U®É¶¡2010-4-30 ³Ì«áµn¿ý2025-10-31 
                
 | 
                
| ¦^´_ 1# hsiaohsien ½Æ»s¥N½XSub nn()
a = Split(Replace(Mid([A1], 1, Len([A1]) - 1), """,", ","), ",""")
[B1].Resize(, UBound(a) + 1) = a
End Sub
 | 
 |