多个条件
多个条件
提问于 2017-04-13 10:29:20
当我尝试进行列交叉表的比较时，我遇到了"object have support this method“错误。。如果图纸1中的列A和B都与图纸2中的列A和B匹配，则会在图纸3中显示匹配的内容。
回答 1
Stack Overflow用户
发布于 2017-04-13 11:03:35
您的代码中存在许多问题。请在以后发布实际代码(不是截图)。
注意if statement.
- ".value“中的"And”而不是vars中的".values“。
- ”Dim as string“，因为我们使用的是cell.
- "Worksheet.”not "Worksheets."
- I不认为你需要为这些设置一个“集合”。(可能是错误的)
尝试下面的代码，它对我来说是有效的。您可能需要修改写入“匹配”表的行。
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/43382574
复制相关文章
相似问题
腾讯云开发者
