同じ次元の 2 つの Excel シートがあります。シート 1 の列 a とシート 2 の列 a を比較して、シート 1 で値が「1」の行を見つけてから、シート 2 で対応する行を見つけて、それを NAN に置き換える必要があります。
どんな助けでも大歓迎です。
ありがとう
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
関数 Vlookup で問題を解決できます。エクセルのヘルプガイドに機能の分かりやすい説明があります。
別のセルからセルを上書きできるかどうかはわかりませんが、次のようにすることができます。
=IF(Sheet1!A1=1, "NAN", Sheet2!A1)
Sheet3 で、上記をMxN
セル (sheet1 と sheet2 の寸法) にコピーします。これにより、対応する sheet1 に 1 が含まれるセルに NAN を持つ Sheet2 の同一のコピーが作成されます。