Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 比较两张图纸之间的数据,并打印是或否_Excel_Vba_For Loop_Multiple Columns - Fatal编程技术网

Excel 比较两张图纸之间的数据,并打印是或否

Excel 比较两张图纸之间的数据,并打印是或否,excel,vba,for-loop,multiple-columns,Excel,Vba,For Loop,Multiple Columns,我在一张表中有一系列数据,不同的行中有A1到A100,B1到B1000,我需要将这些数据与另一张表进行比较,比如。。。。活页1中的A1-A100和C1-C100、d1-d100、e1-e100 如果a1的单元格值与c1/d1/e1(或条件)匹配,则必须在第2页的f1中打印“是”,否则必须在f1中打印“否”。。。。我有一个v查找公式。。。但是现在我想写一个vba代码 用于比较两个工作簿中的数据的V-Lookup IF(OR(ISNA(VLOOKUP(F2,'[Value Sets.xlsx]Va

我在一张表中有一系列数据,不同的行中有A1到A100,B1到B1000,我需要将这些数据与另一张表进行比较,比如。。。。活页1中的A1-A100和C1-C100、d1-d100、e1-e100

如果a1的单元格值与c1/d1/e1(或条件)匹配,则必须在第2页的f1中打印“是”,否则必须在f1中打印“否”。。。。我有一个v查找公式。。。但是现在我想写一个vba代码

用于比较两个工作簿中的数据的V-Lookup

IF(OR(ISNA(VLOOKUP(F2,'[Value Sets.xlsx]Value Sets'!$AE$2:$AE$130,1,FALSE))=FALSE,
ISNA(VLOOKUP(L2,'[Value Sets.xlsx]Value Sets'!$AE$2:$AE$130,1,FALSE))=FALSE,
ISNA(VLOOKUP(M2,'[Value Sets.xlsx]Value Sets'!$AE$2:$AE$130,1,FALSE))=FALSE,
ISNA(VLOOKUP(E2,'[Value Sets.xlsx]Value Sets'!$AE$2:$AE$130,1,FALSE))=FALSE),"Yes","No")
我尝试了一个示例代码来比较不同工作表中的两行: 但它同时考虑两行并打印不同的值

ThisWorkbook.Worksheets("Data").Select
    For Each rngCell In Range("F2", Range("F2").End(xlDown))
    ThisWorkbook.Worksheets("Valuesets").Select
        If WorksheetFunction.CountIf(Range("A2", Range("A2").End(xlDown)), rngCell) = 0 Then
        ThisWorkbook.Worksheets("Data").Select
            Range("AB" & Rows.Count).End(xlUp).Offset(1) = rngCell
        End If
    Next
 MsgBox "Execution completed
但我想将表1的A1与A:A os表2进行比较,并在表1的b1中打印“是”/“否”,然后使用表2的a2(表1)与(A:A)表2进行比较,并在b2(表1)中打印结果

比较不同范围内两张图纸的两行数据,并在另一行打印结果:


以下是答案。。。我相信我们找到了解决问题的办法……)(y)

上面的代码将比较两行并在同一张表中发布结果。。。
现在,我试图以一种这样的方式来完善它,代码必须忽略空白单元格,然后查找最后一个单元格,然后进行比较,也可以从不同的表

进行比较。要么以更好的方式构建你的句子,要么展示一个例子(截图、电子表格)。是否要比较两张表中的
A1:A100
?每张图纸的范围是否相同,只是数值可能不同?
Sub sbWriteIntoCellData()

     ThisWorkbook.Worksheets("Sheet1").Select

     For Each rngCell In Range("A2", Range("A2").End(xlDown))
         If WorksheetFunction.CountIf(Range("B2", Range("B2").End(xlDown)), rngCell) = 0 Then
             Range("C" & Rows.Count).End(xlUp).Offset(1) = "Yes"
             Else: Range("C" & Rows.Count).End(xlUp).Offset(1) = "No"
         End If
     Next
     MsgBox "Execution completed"

End Sub