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

[µo°Ý] «ö¶s¨Ï¥Î°ÝÃD

¦^´_ 4# ²Â¤p«Ä
  1. Sub «ö¶s0_Click()

  2.     R = 1
  3.     For R = 1 To 11 Step 2
  4.       For I = 1 To 10
  5.         Cells(I, R).Value = Cells(I, R + 1).Value
  6.       Next I
  7.     Next R

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

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD