½Ð±Ð¦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»{ |