- ©«¤l
- 9
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 14
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- ¨Ó¦Û
- taiwan
- µù¥U®É¶¡
- 2013-1-17
- ³Ì«áµn¿ý
- 2013-3-20
|
¦^´_ 1# ianlcc
¬Ý¬Ýµ{¦¡¤º®e¬O§_§A©Ò»Ý¡A§Ú¤]è¾Ç¼gVBA¡A¦³¨ä¥L°ÝÃD©Î§ó²³æ¼gªk¤]§Æ±æ¤j®a´£¥X«ü¾É¡AÁÂÁÂ
µ{¦¡¤º®e¨Ì·Ó§Aªº¹Ï¤ùÄæ¦ì©Ò¼g¡A°ß¤@¤£¦P¬O§A¥u»Ýn¿é¤J¥»´Áªº¼Æ¨âÄæ¦ì¶ñ§¹«ö¤U«ö¶s§Y¥i¦Û°Êpºâ- Sub AAA()
- Application.Calculation = xlCalculationManual
- Application.ScreenUpdating = False
- Dim i As Integer, j As Integer
- j = Range("C2").CurrentRegion.Rows.Count '¦Û°Ê´M§ä³Ì«á¤@Äæ¦ì¸ê®Æ¦C
- i = 2
- Do Until i = j + 1
- Cells(i, "D").Value = Cells(i, "B").Value + Cells(i, "C").Value 'pºâ²Öp¼Æ¶q
- i = i + 1
- Loop
- Range(Cells(2, "D"), Cells(j, "D")).copy '§ó·s²Öp¼Æ¶q¨ì«e´Á¼Æ¶q
- Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Range(Cells(2, "C"), Cells(j, "C")).ClearContents '²M°£¥»´Á¼Æ¶q
- Application.ScreenUpdating = True
- Application.Calculation = xlCalculationAutomatic
- End Sub
½Æ»s¥N½X |
|