Ãö©óÀx¦s®æ»Ýn¤½¦¡pºâ¡A¤Sn½Æ»s¶K¤W¡A«ç»ò³B²z¤ñ¸û¦n?
- ©«¤l
- 406
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 453
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2015-2-7
- ³Ì«áµn¿ý
- 2021-7-31
|
¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-4-11 01:19 ½s¿è
¦^´_ 3# handsometrowa
¬Ý¤F§Aªºªþ¥ó~ §Aªº·N«ä¬O¶À¦âÀx¦s®æªºÄæ¦ìn¶ñ¤J²Ä2¦Cªº"È"¡A
¨ä¥LÄæ¦ìn¶ñ¤J²Ä2¦Cªº"¤½¦¡"¡A¬O³o¼Ë¶Ü?
·Pı¨S¨º»ò½ÆÂø.............¥i¬O¬°¤°»ò§Aªº±Ôz¦³ÂI½ÆÂø@@
¸Õ¸Õ§a!- Sub ¶K¤W¸ê®Æ()
- R% = [A65536].End(3).Row + 1
- '¥ý¥þ³¡¶ñ¤JÈ~
- Cells(R, 1).Resize(1, 20) = Cells(2, 1).Resize(1, 20).Value
- Arr = Array(8, 10, 11, 14, 16, 18, 19, 20) 'n¤½¦¡ªºÄ渹
- For Each c In Arr '½Æ»s²Ä2¦C¤½¦¡~
- Cells(2, c).Copy Cells(R, c)
- Next
- End Sub
½Æ»s¥N½X |
|
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U
|
|
|
|
|