Ãö©óÀx¦s®æ»Ýn¤½¦¡pºâ¡A¤Sn½Æ»s¶K¤W¡A«ç»ò³B²z¤ñ¸û¦n?
- ©«¤l
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 1# handsometrowa
¸Õ¸Õ¬Ý"«¾ã´«ºâ"
Sub ex()
Dim arr As Variant
Dim a As Variant
Dim x%
arr = Array("H", "J", "N", "P") '©ñ¤Jn¥Î¤½¦¡ªºÄæ¦ì
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") '©ñ¤Jn¥Î¤½¦¡ªºÄæ¦ì
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¤½¦¡ |
|
|
|
|
|
|