Pastespecial不工作，雖然粘貼

Activesheet.pastespecial不能正常工作。 Activesheet.paste給我的結果，但我也需要格式。Pastespecial不工作，雖然粘貼

Sub Show() 

Dim Rng As Range 
Set Rng = Activeworkbook.Worksheets("Dashboard").Range("A1:F30") 
Rng.Select 
Rng.Copy 
Activeworkbook.Close 

ThisWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Dashboard" & NewFile 
With ActiveSheet 
.Range("A1").Activate 
.Range("A1").Select 
.Pastespecial Paste:=XlPasteAll **<-------** 

End With 

End Sub

來源

2014-03-06 Shoaibkhanz

應該是Selection.Pastespecial粘貼：= XlPasteAll剛剛在我的最終測試，它確實帶來格式。 –

順便說一句，你可以用'ActiveSheet.Range（「A1」）替換最後五行。PasteSpecial Paste：= xlPasteAll' – Kapol

我想你需要指定粘貼位置。

With ActiveSheet 
.Range("A1").Pastespecial Paste:=XlPasteAll **<-------** 

End With

來源

2014-03-06 12:56:23 vinkun

不幸的是沒有工作 – Shoaibkhanz

你是否刪除了** <------- * *？我測試過它對我有用 – vinkun

是的，我確實刪除了它。 – Shoaibkhanz

在粘貼之前不要關閉工作簿，你應該沒問題。我自己從來沒有做過這樣的事情，但看起來像關閉後你只能粘貼值。我試圖粘貼格式併發生錯誤。

來源

2014-03-06 13:30:40 Kapol

感謝它的工作方式 – Shoaibkhanz

Pastespecial不工作，雖然粘貼

回答

相關問題