尝试在现有范围内设置范围=列时应用程序定义或对象定义错误

Question

执行“Set c = baselineChangesRange.Range（”D“）时接收应用程序定义或对象定义错误。在下面的代码中查找（”False“，LookIn：= xlValues）。

我在尝试删除新范围中单元格值=“False”的所有行后，请参阅此处有关如何执行此操作的几个帖子。显然我还有一些麻烦...

`
Private Sub CopyRangeToNewSheets()
compareSheet.Range("A:E").Copy
baselineChangesSheet.Range("A:E").PasteSpecial
Set baselineChangesRange = baselineChangesSheet.Range("A:E")
customChangesSheet.Range("A:E").PasteSpecial
Set customChangesRange = customChangesSheet.Range("A:E")
End Sub

Private Sub DeleteRowsWithNoBaselineChanges()
Dim c As Range

Do
    Set c = baselineChangesRange.Range("D").Find("False", LookIn:=xlValues)
    If Not c Is Nothing Then c.EntireRow.Delete
Loop While Not c Is Nothing`

Answer 1

"D"不是Range()的有效参数。

如果您需要专栏，请尝试.Range("D:D")或.Columns("D")。