复制不同工作表中的行

时间:2011-09-13 09:17:40

标签: vba excel-vba office-2007 excel

如何在工作表中复制多行并将其进一步粘贴,包括任何格式,如背景颜色和行中已有的所有值?

我尝试使用此代码段

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

但是当我尝试执行此操作时,我收到应用程序错误。我尝试了其他一些例子,但他们似乎并没有按照我想要的那样做...

任何帮助?

1 个答案:

答案 0 :(得分:3)

我简化了你的代码(录音机的代码总是充满了不必要的“选择”)并且它工作得很好,甚至跨表!

Sheet1.Rows("5:6").Cut
Sheet2.Rows("18:19").Insert Shift:=xlDown