Excel宏代码不起作用

Question

此代码不可用的宏不起作用：

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