§R°£»P½Æ»s

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!°ÝÃD¦pªþÀÉ»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!
         ¤p§Ì¦b¦¹¸Û¼°ªº¯¬¦U¦ì«e½ú!
           ·s¦~§Ö¼Ö!!¨Æ¨Æ¦p·N,..

myleoyes

¦^´_ 2# mistery
mistery«e½ú§A¦n!
       «e½ú!ÁÂÁÂ!!³o¬O½d¨Ò­ì¨Óªºµ{¦¡
       ¨Ã¤£¾A¥Îªº°Ú!¤£À´§Aªº¥Î·N
       ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

myleoyes

¦^´_ 2# mistery
¦U¦ì«e½ú§A­Ì¦n!
         ³o­Ó°ÝÃDªºµ{¦¡²×©ó«÷´ê§¹¦¨
         Sub ½Æ»s()
            Dim F As Range, A As Range
         Again:
            ZZ = Application.InputBox("½Ð¿é¤J¦C¼Æ", "½Ð¿é¤J½Æ»s©Ò»ÝÄæ¼Æ", 10, Type:=2)
            If ZZ = "" Or ZZ = False Then End
            Range("B1") = ZZ
            If ZZ <= 1 Then
            MsgBox "Äæ¼Æ¤£±o¤p©ó¢°¦C¡I¡I¡I", , "Äæ¼Æ¿ù»~½Ð­«·s¿é¤J ¡I¡I"
            GoTo Again
          End If
          With ActiveSheet
            Set F = .Rows(1).Cells.Find(.Cells(1, ActiveCell.Column))
            Set F = .Range(F.Offset(0), F.Offset(0, ZZ).End(xlDown))
          End With
            Set A = Sheet2.[IV1].End(xlToLeft).Offset(, 1)
            F.Copy A
          End Sub
          Sub §R°£()
          Again:
             ZZ = Application.InputBox("½Ð¿é¤J¦C¼Æ", "½Ð¿é¤J½Æ»s©Ò»ÝÄæ¼Æ", 10, Type:=2)
             If ZZ = "" Or ZZ = False Then End
             Range("B1") = ZZ
             If ZZ <= 1 Then
             MsgBox "Äæ¼Æ¤£±o¤p©ó¢°¦C¡I¡I¡I", , "Äæ¼Æ¿ù»~½Ð­«·s¿é¤J ¡I¡I"
             GoTo Again
          End If
          With ActiveSheet
             Set F = .Rows(1).Cells.Find(.Cells(1, ActiveCell.Column))
             Set F = .Range(F.Offset(0), F.Offset(0, ZZ).End(xlDown))
          End With
             F.Delete
          End Sub
         ÁÂÁ¤j®a!!