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

½Ð±ÐVBA ¥X²{ 400°ÝÃD

½Ð±ÐVBA ¥X²{ 400°ÝÃD

¿Ë·Rªº¦U¦ì¥ý¶i

1.­Y§Ú±N­ì©l¸ê®Æ©ñ¸mEXCEL VBA®É¡A³sÄò°õ¦æVBA¡ATEST OK
2.¦ý­Y§Ú¦A¦¸«ö¤UVBA®É¡A«h·|¥X²{"400"ªº¿ù»~

½Ð°Ý­n«ç»ò¼Ë¤~¯àÁקKµo¥Í¿ù»~°T®§400ªº¥X²{


Just do it.

§Úªþªº³o­ÓÀɮ׬O¡A¸ó¤u§@ªí°õ¦æ¥t¤@VBA(½Æ»sÄæ¦ì°Ê§@)®Éµo¥Í¿ù»~
¦ý­Y¸ÓVBA¬O¦b¸Ó¤u§@ªí°õ¦æ®É¡A´N¥¿±`
§Ú­þ¸ÌÀ³¸Ó­n§ï?





«þ¨©°ÝÃD.rar (13.63 KB)
Just do it.

TOP

§Úµo²{¡A§Ú¬O¥d¦b¹³    Columns »yªk
¦V¤U¦C»yªk­Y¬O­n¸ó¤u§@ªí°õ¦æ®É¡A¸Ó¦p¦ó¼g?

Columns("C:C").Select
    Selection.Copy
    Columns("D").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Just do it.

TOP

¦^´_ 3# jsc0518
¤£¥Î.Selectªº
  1. Sub S8()

  2.     Columns("A").Copy
  3.     Columns("B").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  4.         :=False, Transpose:=False

  5. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# lpk187


·PÁ±zªº¦^ÂÐ
´ú¸Õ¦¨¥\¡A¦A¦¸ÁÂÁ±z!
:)
Just do it.

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD