复制粘贴功能不起作用

Question

如果通过了A列单元格值，则应将B列单元格值移动到C列。

E.g：

当列A=fail

时

Column A   Column B Column C
Fail       123        blank
Fail       345        blank

当A列=通过时

Column A    Column B Column C
Pass        blank    123  
Pass        blank    345

我使用了以下代码，但是当我执行时，我得到'0'结果。

Function MoveA(Status)
   Call Copy1(Status)
   Application.Run "Copy1"
End Function

Sub Copy1(Status)
   If (Status = "pass") Then
     Range("B3").Copy
     Range("C3").Select

     ActiveSheet.Paste
     Application.CutCopyMode = False
   End If
End Sub

Answer 1

你根本不需要使用任何代码，只需公式。

如果您将公式=IF(A2="pass", B2, "")粘贴到cell C2并复制，它应该适合您。