pupai

¦^´_ 10# GBKEE


    G¤j
­è¸Õ¤F¤@¤U¡AÁÙ¬O±o¥Î§Aªº¤èªk¤~¦æ
ÁÂÁÂ!!   °²¤é´r§Ö

­ã´£³¡ª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

pupai

¦^´_ 12# ­ã´£³¡ªL


      ½Ð±Ð­ã¤j
«e´£¤@¼Ë¦b¬J¦³ªº¿ï¾Ü°Ï¤º , ¦A¿ï¤@¦¸§Ú­nªº½d³ò®É
¦pªG¥ÎColumns()®É¡A¦ý³o¤@¦¸§Ú·Q­n¿ï¾Ü­Ç­Ó¥H¤WªºÄæ¦ì
½Ð°Ý­n¦p¦ó­×§ï
ÁÂÁÂ

­ã´£³¡ª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
¡@

pupai

¦^´_ 14# ­ã´£³¡ªL


    ÁÂÁ­ã¤j«ü¾É
           °²¤é´r§Ö