1

私が使用しているシートの単純なマクロ/VBAコードを望んでいます。広範囲に検索しましたが、VBAの知識は非常に限られているため、他の回答でコーディングが何をしているのかわかりません。

基本的に私は2つのシートを持っています.Sheet2には2つの列があり、列Aには2158という数字があり、列Bには名前があります. このマクロで実行したいのは、シート 1 です。セル A1 に数値を入力し、セル B1 に名前を入力すると、マクロは、シート 2 のシート 1 セル A1 で使用されている数値を検索し、シート 1 B1 の名前を次のように置き換えます。 sheet2の対応する名前?

それが理にかなっていることを願っています!!

ありがとう

ダニエル

4

2 に答える 2

0

これを試してください：

Sub dural()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    v1 = s1.Range("A1")
    v2 = s1.Range("B1")
    s2.Activate
    For Each r In Intersect(ActiveSheet.UsedRange, Range("A:A"))
        If r.Value = v1 Then
            r.Offset(0, 1).Value = v2
        End If
    Next
End Sub
于 2013-09-05T14:01:09.963 に答える