Question

我是vb宏的新手，我想做的是如果单元格A（列表）=单元格b然后将单元格C的值复制到另一张表格，一旦复制，如果列表更改为另一个名称，则值为单元格C应为空，但应保留先前从单元格C复制的值。

我有这段代码，但它似乎没有运行。

Sub SearchMacro()

Dim LR As Long, i As Long
With Sheets("M-List")
    LR = .Range("T" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        With .Range("T" & i)
            If .Value = "JAN!D158=N2" Then
                Sheets("JAN!").Range("D158:H158").Copy Destination:=Sheets("M-List!").Range("T2")          
            End If
        End With
    Next i
End With

End Sub

Answer 1

你的问题从一开始就让人感到困惑。如果你想比较你做的两个单元格

Sheets("Sheet1").Range("A1").Value = Sheets("Sheet1").Range("B50").Value

您的代码看起来有点奇怪，但是这里有一些建议，所以你可以玩它

尝试.Formula而不是.Value =＆＃34; JAN！D158 = N2＆＃34;，If .Formula = "JAN!D158=N2" Then

尝试表格（＆＃34; JAN＆＃34;）而不是＆＃34; JAN！＆＃34;

您可能希望使用.Value而不是.Copy

Sheets("M-List").Range("T2").Value = Sheets("JAN!").Range("D158:H158").Value

您可能希望将变量用于行号D158或T2，如.Range("T" & var_row)

如果单元格A =单元格B，则将单元格C值复制到其他工作表

1 个答案: