excel vba -代码不运行在旧的工作表上，而是在新的工作表上运行。

Question

我有一些excel表格从一个在线程序获得，从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

如果可能，请避免使用“选择”。

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