vba-codeは古いシートでは実行されませんが、新しいシートでは実行されません。

Question

PDFからPDFに変換してこれらのデータを処理しようとしているオンラインプログラムから得られた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

できるだけSelectを使用しないでください。

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