Cells.Find(What:=InputBox("½Ð¿é¤Jn§ä´Mªº¸ê®Æ!", "Search"), _
After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(-1, 0).Activate
Range(Selection, Selection.End(xlUp)).Select
Selection.EntireRow.Delete
Selection.End(xlUp).Select
¨Ò¦p¥H¤W¤@¬q,¦p¿é¤J¥¿½Tªº¸Ü,·|¶¶§Q§ä¨ìÀx¦s®æ¥h¨ì¤U¤@¬q,
¦ý¦pªG§ä¤£¨ì¤Ç°tªº¸ê®Æ,·|¥X²{
°õ¦æ¶¥¬q¿ù»~ '91':
¨S¦³³]©wª«¥óÅܼƩΠWITH °Ï¶ôÅܼÆ
¦p¦ó¼g¤~¥i¥H²¤¹L¿ù»~,ª½±µ¨ì¤U¤@¦æ©O?ÁÂÁÂ!! |