计算特定工作表中的行数

我从workbook1启动以下代码，并且要计算workbook2（wb.Name）中的行数。 为什么partII从workbook1返回行数？

Dim partII As String Workbooks(wb.Name).Activate Workbooks(wb.Name).Worksheets("sheet1").Select partII = Range("A" & Rows.Count).End(xlUp).Row For Each myRecord In Workbooks(wb.Name).Worksheets("sheet1").Range("A1:A" & partII) 

Answer 1

1. 尽可能避免激活和select
2. 我再说一遍，尽量避免激活和select
3. 你的范围是指活动工作表，所以它应该拉wb.name /表1。

尝试以下简化代码：

 with wb.worksheets("sheet1") partII = .Range("A" & .Rows.Count).End(xlUp).Row For Each myRecord In .Range("A1:A" & partII) '... Next myRecord end with