- 帖子
- 35
- 主題
- 18
- 精華
- 0
- 積分
- 60
- 點名
- 0
- 作業系統
- Windows7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-9-21
- 最後登錄
- 2022-10-2
|
請教版大
像我的程式想簡化
但裡面有要變的欄位
必須要用 ActiveSheet.Paste
才能動作
請問這樣要如何簡化
我用您的方式
修改我的程式為
Sheets("北區IC表").Range("B2").Copy Sheets("統計").Range("B2")
Sheets("統計").Range("E3:E22").Copy Sheets("北一美富").Range("B3")
但原本該變動的"E3:E22"數值就不變動了
請版大幫我看看問題所在
感謝您
我原本的巨集如下
Sub 北一美富()
' 北一美富 Macro
在 2012/7/5 錄製的巨集
Sheets("北區IC表").Select
Range("B2").Select
Selection.Copy
Sheets("統計").Select
Range("B2").Select
ActiveSheet.Paste
Range("E3:E22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("北一美富").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("北區IC表").Select
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("統計").Select
Range("B2").Select
ActiveSheet.Paste
Range("E3:E22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("北一美富").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("北區IC表").Select
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("統計").Select
Range("B2").Select
ActiveSheet.Paste
Range("E3:E22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("北一美富").Select
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("北區IC表").Select
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("統計").Select
Range("B2").Select
ActiveSheet.Paste
Range("E3:E22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("北一美富").Select
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("北區IC表").Select
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("統計").Select
Range("B2").Select
ActiveSheet.Paste
Range("E3:E22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("北一美富").Select
Range("F3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("北區IC表").Select
Range("B7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("統計").Select
Range("B2").Select
ActiveSheet.Paste
Range("E3:E22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("北一美富").Select
Range("G3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub |
|
發表於 2013-1-29 01:22
| 