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

[µo°Ý] ¤£¯S©w¿ï°Ïªº¸ê®Æ¤¬´«

¦^´_ 1# jesscc

¸Õ¸Õ¬Ý
Private Sub CommandButton1_Click()

Set frow = Selection.SpecialCells(xlCellTypeVisible)(1)
Set lrow = Selection.SpecialCells(xlCellTypeLastCell)
rng1 = Range("J" & frow.Row, "J" & lrow.Row)
rng2 = Range("E" & frow.Row, "E" & lrow.Row)

'A = rng1
'rng1 = rng2
'rng2 = A

Range("J" & frow.Row, "J" & lrow.Row) = rng2
Range("E" & frow.Row, "E" & lrow.Row) = rng1

End Sub

TOP

¦^´_ 3# jesscc

¦A¸Õ¸Õ
Private Sub CommandButton1_Click()

Set frow = Selection.SpecialCells(xlCellTypeVisible)
lrow = frow.Row + frow.Count - 1
rng1 = Range("J" & frow.Row, "J" & lrow)
rng2 = Range("E" & frow.Row, "E" & lrow)

Range("J" & frow.Row, "J" & lrow) = rng2
Range("E" & frow.Row, "E" & lrow) = rng1

End Sub

TOP

¦^´_ 6# jesscc

¨S¦³¬Ý¨ì¹ê»Úªºª¬ªpµLªkª¾¹D­ì¦]
¦ý´ú¸Õ¹L¿ï¤@¦C(­Ó)Àx¦s®æ¬O¥i¥H¤¬´«ªº

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD