- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 3# alltest
³o¤Tµ{¦¡½X§@¥Î³£¬Û¦P,(¸m©ó¤@¯ë¼Ò²Õ¤¤ Module1 )¥i¾A¥Î¦³¬Û¦P¸ê®Æ®æ¦¡ªº¤u§@ªí
- Sub Ex() '*************** CÄæ.Offset(, 1) => DÄ檺¤½¦¡
- Range("C2", Range("C2").End(xlDown)).Offset(, 1) = "=RC[-1]-RC[-2]" '
- End Sub
½Æ»s¥N½X- Sub Ex1() '************** DÄæ.Offset(, -1)°Ñ¦ÒCÄæ³Ì«á¦³¸ê®Æ¦ì¸m
- Range("D2", Range("D2").Offset(, -1).End(xlDown).Offset(0, 1)).FormulaR1C1 = "=RC[-1]-RC[-2]"
- End Sub
½Æ»s¥N½X- Sub Ex2() '***************
- Range("D2").Select '"D2"¬°«ü©wÀx¦s®æ
- ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
- 'Selection.AutoFill Destination:=Range("D2:D8") '³o¸Ì"D2:D8",¤~¤£·|¥X¿ù
- Selection.AutoFill Destination:=Range("D2:D" & Range("C2").End(xlDown).Row)
- ' Range("C2").End(xlDown).Row ¥i©µ¦ù¨ìCÄæ³Ì«á¦³¸ê®Æ¦ì¸m¤§¦C¸¹(Row)
½Æ»s¥N½X |
|