½Ð­×§ïµ{¦¡

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
       Sub Ex()
      With Sheets("¾Ç²ß")
      .[A65536].End(xlUp)(1, 1).Copy .[A65536].End(xlUp)(2, 1)
      .[A65536].End(xlUp)(1, 1).Offset(-1, 0) = [A65536].End(xlUp)(1, 1)
      .[B65536].End(xlUp)(1, 1).Copy .[B65536].End(xlUp)(2, 1)
      .[B65536].End(xlUp)(1, 1).Offset(-1, 0) = [B65536].End(xlUp)(1, 1)
      .[C65536].End(xlUp)(1, 1).Copy .[C65536].End(xlUp)(2, 1)
      .[C65536].End(xlUp)(1, 1).Offset(-1, 0) = [C65536].End(xlUp)(1, 1)
           '...µ¥µ¥
    End With
End Sub
       °ÝÃD¦pªþÀÉ»¡©ú
       ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

stillfish00

¦^´_ 1# myleoyes

1. Sub Ex()
   
2.     With Sheets("¾Ç²ß").[A65535].End(xlUp).Resize(1, 15)
   
3.         .Copy
   
4.         .Offset(1).PasteSpecial Paste:=xlPasteFormulas
   
5.         .Offset(1).PasteSpecial Paste:=xlPasteFormats
   
6.         .PasteSpecial Paste:=xlPasteValues
   
7.     End With
   
8. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 1# myleoyes
AutoFill ¤èªk  ¯S©w¹ï«ü©w½d³ò¤¤ªºÀx¦s®æ¶i¦æ¦Û°Ê¶ñº¡¡C¬° Variant¡C

1. Option Explicit
   
2. Sub Ex()
   
3.     With Sheets("¾Ç²ß").[A65535].End(xlUp).Resize(1, 15)
   
4.         .AutoFill Destination:=.Resize(2), Type:=xlFillDefault
   
5.         .Value = .Value
   
6.     End With
   
7. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 3# GBKEE
stillfish00  «e½ú!µ{¦¡OK!ÁÂÁ¦A¤T!!
¨}®v!ÁÂÁÂ!!ªGµM§Þ°ª¤@Äw
          ¦A½Ð±Ð2­Ó°ÝÃD
                  °ÝÃD¤@
          ·íA1Åã¥Ü ¤ä¥X123
          «ö¶s B1=123(­È)
          ¦pªGA1Åã¥Ü ¤ä¥X456789
          «ö¶s B1=456789(­È)
          ¤]´N¬O»¡B1¥u¨úA1ªº¼Æ¦r³¡¥÷
                   °ÝÃD¤G
            ZZ = Application.InputBox("½Ð¿ï¨ú# ¤ä¥X¡×(HÄæ) #", "¤ä¥X¶O¥Î", "=INT(/2)", Type:=0)
    If [E1] = "" Then
    [E1] = ZZ
    Else
    If ZZ <> False Then [E1] = ZZ & "+" & Mid([E1].FormulaR1C1, 2)
    If ZZ = "" Or ZZ = False Then Exit Sub
    End If
    [E1]=INT(Sheet4!$H$3/2)+INT(Sheet1!$H$3/2)
    [E1]ªº«¬ºA¬O©Ò»Ý
    ¦ý¦pªG±N¹ï¸Ü®Ø¹w³]"=INT(/2)"¥h±¼§ï¦¨
    ZZ = Application.InputBox("½Ð¿ï¨ú# ¤ä¥X¡×(HÄæ) #", "¤ä¥X¶O¥Î", Type:=0)
    °õ¦æµ{¦¡[E1]ªº«¬ºA¤]¬O[E1]=INT(Sheet4!$H$3/2)+INT(Sheet1!$H$3/2)
    ¤p§Ì³o¼Ë¤l§ï¤£¦æ­C!
    ZZ = Application.InputBox("½Ð¿ï¨ú# ¤ä¥X¡×(HÄæ) #", "¤ä¥X¶O¥Î", Type:=0)
    If [E1] = "" Then
    [E1] = "=" & "int" & "(" & ZZ & "/2)"
    Else
    If ZZ <> False Then [E1] = "=" & "int" & "(" & ZZ & "/2)" & "+" & Mid([E1].FormulaR1C1, 2)
    If ZZ = "" Or ZZ = False Then Cancel = True
    End If
    ½Ð°Ý­n¦p¦ó­×§ï¤~¯à§¹¦¨
    ¥H¤W2­Ó°ÝÃD,½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

stillfish00

¦^´_ 4# myleoyes
1.   
    mid¨ú¥X¼Æ¦r³¡¤À¦AÂà¼Æ¦r«¬ºA
    =--Mid(A1,3,Len(A1)-2)
2.
    §A¼gªº  If ZZ <> False Then [E1] = "=" & "int" & "(" & ZZ & "/2)" & "+" & Mid([E1].FormulaR1C1, 2)
    ¦¡¤¤ªºZZ§t¦³µ¥¸¹ , §ï Right(ZZ , Len(ZZ)-1) ¬Ý¬Ý

myleoyes

¦^´_ 5# stillfish00
«e½ú!µ{¦¡OK!ÁÂÁ¦A¤T!!¨¯­WÅo!