vba - 无效的属性分配？

Question

我使用以下宏，在数据导入我们的数据库之前对其进行处理。标准是，第 76 列或第 77 列中不能有任何内容，并且第 82 列必须包含数字“99”。如果满足所有这些条件，则第 6 列需要显示“已退回”。我收到错误数量的参数或无效的属性分配错误。

Sub V_11()
    Dim mySheet As Worksheet, myBook As Workbook 'Define your workbooks and worksheets as variables
    Set myBook = Excel.ActiveWorkbook
    Set mySheet = myBook.Sheets("Sheet1")
    Dim i As Integer, j As Integer 'Define a couple integer variables for counting
    j = 2
    For i = 2 To mySheet.UsedRange.Rows.Count
        If IsEmpty(mySheet.Cells(i, 76, 77).Value) And mySheet.Cells(i, 82) = "99" Then
            mySheet.Cells(i, 6).Value = "Returned" ' . . . place the text "N/A" into the cell in row "j" in Sheet2.
        End If
    Next
End Sub

Answer 1

mySheet.Cells(i, 76, 77).Value不是一个有效的陈述。

您需要将其分成 2 个 if 语句

If IsEmpty(mySheet.Cells(i, 76)) And IsEmpty(mySheet.Cells(i, 77)) And mySheet.Cells(i, 82) = "99" Then