在 Excel 2003 中将行从一个选项卡复制到另一个选项卡

发布于 2024-10-09 10:30:58 字数 128 浏览 4 评论 0原文

如何编写宏以一次将 43 行复制到另一个选项卡中进行处理，并循环执行第 1 行到第 4300 行（AP 列）的例程？对每个粘贴范围进行的处理是根据粘贴的单元格执行计算，并通过另一个宏在附加表中捕获结果。我使用的是 MS Excel 2003。

原文

分享到QQ

分享到微博

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

发布评论

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

忘东忘西忘不掉你 2024-10-16 10:30:58

以下代码将以 43 行块的形式将 Sheet1 中的数据粘贴到 Sheet2 中，例如 A1:P43、A44:A86 等。

Sub CopyData()
    Dim iRow As Long
    Dim rng As Range

    For iRow = 1 To 4258 Step 43
        Set rng = Range("A" & iRow & ":P" & (iRow + 42))
        rng.Copy Destination:=Worksheets("Sheet2").Range("A1") //Copy into A1:P43 on Sheet2
        //Call your existing Macro here to process data?
    Next
End Sub

The following code will paste data from Sheet1 in blocks of 43 rows into Sheet2 e.g. A1:P43, A44:A86 etc.

Sub CopyData()
    Dim iRow As Long
    Dim rng As Range

    For iRow = 1 To 4258 Step 43
        Set rng = Range("A" & iRow & ":P" & (iRow + 42))
        rng.Copy Destination:=Worksheets("Sheet2").Range("A1") //Copy into A1:P43 on Sheet2
        //Call your existing Macro here to process data?
    Next
End Sub

回复收藏 0 原文

~没有更多了~