ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó±N§ï¼g

[µo°Ý] ¦p¦ó±N§ï¼g

myDir.rar (27.11 KB)

¦p¦ó§ï¼g¤u§@ªí("¿é¤J")¤¤ªº¡i°õ¦æ¡j«ö¶s

§Æ±æ¥i¥H°£¤F­ì¥\¯à¥~¡A¨Ã±N¤u§@ªí("Dir")¤ºªºAÄæ¡i½Æ»s¡j¡A©ó¤u§@ªí("Ok")¤ºªºAÄæ¡i¶K¤W­È¡j¡C

¥H¤W¨Ï¥Î¤F¥¨¶°¡A©ó¤u§@ªí("¿é¤J")¤¤ªº¡i°õ¦æ¡j«ö¶sªºµ{¦¡³Ì«á¤@¦C¶K¤W¡A
·|¥X²{ Columns("A:A").Select ¿ù»~¡C

¤U载¤£¤Fªþ¥ó¡A¤èªk¤ñ较²Â
  1.     Sheets("Dir").Columns("A:A").Copy
  2.     Sheets("Ok").[A1].Select
  3.     ActiveSheet.Paste
½Æ»s¥N½X
¦V°ª¤â学习

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2013-2-22 11:50 ½s¿è

¦^´_ 2# loquat

¤j¤j
    Sheets("Ok").[A1].Select
¥X²{¿ù»~

----------------------------------

ÁÂÁ¤j¤j~
§¹¦¨
    Sheets("Dir").Columns("A:A").Copy

    Sheets("Ok").Select
    ActiveSheet.Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD