程序正在检查错误工作表中的下一个可用行

我已经编写了一个代码，用于从一堆Excel工作簿（从专用txt文件中读取path）复制数据到主工作表。 我现在遇到的问题是，不是检查并粘贴MASTER工作簿中的下一个可用行，而是检查源工作簿中的下一个可用行，并粘贴主工作簿中的对应行号。

这是我的atm。 请看一看

---

Open PathFile For Input As #1 Do Until EOF(1) Line Input #1, SourceFile Set Source = Workbooks.Open(SourceFile) With Source.Sheets("Action Tracker") lastRow = .Range("F" & .Rows.Count).End(xlUp).Row For i = 10 To lastRow If Len(Trim(.Range("F" & i).Value)) <> 0 Then If CopyRange Is Nothing Then Set CopyRange = .Rows(i) Else Set CopyRange = Union(CopyRange, .Rows(i)) End If End If Next If Not CopyRange Is Nothing Then CopyRange.Copy ThisWorkbook.Sheets("MasterSheet").Rows(Range("F100000").End(xlUp).Offset(1, 0).Row) End If End With Source.Close SaveChanges:=False CB.Clear Set CopyRange = Nothing Loop 

Answer 1

该错误在以下行内：

 CopyRange.Copy ThisWorkbook.Sheets("MasterSheet").Rows(Range("F100000").End(xlUp).Offset(1, 0).Row) 

当单独使用范围（不是something.Range）时，它是ActiveSheet.Range的一个快捷方式

你可以试试这个：

 With ThisWorkbook.Sheets("MasterSheet") CopyRange.Copy .Rows(.Range("F100000").End(xlUp).Offset(1, 0).Row) End With