VBA复制单元对于IF

我正在学习VBA，但仍然非常粗糙

我正在尝试创build一个macros，它将编译分配给另一个工作簿中的员工的任务的报告。 我没有使用所有的行。

问题是，macros正在返回所有的任务，而不是分配给指定员工的任务。

我认为我的问题在发生，因为我正在使用For和If语句。

感谢您的帮助。

Option Explicit Sub Import_Open_Jobs() Dim DestinWB As Workbook: Set DestinWB = ThisWorkbook Dim SourceWB As Workbook: Set SourceWB = Workbooks.Open(Filename:="C:\Users\...\Open Tasks Report.xlsx") Dim ci As Integer DestinWB.Activate Sheets("Open Tasks").Range("A3").Select Do Until ActiveCell.Value = "" Intersect(Range("A:P"), ActiveCell.EntireRow).Clear ActiveCell.Offset(1, 0).Select Loop SourceWB.Activate SourceWB.Sheets("Task_List").Range("A2").Select Do Until ActiveCell.Value = "" 'F1 contains the name of the employee that the report is created for. If Cells(ActiveCell.Row, 5).Value = DestinWB.Sheets("Open Tasks").Range("F1") Then For ci = 3 To 10000 DestinWB.Sheets("Open Tasks").Cells(ci, 1).Value = ActiveCell.Value If ActiveCell.Value = "" Then Exit For DestinWB.Sheets("Open Tasks").Cells(ci, 2).Value = Cells(ActiveCell.Row, 2) DestinWB.Sheets("Open Tasks").Cells(ci, 3).Value = Cells(ActiveCell.Row, 8) DestinWB.Sheets("Open Tasks").Cells(ci, 4).Value = Cells(ActiveCell.Row, 9) DestinWB.Sheets("Open Tasks").Cells(ci, 5).Value = Cells(ActiveCell.Row, 15) DestinWB.Sheets("Open Tasks").Cells(ci, 6).Value = Cells(ActiveCell.Row, 22) DestinWB.Sheets("Open Tasks").Cells(ci, 7).Value = Cells(ActiveCell.Row, 23) DestinWB.Sheets("Open Tasks").Cells(ci, 8).Value = Cells(ActiveCell.Row, 24) DestinWB.Sheets("Open Tasks").Cells(ci, 9).FormulaR1C1 = "=IF(RC[-2]="""",""NA"",IF(RC[-1]="""",""NA"",NETWORKDAYS(RC[-2],RC[-1])))" DestinWB.Sheets("Open Tasks").Cells(ci, 10).FormulaR1C1 = "=IF(RC[-3]="""",""NA"",IF(RC[-2]="""",""NA"",NETWORKDAYS(RC[-3],R1C4,)))" DestinWB.Sheets("Open Tasks").Cells(ci, 11).Value = Cells(ActiveCell.Row, 27) DestinWB.Sheets("Open Tasks").Cells(ci, 12).Value = Cells(ActiveCell.Row, 16) DestinWB.Sheets("Open Tasks").Cells(ci, 13).Value = Cells(ActiveCell.Row, 21) DestinWB.Sheets("Open Tasks").Cells(ci, 14).Value = Cells(ActiveCell.Row, 18) DestinWB.Sheets("Open Tasks").Cells(ci, 15).Value = Cells(ActiveCell.Row, 19) DestinWB.Sheets("Open Tasks").Cells(ci, 16).Value = Cells(ActiveCell.Row, 20) ActiveCell.Offset(1, 0).Select Next ci Else ActiveCell.Offset(1, 0).Select End If Loop SourceWB.Close DestinWB.Activate Range("D1").Value = Format(Now(), "MM-DD-YYYY") Columns("F:H").Select Selection.NumberFormat = "m/d/yyyy" End Sub 

Answer 1

我会把IF放在For循环中，而不是在外面。

如果我理解正确，你想要通过所有的细胞，如果条件匹配，把它带过来。

如果第一个单元格的值匹配，你现在正在做什么，引入下一个10000