excel vba - 代码不会在旧纸上运行，但会在新纸上运行

Question

我有一些从PDF格式转换为Excel的在线程序获得的Excel表格，并且试图处理这些数据。但是，当我尝试运行此代码时：

Sheets(1).Range("A1").Select 
    For j = 1 To 16 
     If Selection.Offset(j, 0) = 1 Then 
      Selection.Offset(j, 0).Select 
     End If 
    Next j 

Excel显示runtime-error '1004': application-defined or object-defined error。

但是，如果我创建一个新的工作表，代码运行没有问题。为什么我无法在其他工作表上运行我的代码？

其他指令如Selection.Offset(2, 0) = Sheet(1).Range("A1")工作正常。

Answer 1

尽可能避免使用选择。

With Sheets(1) 
    For j = 2 To 17 
     If .Cells(j, 1) = 1 Then 
      .Cells(j, 1).Select 
     End If 
    Next j 
End With