­ã´£³¡ªL

With Selection
¡@¡@¡@.PasteSpecial xlPasteValuesAndNumberFormats
¡@¡@¡@.Columns(2).Replace "/", "", LookAt:=xlPart
End With

­ã´£³¡ªL

¦^´_ 6# pupai


With Selection
¡@¡@¡@.PasteSpecial xlPasteValuesAndNumberFormats
¡@¡@¡@With .Columns(2)
¡@¡@¡@¡@¡@¡@.Replace "//", "", LookAt:=xlPart
¡@¡@¡@¡@¡@¡@.TextToColumns Destination:=Selection, DataType:=xlDelimited, _
¡@¡@¡@¡@¡@¡@¡@¡@TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
¡@¡@¡@¡@¡@¡@¡@¡@Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 10), TrailingMinusNumbers:=True
¡@¡@¡@End With
End With

¤j¬ù¦ê¤å¦r½X¡A½Ð¦Û¦æ´ú¸Õ¡I

­ã´£³¡ªL

¦^´_ 9# pupai


Selection.PasteSpecial xlPasteValuesAndNumberFormats
With Selection.Columns(2)
      .TextToColumns Destination:=.Cells, DataType:=xlDelimited, _
         TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
         Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 10), TrailingMinusNumbers:=True
End With

­ã´£³¡ªL

¦^´_ 13# pupai


³sÄòÄæ¦ì:
With Selection
¡@¡@¡@Range(.Columns(2), .Columns(4)).Select
End With
©Î
With Selection
¡@¡@¡@.Columns(2).Resize(, 3).Select
End With

¸õÄæ¡G
With Selection
¡@¡@¡@Union(.Columns(2), .Columns(4)).Select
End With
¡@