Sub compareRange()
Dim ran1, ran2 As Range
Dim index As Integer
Set ran1 = Sheet1.Range("a1:a50")
Set ran2 = Sheet2.Range("a1:a50")
index = 0
For Each c In ran1.Cells
index = index + 1
If (c.Value = 1) Then
ran2.Cells(index).Value = "NAN"
End If
Next
End Sub
3 回答
函数Vlookup可以解决您的问题 . Excel的帮助指南清楚地描述了该功能 .
我不确定你是否可以覆盖不同单元格中的单元格,但你可以这样做:
在Sheet3中,将上面的内容复制到
MxN
单元格(sheet1和sheet2的尺寸) . 这将在单元格中为Sheet2提供相同的Sheet2副本,其中相应的sheet1包含1 .