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

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

¦^´_ 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

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD