从不同工作表复制行

发布于 2024-12-04 02:24:54 字数 363 浏览 0 评论 0原文

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

我尝试使用此代码片段

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

但是当我尝试执行此代码时,出现应用程序错误。我尝试了一些其他示例,但它们似乎并没有达到我想要的效果...

有什么帮助吗?

How can I copy multiple rows in a worksheet and paste them further down, including any formatting like background colors and all the values already in the rows?

I tried using this snippet

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

But when I try to execute this, I get an application error. I tried some other examples but they don't seem to do the same what I want...

Any help?

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(1

第七度阳光i 2024-12-11 02:24:54

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

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

I simplified your code (the recorder's code is always full of unnecessary "selects") and it works fine, even across sheets !

Sheet1.Rows("5:6").Cut
Sheet2.Rows("18:19").Insert Shift:=xlDown
~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文