EXCEL中将选定的行复制到另外一张表

最新推荐文章于 2022-08-14 18:05:59 发布

book_gldmz

最新推荐文章于 2022-08-14 18:05:59 发布

阅读量1.1k

点赞数

文章标签： excel

本文链接：https://blog.csdn.net/book_gldmz/article/details/2731919

版权

这是一个VBA宏代码，用于从活动工作表的倒数第一行开始遍历，查找第4列数值在828000000到829000000之间的行，并将其复制到名为'sheet10'的工作表中。宏会逐行检查条件，满足条件的行会被复制并粘贴到新的位置，然后更新计数器。最后，会显示一个消息框，显示复制的行数。

摘要由CSDN通过智能技术生成

Sub CopyRows()
    Dim LastRow As Long
    Dim r As Long
    LastRow = ActiveSheet.UsedRange.Rows.Count
    LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
    Application.ScreenUpdating = False
    n = 1
    m = 1
    o = 1
    For r = LastRow To 1 Step -1

        If (Cells(r, 4) > 828000000 And Cells(r, 4) < 829000000) Then
        Sheets("sheet1").Select
        Rows(r).Select
        Selection.Copy
Sheets("sheet10").Select
'选定要复制到的表中的行
        Sheets("sheet10").Rows(n).Select
        ActiveSheet.Paste
        n = n + 1
        End If


    Next r
    '输出复制的行数
    MsgBox n

End Sub