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

[µo°Ý] ¨ì´Á¤é¦Û°Ê¼uµ¡´£¿ô,¥H´£¿ô¹L¸ê®Æ¸Ó¦p¦ó½Õ¾ã©O?

¦^´_ 2# starry1314
  1. Option Explicit
  2. Sub ex()
  3.     Dim i As Integer
  4.     'Cells(¦C, Äæ) ¤~¥¿½T
  5.     i = 38
  6.     i = Range("AT1").Column
  7.     Cells(5, i) = "¥¿½T"
  8.     Cells(5, "AT") = "¥¿½T"
  9.    
  10.     Cells(i, 38).Cut Destination:=Range("AT" & i)

  11. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD