多个条件

当试图对列交叉表进行比较时，我有“对象不支持此方法”错误。 。 如果表格1中的列A和B同时与表格2中的列A和B匹配，则会在表格3中显示匹配。

Answer 1

你的代码中有很多问题。 将来，请张贴实际的代码（不是截图）。

1. 小心“和”与“＆”在你的if语句中。
2. 在你的变数中“.value”不是“.values”。
3. 因为我们正在使用单元格，所以“Dim as string”。
4. “工作表”。 而不是“工作表”。
5. 我不认为你需要一个“设置”这些。 （可能是错的）

试试下面的代码，它适用于我。 您可能需要修改写入“匹配”工作表的行。

 Sub find() Dim a As String Dim b As String Dim c As String Dim d As String a = Worksheets("sheet1").Range("a1").Value b = Worksheets("sheet2").Range("a1").Value c = Worksheets("sheet1").Range("b1").Value d = Worksheets("sheet2").Range("b1").Value If a = b And c = d Then Worksheets("match").Range("A65536").End(xlUp).Offset(1, 0).Value = c Worksheets("match").Range("A65536").End(xlUp).Offset(0, 1).Value = c End If End Sub