【问题标题】:Copy rows from different worksheets从不同的工作表复制行
【发布时间】:2011-11-16 00:02:21
【问题描述】:

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

我试过用这个sn-p

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

但是当我尝试执行此操作时,我收到一个应用程序错误。我尝试了其他一些示例,但它们似乎并没有按照我的意愿做...

有什么帮助吗?

【问题讨论】:

  • 这可能对您没有多大帮助,但您的代码可以在我的机器上按预期运行。 (Excel 2003)
  • 嗯,这很有趣...我正在使用 Excel 2007...要添加 Office-2007 标签,这样就不会造成混淆。感谢您的评论
  • 你试过Selection.PasteSelection.PasteSpecial吗?
  • 好的,抱歉 - 当所有内容都在同一张表中时,代码可以正常工作。但我实际上需要在两张纸之间复制(将问题改编为)

标签: vba excel office-2007


【解决方案1】:

我简化了您的代码(记录器的代码总是充满了不必要的“选择”)并且它工作正常,即使跨工作表!

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

【讨论】:

    猜你喜欢
    • 2015-03-18
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2019-12-19
    • 1970-01-01
    • 1970-01-01
    相关资源
    最近更新 更多