比较两张纸并更改值

Question

我需要将一张纸（日期为 4k）与另一张纸进行比较，然后说“是”或“否”。尝试使用

ifSheets(j).Range("A2").Text = Sheets(1).Range("A2").Text 然后 '当两个值一致时，在 sheet1 单元格 C6 中写入 4。 Sheet1.Range("C6") = 4 从网站， Comparing two text cells in different sheets 但无法成功。试了4天没有成功，终于想求助了

我尝试做的是将工作表 1 范围 A 与工作表 2 上的“B2”中的特定值/文本进行比较，工作表 1 范围 A 有大约 4k 数据。如果找到匹配项，我需要“B3”来显示“Y”，如果找不到匹配项“N”。 想法很简单，但我真的需要帮助...

Answer 1

sub main
dim i as integer
for i = 1 to 4000
    if sheet1.cells(i, 1) = sheet2.cells(2, 2) then 
        sheet2.cells(3,2 ) = "Y"
        exit sub
    end if
next i

sheet2.cells(3, 2) = "N"
end sub