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

[µo°Ý] ¦p¦ó¥Ñ³Ì«á¤@¦C¼Æ°_¥h½Æ»s«ü©w¼Æ¶q

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-5-8 03:44 ½s¿è

¦^´_ 1# luke
  1. Sub TEST()
  2. Dim r As Long
  3. With Sheets("sheet1")
  4.   .[K:L].ClearContents
  5.   r = Application.Max(.Cells(.Rows.Count, "F").End(xlUp).Row, .Cells(.Rows.Count, "G").End(xlUp).Row)
  6.   .[K1].Resize(.[B2], 2) = .Cells(r - .[B2] + 1, "F").Resize(.[B2], 2).Value
  7. End With
  8. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE
¬Oªº¡A·PÁ­ץ¿¡C

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD