暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
2#
發表於 2011-11-16 17:25
| 只看該作者
本帖最後由 mark15jill 於 2011-11-16 17:27 編輯
方法1..
如 A1:A3與C1:C10整列對換 (這應該是 整欄吧
先將 A1:A3 複製到 D1到D3
在把C1:C10 複製到 A1:A3
把D1到D3 貼到 C1:C10..
方法2:
A欄複製到 D欄
C欄剪下貼上到A欄
D欄剪下貼上到C欄
簡單原始碼如下- Sub Macro1()
- '
- ' Macro1 Macro
- '
- ' 快速鍵: 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
- '
- ' 快速鍵: 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
複製代碼 |
|