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

[µo°Ý] dde¶×¤J¼Æ­È«á¶i¦æ½Æ»s°ÝÃD

¦^´_ 4# ²Â¤p«Ä

ªþ¤W "excelÀÉ®×"  ¤~¯à¯u¥¿ª¾¹D°ÝÃD©Ò¦b

TOP

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

  2. For i = 1 To 7
  3.     Cells(1, i * 4 - 2).Resize(26, 1) = Cells(1, i * 4).Resize(26, 1).Value
  4. Next i
  5.         
  6. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD