0

同じ次元の 2 つの Excel シートがあります。シート 1 の列 a とシート 2 の列 a を比較して、シート 1 で値が「1」の行を見つけてから、シート 2 で対応する行を見つけて、それを NAN に置き換える必要があります。

どんな助けでも大歓迎です。

ありがとう

4

3 に答える 3

1
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
于 2013-08-29T20:06:05.590 に答える
0

関数 Vlookup で問題を解決できます。エクセルのヘルプガイドに機能の分かりやすい説明があります。

于 2013-08-29T18:59:14.090 に答える
0

別のセルからセルを上書きできるかどうかはわかりませんが、次のようにすることができます。

=IF(Sheet1!A1=1, "NAN", Sheet2!A1)

Sheet3 で、上記をMxNセル (sheet1 と sheet2 の寸法) にコピーします。これにより、対応する sheet1 に 1 が含まれるセルに NAN を持つ Sheet2 の同一のコピーが作成されます。

于 2013-08-29T19:06:35.020 に答える