- ©«¤l
- 24
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 68
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan, Taipei
- µù¥U®É¶¡
- 2011-1-15
- ³Ì«áµn¿ý
- 2012-7-31
|
¥»©«³Ì«á¥Ñ skybbs ©ó 2011-1-19 20:23 ½s¿è
¦^´_ 01# Hsieh
½Ð°ÝÁ¤j,
¦bEXCEL2003¸Ì¼g¤F¦p¤U:
01 Range("D6:E6").Copy
02 Range("h3").PasteSpecial xlPasteValues
¦]¬°¦U¦³¤@ÓȤÀ§O¦bD6&E6, ©Ò¥Hª½±µ½Æ»s¨ìH3®É, ´N·|Åܦ¨½Æ»s¨ìH3 & I3
·Qn¨Ì·ÓÁ¤jªº¤è¦¡Â²µu, ¤À§O¸Õ¤F¦p¤U:
Sheet1.[H2:I2] = Application.Transpose(Sheet1.[D6:E6])
µ²ªG¶È·|§âD6ªºÈ½Æ»s¨ìH2&I2, E6¨Ã¤£·|½Æ»s¨ìI2.
¥t¥~¤]¸Õ¤F:
Range("H2:I2") = Range("D6:E6")
µ²ªG³£¨S¦³°Ê§@.
½Ð°Ý¦pªGn§â¦P¤@ÓSheetªºD6 & E6½Æ»s¨ìH3 & I3À³¸Ó¦p¦ó¼g»yªk©O ?
ÁÂÁÂ. |
|