Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 从不同的工作表复制行_Vba_Excel_Office 2007 - Fatal编程技术网
Fatal编程技术网
  • vba/
  • Vba 从不同的工作表复制行

Vba 从不同的工作表复制行

vba excel

Vba 从不同的工作表复制行,vba,excel,office-2007,Vba,Excel,Office 2007,如何在工作表中复制多行并进一步向下粘贴，包括任何格式（如背景色）和行中已有的所有值 我试着使用这个片段 Application.Worksheets("IPL").Select Rows("6:9").Select Application.CutCopyMode = False Selection.Copy Application.Worksheets("CMM").Select Rows("13:13").Select Selection.Insert Shift:=xlDown 但当我尝试

如何在工作表中复制多行并进一步向下粘贴，包括任何格式（如背景色）和行中已有的所有值

我试着使用这个片段

Application.Worksheets("IPL").Select
Rows("6:9").Select
Application.CutCopyMode = False
Selection.Copy
Application.Worksheets("CMM").Select
Rows("13:13").Select
Selection.Insert Shift:=xlDown
但当我尝试执行此操作时，会出现一个应用程序错误。我尝试了一些其他的例子，但他们似乎没有做同样的我想要的

有什么帮助吗？

我简化了您的代码（录音机的代码中总是充满了不必要的“选择”），而且即使是跨工作表，它也可以正常工作

Sheet1.Rows("5:6").Cut
Sheet2.Rows("18:19").Insert Shift:=xlDown
这可能对您没有多大帮助，但您的代码在我的机器上正常工作。（Excel 2003）这很有趣。。。我正在使用Excel2007。。。要添加Office-2007标签，这样就不会出现混淆。感谢您的评论。您是否尝试了
选择。粘贴
和
选择。粘贴特殊
？好的，对不起-当所有内容都在同一张工作表中时，代码工作正常。但我实际上需要在两张纸之间复制（根据这一点修改问题）