- ©«¤l
- 147
- ¥DÃD
- 46
- ºëµØ
- 0
- ¿n¤À
- 205
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-3-19
- ³Ì«áµn¿ý
- 2021-5-21
|
¦^´_ 4# mark15jill
¦]¬°§Ú¦³·ÓµÛ¼g
Sub xg()
For xw = 1 To 65535
Range("f" & xw)-Value =Range ("a" & xw)-Value & Rabge ("b" & xw)-Value & Range("c" & xw). Value
Range("g" & xw)-Value =Range ("a" & xw)-Value & Rabge ("c" & xw)-Value
Range("h" & xw)-Value =Range ("b" & xw)-Value & Rabge ("c" & xw)-Value
\lext xw
End Sub
¦ý¬O°õ¦æ¤£¥X¨Ó¡A¬O§_þ¸Ì¿ù»~©O¡H¥uÀ´¥Ö¤òªº§Ú¡AÁٽЫü±Ð¡AÁÂÁ |
|