Question

我需要将一张（有4k日期）的纸张与另一张纸张进行比较并说“是”或“否”。使用

ifSheets（j）.Range（“A2”）。Text = Sheets（1）.Range（“A2”）。Text Then '当两个值一致时，在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

比较两张纸并更改值

1 个答案: