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

½Ð­×§ïµ{¦¡

½Ð­×§ïµ{¦¡

¦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!!

LeoV69.rar (10.07 KB)

¦^´_ 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

TOP

¦^´_ 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

TOP

¦^´_ 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!!

TOP

¦^´_ 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) ¬Ý¬Ý

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD