多重条件

时间:2017-04-13 02:29:20

标签: excel vba excel-vba

尝试对列交叉表进行比较时,我有“对象不支持此方法”错误。 。如果工作表1中的A列和B列都与工作表2中的A列和B列匹配,则它将在工作表3中显示匹配。

enter image description here

1 个答案:

答案 0 :(得分:0)

您的代码中存在许多问题。将来,请发布实际代码(不是截图)。

  1. 提防“And”vs“&”在你的if语句中。
  2. “。value”not“.values”in your vars。
  3. “Dim as string”,因为我们正在处理单元格。
  4. “工作表”。不是“工作表。”
  5. 我认为你不需要这些“Set”。 (可能是错的)
  6. 尝试下面的代码,它适合我。您可能需要修改写入“匹配”表的行。

    setlocal enabledelayedexpansion
    SET ENR[1]=12345
    SET ENR[2]=12345
    SET ENR[3]=99999
    SET ENR[4]=45678
    SET /a Count=4
    
    SET /a x=0
    :loop
    SET /a x+=1
    SET /a y=0
    :subloop
    SET /a y+=1
    IF %x% NEQ %y% (IF !ENR[%x%]!==!ENR[%y%]! (SET ENR[%x%]="double"))
    IF %y% NEQ %Count% goto :subloop
    IF %x% NEQ %Count% goto :loop