宏将多行从一个工作表复制到另一个工作表,然后将标题复制到复制的列中

宏将多行从一个工作表复制到另一个工作表,然后将标题复制到复制的列中

我是宏的新手,我开发了这个宏,它允许我从工作表“主表 1”的第 11 行开始的单元格 BG 中获取包含数据的行。我获取这些数据,然后将其复制到下一个空行中的工作表 2“知识数据库”中,并将数据粘贴到 J 列中。

宏可以按照我的要求工作,但它似乎将数据粘贴到同一个工作表“Master 1”中,而不是另一个工作表“知识数据库”中。

我已经正确标记了纸张,所以我不知道为什么它不会进入下一张纸。我显然漏掉了一些东西,如果能得到帮助我将不胜感激 :)

Sub Macro2()

    Selection.SpecialCells(xlCellTypeLastCell).Select
    TheLastrow = ActiveCell.Row

    For i = 11 To TheLastrow

        If Cells(i, 2).Value >= "0" Then
            Range(Cells(i, 2), Cells(i, 7)).Select
            Selection.Cut

            Dim b As Integer, c As Integer

            b = Worksheets.Count

            For c = 1 To b
                If ActiveWorkbook.Worksheets(c).Name = "Test run" Then
                    Worksheets("knowledge database").Select
                End If
            Next c

            erow = ActiveSheet.Cells(Rows.Count, 10).End(xlUp).Offset(1, 0).Row

            ActiveSheet.Cells(erow, 10).Select
            ActiveSheet.Paste
            ActiveWorkbook.Save
            Application.CutCopyMode = False
        End If

    Next i

End Sub

相关内容