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