excel - 复制粘贴功能不起作用

Question

如果 A 列单元格值通过，则 B 列单元格值应移至 C 列。

例如：

当列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并复制下来，它应该适合您。