采取多个细胞，并使用他们的信息来创build另一个细胞

现在我正在尝试使用来自特定行中三个不同单元格的信息来自动填充另一个单元格以及我想要的信息。 自从我使用VBA以来，已经有一段时间了，我不知道为什么我会收到“对象定义的错误”。 这里是我的代码，如果你能帮助指向正确的方向，我会很感激。

Sub Conduit() Sheets("Sheet4").Select Dim celltxt As String Dim celltxt2 As String Dim celltxt3 As String Dim i As Integer i = 3 Do While Cells(i, 3).Value <> "" celltxt = ActiveSheet.Range("Bi").Text celltxt2 = ActiveSheet.Range("Fi").Text celltxt3 = ActiveSheet.Range("Di").Text If InStr(3, celltxt, "RMS") And InStr(3, celltxt2, "XHHW-2") And InStr(3, celltxt3, "1/C") Then [Ai].Value = "2" Else [Ai].Value = "999999" End If i = i + 1 Loop End Sub 

Answer 1

此行celltxt = ActiveSheet.Range("Bi").Text不正确。

尝试

celltxt = ActiveSheet.cells(i,2).Text

艾同样。 你只是不能intvarstring，并期望它是正确的。