·Q½Ð°Ý¤j¤j¦p¦ó§âÀx¦s®æ¸ê®Æ¹ï´«¡H
- ©«¤l
- 209
- ¥DÃD
- 43
- ºëµØ
- 0
- ¿n¤À
- 262
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 20**
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-3
- ³Ì«áµn¿ý
- 2017-4-16
|
·Q½Ð°Ý¤j¤j¦p¦ó§âÀx¦s®æ¸ê®Æ¹ï´«¡H
½Ð°Ý¤j¤jÌ¡A
§Ú¦³¤@¥÷excelªí®æ¡A°²³]©Ò¦ûªº¦ì¸m¬°a1:c10(¦@3Äæ10¦C)¡A§Ú¥i§_¥Îµ{¦¡±±¨î¡A±N¯S©wªº¡§¨â¦C¡¨¸ê®Æ¹ï½Õ¡C
¨Ò¦p¡GA1:A3»PC1:C10¾ã¦C¹ï´«¡C |
|
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-11-16 17:27 ½s¿è
¤èªk1..
¦p A1:A3»PC1:C10¾ã¦C¹ï´« (³oÀ³¸Ó¬O ¾ãÄæ§a
¥ý±N A1:A3 ½Æ»s¨ì D1¨ìD3
¦b§âC1:C10 ½Æ»s¨ì A1:A3
§âD1¨ìD3 ¶K¨ì C1:C10..
¤èªk2¡G
AÄæ½Æ»s¨ì DÄæ
CÄæ°Å¤U¶K¤W¨ìAÄæ
DÄæ°Å¤U¶K¤W¨ìCÄæ
²³æì©l½X¦p¤U- Sub Macro1()
- '
- ' Macro1 Macro
- '
- ' §Ö³tÁä: Ctrl+Shift+R
- '
- Columns("A:A").Select
- Selection.Copy
- Columns("D:D").Select
- ActiveSheet.Paste
- Columns("C:C").Select
- Application.CutCopyMode = False
- Selection.Copy
- Columns("A:A").Select
- ActiveSheet.Paste
- Columns("D:D").Select
- Application.CutCopyMode = False
- Selection.Copy
- Columns("C:C").Select
- ActiveSheet.Paste
- Columns("D:D").Select
- Application.CutCopyMode = False
- Selection.ClearContents
- End Sub
- Sub Macro2()
- '
- ' Macro2 Macro
- '
- ' §Ö³tÁä: Ctrl+Shift+T
- '
- Range("A1:A3").Select
- Selection.Copy
- Range("D1").Select
- ActiveSheet.Paste
- Range("C1:C10").Select
- Application.CutCopyMode = False
- Selection.Copy
- Range("A1").Select
- ActiveSheet.Paste
- Range("D1:D3").Select
- Application.CutCopyMode = False
- Selection.Copy
- Range("C1").Select
- ActiveSheet.Paste
- Range("D1:D4").Select
- Application.CutCopyMode = False
- Selection.ClearContents
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 209
- ¥DÃD
- 43
- ºëµØ
- 0
- ¿n¤À
- 262
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 20**
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-3
- ³Ì«áµn¿ý
- 2017-4-16
|
¥»©«³Ì«á¥Ñ tku0216 ©ó 2011-11-16 18:01 ½s¿è
¦hÁ«üÂI¡A¤£¹L³oÀ³¸Ó¬O¥Î¿ý»s¥¨¶°ªº¤è¦¡§¹¦¨ªº¡A¬O§_¦³§ó¦nªº¿ìªk©O¡H¦]¬°Y¬O»Ýn½Õ´«ªºÀx¦s®æ¤£¥u¬O§Ú°ÝÃD©Ò°Ýªº¡A¦Ó¬O»Ýn¥Ñ¨Ï¥ÎªÌ¦Û¦æ¿ï¾Ü¡A¨º´N¤£¦X¥Î¤F¡C |
|
|
|
|
|
|
- ©«¤l
- 209
- ¥DÃD
- 43
- ºëµØ
- 0
- ¿n¤À
- 262
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 20**
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-3
- ³Ì«áµn¿ý
- 2017-4-16
|
¦hÁª©¥D¤À¨É¡A§Ú¹ï³oÓ¤½¦¡«Ü¦³¿³½ì¡A¦]¬°¥H§Ú¥H«e¼gµ{¦¡ªº¸gÅç¡A¤@¯ë¨Ó»¡³£»Ýn³]©w¤@ӼȦs®æ¡A§â¸ê®Æ²¾¨ì¼È¦sªÅ¶¡¡A¦A¶i¦æ¹ï´«¡A¦ý¬O¬Ý°_¨Óexcel¦ü¥G¤£¥²¡C
ÁÙ¦³·Q½Ð±Ðª©¥D¡A¦pªG¨S¦³«ü©wþ¨â¦C¡A¦Ó¬O¥Ñ¨Ï¥ÎªÌ¦Û¦æ¿ï¾Ü¡A¨º»òµ{¦¡¸Ó«ç»ò§ï¡H
(Ä´¦p¬O§_¥i¥H¿ï¾ÜB1:B3¥H¤ÎD13¡A«ö¤U«ö¶s¡A¨â¦C¹ï´«) |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
- Sub ¹ï´«()
- a = Range(Selection.Areas(1).Address)
- b = Range(Selection.Areas(2).Address)
- Range(Selection.Areas(1).Address) = b
- Range(Selection.Areas(2).Address) = a
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 209
- ¥DÃD
- 43
- ºëµØ
- 0
- ¿n¤À
- 262
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 20**
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-3
- ³Ì«áµn¿ý
- 2017-4-16
|
ÁÂÁª©¥D¤À¨É¡A§Ú°¨¤W¥h¸Õ¸Õ¬Ý~~ |
|
|
|
|
|
|
- ©«¤l
- 209
- ¥DÃD
- 43
- ºëµØ
- 0
- ¿n¤À
- 262
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 20**
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-3
- ³Ì«áµn¿ý
- 2017-4-16
|
¯uªº¬O¬Û·í¯«©_¡A·PÁ¦U¦ìÅý§Ú¤S¦h¾Ç¤F¤@©Û¡C |
|
|
|
|
|
|