| ½Ð±Ð¦U¦ì°ª¤â~ §Ú¿ý»s¤F¤@¬q¸ê®ÆåªRªº¥¨¶°¡A¦ý¬O°õ¦æ¤¤³~·|¥X²{¬O§_¨ú¥N¥Ø¼ÐÀx¦s®æªº¸ß°Ý®Ø¡A½Ð°Ýn¦p¦ó¦Û°Ê¸õ¹L¡AÁÂÁ¡I
 Columns("N:P").Select
 Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
 Columns("M:M").Select
 Selection.TextToColumns Destination:=Range("M1"), DataType:=xlDelimited, _
 TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
 Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
 :="~", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
 '¥X²{¸ß°Ý®Ø¡÷¦p¦ó¦Û°Ê½T»{
 |