比较两张纸之间的数据，并打印是或否答案

【问题标题】：Comparision of data between two sheets, and print yes or no比较两张纸之间的数据，并打印是或否
【发布时间】：2019-09-08 07:10:06
【问题描述】：

我在一张表中有不同行的数据范围，例如 A1 到 A100，B1 到 B1000 我需要将此数据与另一张表进行比较，例如...。表 1 中的 A1-A100 和 C1-C100，d1 -d100,e1-e100...

如果 a1 的单元格值与 c1/d1/e1（或条件）匹配，则必须在 sheet-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 sheet-2 进行比较，并在工作表 1 的 b1 中打印“是”/“否”，然后用（ A:A) sheet-2 并在 b2(sheet-1) 中打印结果

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

【问题讨论】：

不清楚你在问什么。要么以更好的方式构建你的句子，要么展示一个例子（屏幕截图、电子表格）。您想比较两张表中的A1:A100 吗？每张纸的范围是否相同，只是值可能不同？

标签： excel vba for-loop multiple-columns

【解决方案1】：

这就是答案……我相信我们找到了解决问题的方法……:) (y)

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

以上代码将比较两行并将结果发布在同一张表中... 现在，我正在尝试以某种方式对其进行改进，这样代码必须忽略空白单元格并找到最后一个单元格，然后进行比较 - 以及来自不同工作表的比较

【讨论】：