我一直在研究VBA,它将根据特定条件从已关闭的工作簿中复制数据并粘贴到主工作簿中的下一个可用行 . 我可以使用vba将工作表复制并粘贴到工作表,但我无法弄清楚如何从工作簿到工作簿 .
我有我的主工作簿“可用性大师”,带有“运行数据”表 . 我有一个已关闭的工作簿,“添加/删除”,带有“合并”表 . 这是我需要掌握的工作表,以查找以“Add-Crazy”开头的行并复制所有数据并粘贴到Availability Master中 .
这就是我对同一个工作簿所拥有的内容,但我再次需要它来查看一个封闭的工作簿 .
Private Sub Copy ()
a=Worksheets("Combined").Cells(Rows.Count,1)End(xlUp).Row
For i=2 to a
If worksheets("Combined").Cells(i,1).Value="Add-Crazy" Then
Worksheets("Combined").Rows(i).Copy
Worksheets("Running Data").Activate
b=worksheets("Running Data").Cells(Rows.Count,1).End(xlUp).Row
Worksheets("Running Data").Cells(b+1,1).Select
ActiveSheet.Paste
Worksheets("Combined").Activate
End if
Next
Application.CutCopyMode=False
thisworkbook.Worksheets("Combined")
End Sub