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

Ãö©óÀx¦s®æ»Ý­n¤½¦¡­pºâ¡A¤S­n½Æ»s¶K¤W¡A«ç»ò³B²z¤ñ¸û¦n?

Ãö©óÀx¦s®æ»Ý­n¤½¦¡­pºâ¡A¤S­n½Æ»s¶K¤W¡A«ç»ò³B²z¤ñ¸û¦n?

¦U¦ì«e½ú¡A³Ìªñ§ì¥æ©ö¸ê®Æ¹J¨ì¤@­Ó°ÝÃD  ¦pªþ¥óÀÉ®× 20200406¿ï¾ÜÅv¤Q¤j¯S©w¤H.rar (35.26 KB)

§Ú§Æ±æ§âA2:T2 ªº¸ê®Æ§ó·s¤§«á
¶K¨ì³Ì·sªº¸ê®Æ¤U¤è «ö·Ó¤é´Á±Æ¦n¡A
¥i¬O¹J¨ì A2:T2 ¸Ì­±¦³¨ÇªÅ®æ¤£¬O³æ¯Âªº¸ê®Æ¡A¦Ó¬O¤½¦¡¡A
©Ò¥H§Ú¤£ª¾¹D¸Ó«ç»òÅý¶K¹L¥hªº¸ê®Æ°£¥~ªº¤½¦¡Àx¦s®æ¡A
¤]¯à¦Û°Ê¥h¸É¶ñ¸ê®Æ



§Úªº¤èªk¬O¼g¤@­Ó°Æµ{¦¡Åý¥L¥h°õ¦æ ¨Ò¦p
½d¨ÒH13ªº¸ê®Æ¬O  =$G13 -$G12   §Ú´N©I¥s¤@¦¸ ­«¾ã´«ºâ1()

Sub ­«¾ã´«ºâ1()
Dim i As Integer
For i = 4 To Range("H4").End(xlDown).Row
    Cells(i, "H") = Cells(i, "G") - Cells(i - 1, "G")
Next i
End Sub
µM«á¦pªG¤S¦³¤@®æ ¨Ò¦pJ  =  $I13-$I12  §Ú¤S¦A©I¥s¤@¦¸­«¾ã´«ºâ2()

Sub ­«¾ã´«ºâ2()
Dim i As Integer
For i = 4 To Range("J4").End(xlDown).Row
    Cells(i, "J") = Cells(i, "I") - Cells(i - 1, "I")
Next i
End Sub

³o¼Ë¤U¥h ¦pªG»Ý­n¹Bºâªº®æ¤l¦³30­Ó ´N­n¼g30­Ó°Æµ{¦¡  
°j°é¬O§Ú³Ì®zªº¤@Àô¡A½Ð°Ý«e½ú­Ì¯à§_«ü¾É§ÚÀ³¸Ó«ç»ò¥h«ä¦Ò³oÃþªº°ÝÃD
³o´N¬O¤£Â_ªº¦b¬Y¨Ç­«½Æªº¹Lµ{¤¤§ä¨ì³B²zªº¤âªk

¦AªÌ§Ú¤]¦³·Q¹L ¬O¤£¬O¯à¦b³Ì«á¶K¤Wªº¤@¦æ¸ê®Æ¸Ì­±
¼g¤@­Ó  For each myRng  ¥h§ä  ·|¦^¶Ç iferror ªºÀx¦s®æ¡AµM«áÅý¸ÓÀx¦s®æµ¥©ó¤½¦¡­pºâªºµ²ªG??

§Æ±æ¤j®aµ¹¤©«ü¾É ÁÂÁÂ~@@

¦^´_ 1# handsometrowa

¸Õ¸Õ¬Ý"­«¾ã´«ºâ"
Sub ex()
Dim arr As Variant
Dim a As Variant
Dim x%
arr = Array("H", "J", "N", "P")  '©ñ¤J­n¥Î¤½¦¡ªºÄæ¦ì
For Each a In arr
   For x = 4 To Range(a & 65535).End(3).Row
      Cells(x, a) = "=$" & Range(a & x).Offset(0, -1).Address(0, 0) & "-$" & Range(a & (x - 1)).Offset(0, -1).Address(0, 0)  '©ñ¤J¤½¦¡H4=$G4-$G3,H5=$G5-$G4...¥H¦¹Ãþ±À
   Next
Next
arr = Array("K")  '©ñ¤J­n¥Î¤½¦¡ªºÄæ¦ì
For Each a In arr
   For x = 4 To Range(a & 65535).End(3).Row
      Cells(x, a) = "=$" & Range(a & x).Offset(0, -3).Address(0, 0) & "-$" & Range(a & x).Offset(0, -1).Address(0, 0)  '©ñ¤J¤½¦¡K4=$H4-$J4,K5=$H5-$J5...¥H¦¹Ãþ±À
   Next
Next
End Sub

±NA2:T2¸ê®Æ½Æ»s©ó¤U¤è¸ê®Æ,¤½¦¡¤£´N¦Û°Ê±a¤J¤F¶Ü??¤£ª¾¬°¦ó­n¦A©ñ¤J¤½¦¡

TOP

¦^´_ 2# jcchiang


ÁÂÁÂjcc«e½ú

±z°Ý¨ì
¡y±NA2:T2¸ê®Æ½Æ»s©ó¤U¤è¸ê®Æ,¤½¦¡¤£´N¦Û°Ê±a¤J¤F¶Ü??¤£ª¾¬°¦ó­n¦A©ñ¤J¤½¦¡¡z

¤¤¶¡·|²£¥Í¤@­Ó°ÝÃD¡A´N¬O½Æ»s¤½¦¡¤U¨Ó¡A¥Lªº¬Û¹ï¦ì¸m¤£·|§óµÛ§ïÅÜ
·|³y¦¨³Ì·sªº¨º¤@¦æ¸ê®Æ  ·|²£¥Í#VALUE °Ñ·Ó¿ù»~¡A´Nºâcopy  ¤½¦¡¤F ¥L¤£·|¦Û°Ê¦ì²¾¸Ó¤½¦¡¹ï·Óªº¦ì¸m:'(

«á¨Ó§Ú¥Î¥t¥~¤@ºØ¤è¦¡cells ¥h§ä¨º­Ó·|²£¥Í¿ù»~ªºÀx¦s®æ  Ãþ¦ü¤U­±³oºØ
Dim myRng As Range, endRng As Range
        Dim i  As Integer
        Dim j  As Integer
        Dim k As Integer

Worksheets("¸ê®Æ§ó·s").Activate
        Set myRng = Sheets("¸ê®Æ§ó·s").Range("A2:U2")
        Set endRng = Worksheets("¸ê®Æ§ó·s").Range("A1048576").End(xlUp).Offset(1, 0)
        j = endRng.Row
        k = Range("U2").Column
        myRng.Copy
        endRng.Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False
        On Error Resume Next
        
        For i = 1 To k
            If IsError(Cells(j, i)) Then
            Cells(j, i).Value = Cells(j, i).Offset(0, -1).Value - Cells(j, i).Offset(-1, -1).Value
            End If
        Next i

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-4-11 01:19 ½s¿è

¦^´_ 3# handsometrowa


¬Ý¤F§Aªºªþ¥ó~ §Aªº·N«ä¬O¶À¦âÀx¦s®æªºÄæ¦ì­n¶ñ¤J²Ä2¦Cªº"­È"¡A
¨ä¥LÄæ¦ì­n¶ñ¤J²Ä2¦Cªº"¤½¦¡"¡A¬O³o¼Ë¶Ü?
·Pı¨S¨º»ò½ÆÂø.............¥i¬O¬°¤°»ò§Aªº±Ô­z¦³ÂI½ÆÂø@@
¸Õ¸Õ§a!
  1. Sub ¶K¤W¸ê®Æ()
  2. R% = [A65536].End(3).Row + 1
  3. '¥ý¥þ³¡¶ñ¤J­È~
  4. Cells(R, 1).Resize(1, 20) = Cells(2, 1).Resize(1, 20).Value
  5. Arr = Array(8, 10, 11, 14, 16, 18, 19, 20)  '­n¤½¦¡ªºÄ渹
  6. For Each c In Arr  '½Æ»s²Ä2¦C¤½¦¡~
  7.   Cells(2, c).Copy Cells(R, c)
  8. Next
  9. End Sub
½Æ»s¥N½X
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD