Question

我正在尝试获取一些单元格值并将其分配给变量。

变量'result'和'result2'是两个Long值，包含我要查找的值所在的行和列。我已经检查过了，并且桌子上的数字匹配，但是当我运行代码时会说

错误1004“应用程序定义的错误或对象定义的错误”。

这就是我得到的：

For row = 1 To countRows
    brand = Sheets("2017").Cells(row, 1)
    If InStr(strSaida, brand) Then
        result2 = row
    End If
Next row

For col = 2 To countCol
    mes = Sheets("2017").Cells(2, col)
    If InStr(strProcMes, mes) Then
        result = col
    End If
Next col

Dim cellValor As Long
cellValor = Sheets("2017").Range(Cells(result2, result)).Value

Answer 1

这是问题所在行

cellValor = Sheets("2017").Range(Cells(result2, result)).Value

应该是

cellValor = Sheets("2017").Cells(result2, result).Value

如何将单元格值分配给变量？

1 个答案: