Excel宏的代碼不工作

Question

這段代碼inexcel宏不起作用：

Sheets("2").Select 
Range("A1:C7").Select 
Selection.Copy 
Sheets("Sayfa1").Select 
Range("D6:F12").Select 

問題是什麼？

我需要你的幫助。

注：我沒有一個好的英語。對不起。我希望你明白。

Answer 1

我想你想從工作表「2」複製數據到工作表「Sayfa1」。然後，您的代碼應該是這樣的：要做到這一點

Sheets("2").Select 
Range("A1:C7").Select 
Selection.Copy 
Sheets("Sayfa1").Select 
Range("D6:F12").Select 
ActiveSheet.Paste 

最簡單的方法是通過：

Sheets("Sayfa1").Range("D6:F12").Value = Sheets("2").Range("A1:C7").Value 

此使用（慢）避免.Copy or .Select

如果你想複製全部，包括格式，它能夠更好地使用：

Sheets("2").Range("A1:C7").Copy 
Sheets("Sayfa1").Range("D6:F12").PasteSpecial (xlPasteFormats) 
Application.CutCopyMode = False