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

[µo°Ý] ½Ð±Ð¦U¦ì¤j­ôÃö©óvba

Sub AX1011()
Dim xR As Range, xE As Range, xF As Range
For Each xR In Range([A!F2], [A!F65536].End(xlUp))
¡@¡@If xR = "" Then GoTo 101
¡@¡@'¡õ¨ú±o¢Ðªí³Ì«á¤@µ§¸ê®Æ¦ì¸m¡@
¡@¡@Set xE = [B!F65536].End(xlUp)
¡@¡@'¡õ´M§ä¢Ðªí²Å¦X­È³Ì«á¤@µ§¦ì¸m¡@
¡@¡@Set xF = [B!F:F].Find(xR, After:=xE(2), SearchDirection:=xlPrevious, Lookat:=xlWhole)
¡@¡@'¡õ­Y¦³§ä¨ì²Å¦X­È¡A¤U¤è´¡¤J¤@¦C¡A¨Ã±NÀx¦s®æÅܼƥN´«¬°xE¡@
¡@¡@If Not xF Is Nothing Then xF(2).EntireRow.Insert: Set xE = xF
¡@¡@'¡õ¾ã¦C¶K¦ÜxEªº¤U¤@¦C¡@
¡@¡@xR.EntireRow.Copy xE(2).EntireRow
101: Next
End Sub

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD