我是宏的新手,我开发了这个宏,它允许我从工作表“主表 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